Var x1,x2,D:real;
a,b,c:integer;
begin
readln(a,b,c);
D:=sqr(b)-4*a*c;
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(x1,x2);
readln;
<span>end.</span>
1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон
2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон
матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');
Var a: Real;
begin
writeln('Введите сторону a: ');
readln(a);
writeln('S=',a*a);
writeln('P=',4*a);
end.
Простой пример линейного алгоритма таков :
1.Выкопать в земле ямку
2.Опустить в ямку саженец
3.Засыпать ямку с саженцем землей
4.Полить саженец водой
Простой пример циклического алгоритма таков :
1.Смотрю телевизор
2.Уже ночь ?
3(а)Да , то 4.Ложусь спать 3(б)Нет , то 1.Смотрю телевизор
<span>и вновь проверка условия до тех пор пока не настанет ночь
Просто пример </span><span>разветвляющего алгоритма таков :
</span>
1.Я встречу друга ?
2(а).Да ,то 3. Расскажу историю
2(б) Нет ,то *конец алгоритма*
<u>Примеры данных алгоритмов в виде блок-схем ниже</u>