Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.
Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.
Рассмотрим некоторые важные понятия.
Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.
Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.
Конус бывает нескольких типов:
Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.
Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.
Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.
Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.
var
i,q:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;
c:array [1..50] of integer;
begin
writeln ('Заполните первый массив');
for i:=1 to n do
read (a[i]) ;
writeln ('Заполните второй массив') ;
for i:=1 to n do
read (b[i]);
for i:=1 to n do begin
if i mod 2<>0
then begin q:=q+1;
c[q]:=a[i];
q:=q+1;
c[q]:=b[i];
end;
end;
for i:=1 to n do
if b[i]>0
then begin
q:=q+1;
c[q]:=b[i];
end;
if q=0
then writeln ('условие не выполняется')
else begin
for i:=1 to q do
write (' ',c[i]);
end
end.
P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.
P.p.s. Программа написана на Pascal ABC.