Pascal доработать программу program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}
var
A, B, S : integer; {A, B – длина сторон, S – площадь}
begin
A := 8; {А присвоить 8}
B := 4; {B присвоить 4}
S := A * B;
writeln(''); {всего 40}
writeln(': Сторона A : Сторона B : Площадь : Периметр :');
writeln('');
writeln(':', A : 7, B : 11, S : 11, ':':5);
writeln('');
readln;
readln
end.
после расчета площади прямоугольника добавить вычисление периметра прямоугольника;
вместо операторов присвоения значений величинам A и B, выполнить приглашение для ввода и ввод значений этих переменных. Приглашение для ввода оформляется следующим образом:
writeln (‘Введите A’);
Ввод значений оформляется оператором readln;
составить блок-схему алгоритма, который реализован данной программой с учетом внесенных изменений
program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}
var
A, B, S, P : integer; {A, B – длина сторон, S – площадь, P - периметр}
begin
writeln('Введите A ');
readln(A);
writeln('Введите B ');
readln(B);
S := A * B;
P := 2 * (A + B);
writeln(''); {всего 46}
writeln(': Сторона A : Сторона B : Площадь : Периметр :');
writeln('');
writeln(':', A : 7, ':':5, B : 7, ':':5, S : 5, ':':5, P : 6, ':':5);
writeln('');
readln;
end.
Объяснение: