Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.
Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.
Рассмотрим некоторые важные понятия.
Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.
Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.
Конус бывает нескольких типов:
Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.
Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.
Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.
Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.
function summ(var m: array of integer; length: integer): integer;
var k: integer;
begin
randomize;
//заполнение массива
for k:=1 to length do
m[k]:=random(5000)-2500;
Result:=0;
//подсчёт суммы положительных элементов массива
for k:=1 to length do
if m[k]>0 then
Result:=Result+m[k];
end;
procedure TForm1.Button1Click(Sender: TObject);
var k, sum: integer;
begin
sum:=summ(mas, 20);
Memo1.Text:='Массив чисел ';
for k:=1 to 20 do
Memo1.Lines.Add(IntToStr(mas[k])+',');
Memo1.Lines.Add('Сумма положительных чисел '+IntToStr(sum));
end;