2. Начертите в тетради блок-схему вычисления площади параллелограмма S по стороне аи высоте һ. Значения а и һ- это исходные данные, их требуется ввести,
S- результат работы алгоритма, его требуется вывести
3. Начертите в тетради блок-схему решения уравнения ax + b = 0. Значения аир - это исходные
данные, их требуется ввести, х- результат работы алгоритма, его требуется вывести
1. так напишу:
program s_parallelogramm;
var
a,h,s: real;
begin
write('Основание = '); readln(a);
write('Высота = '); read(h);
if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')
else
begin
s:=a*h;
writeln('Площадь (S) параллелограмма = ', s);
end;
end.
2) //PascalABC.Net
//NaaMan
var
a,b : real;
begin
write('Введите А и В: ');
readln(a,b);
if (a=0) then
writeln('Корень отсутствует')
else
writeln('Корень ', -b / a)
end.