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

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

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

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

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

readln;

end.

Объяснение:

Answer 2

Pascal: Доработка программы для вычисления площади и периметра прямоугольника

Вам нужно доработать программу на языке Pascal, чтобы она вычисляла и выводила не только площадь, но и периметр прямоугольника. Также вместо операторов присвоения значений переменным A и B, вы хотите добавить приглашение для ввода и ввод значений этих переменных.

Вот доработанный код программы:

program DemoWriteln;
var
  A, B, S, P: integer; { A, B - длина сторон, S - площадь, P - периметр }
begin
  writeln('Введите A:'); { Приглашение для ввода значения A }
  readln(A); { Ввод значения A }

writeln('Введите B:'); { Приглашение для ввода значения B }
  readln(B); { Ввод значения B }

S := A * B; { Вычисление площади }
  P := 2 * (A + B); { Вычисление периметра }

writeln('-----------------------------------------------------');
  writeln(': Сторона A : Сторона B : Площадь : Периметр :');
  writeln('-----------------------------------------------------');
  writeln(':', A:7, B:11, S:11, P:11, ':':5);
  writeln('-----------------------------------------------------');
  readln;
  readln;
end.

Теперь программа запрашивает значения сторон A и B у пользователя и вычисляет как площадь, так и периметр прямоугольника. Результаты выводятся в таблице, как в предыдущей версии программы.

Блок-схема алгоритма:

Вот блок-схема алгоритма, реализованного данной программой с учетом внесенных изменений:

+---------------------+
| Ввод значения A     |
+---------------------+
| Ввод значения B     |
+---------------------+
| Вычисление площади  |
+---------------------+
| Вычисление периметра|
+---------------------+
| Вывод результатов   |
+---------------------+

Этот алгоритм просто запрашивает значения сторон A и B, вычисляет площадь и периметр прямоугольника, а затем выводит результаты на экран.

Надеюсь, это поможет вам доработать вашу программу на языке Pascal. Если у вас возникнут еще вопросы, не стесняйтесь задавать!