Question

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;
составить блок-схему алгоритма, который реализован данной программой с учетом внесенных изменений

Answer 1

Ответ:

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('----------------------------------------------'); {всего 33}

writeln(': Сторона A : Сторона B : Площадь : Периметр :');

writeln('----------------------------------------------');

writeln(':', A : 7, ':':5, B : 7, ':':5, S : 5, ':':5, P : 6, ':':5);

writeln('----------------------------------------------');

readln;

end.

Объяснение: