- присваивание;
- ввод;
- вывод;
- обращение к вс алгоритму;
- цикл;
- ветвление.
2)
aX2+ bX + c = 0
Алг КWYR (вещ a.b,c,x1,x2,x, лит y)
арг a.b,c
рез x1,x2,x,y
Нач
Цел D
D:=b*b-4*a*c
Если D>0 то y:=”Ур. имеет 2 корня”
X1:=(-b+√D)/2*a
X2:=(-b-√D)/2*a
иначе y:=”Ур. не имеет корней”
все
Если D=0 то y:=”Ур. имеет 1 корень”
X:=(-b)/2*a
все
Кон
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
b:boolean;
begin
b:=true;
writeln('Array:');
for i:=1 to n do readln(ar[i]);
for i:=1 to n div 2 do
if ar[i]<>ar[n-i+1] then b:=false;
if b=true then writeln('Симметричны') else writeln('Не симметричны');
end.
Пример ввода:
1
2
3
2
1
Пример вывода:
Симметричны