Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.
Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.
Рассмотрим некоторые важные понятия.
Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.
Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.
Конус бывает нескольких типов:
Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.
Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.
Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.
Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.
Program F90
integer i, j, k, s /0/, x/2/, y/6/, a(7, 7)
do k = 1, 4
do i = x - 1, y + 1
s = s + 1
a(x - 1, i) = s
end do
i = y + 1
do j = x, y + 1
s = s + 1
a(j, i) = s
end do
do i = y, x - 1, -1
s = s + 1
a(y + 1, i) = s
end do
i = x - 1
do j = y, x, -1
s = s + 1
a(j, i) = s
end do
x = x + 1
y = y - 1
end do
Print *, 'massive 15 = '
Write(*, '(7i5)') ((a(i, j), j=1, 7), i=1, 7)
End Program
![перевести код из паскаля в фортран f90 var i, j, k, s, x, y:integer; a:array[1..7,1..7] of integer;](/tpl/images/1609/3759/638ca.jpg)
