2. Составьте программу на языке Паскаль для нахождения периметра прямоугольника P, если известны сторона a прямоугольника и его площадь S.
Пропишите диалог компьютера с пользователем. Протестируйте программу (входные данные: 8, 2; выходные данные: 16,5). Программу сохраните в файле под именем «Периметр прямоугольника».

Сначала находим вторую сторону: \(b=\dfrac{S}{a}\). Затем вычисляем периметр: \(P=2(a+b)\).

Программа на Паскале:

program PerimetrPryamougolnika;
var
  a, S, b, P: real;
begin
  writeln('Введите сторону a:');
  readln(a);
  writeln('Введите площадь S:');
  readln(S);
  b := S / a;
  P := 2 * (a + b);
  writeln('Периметр P = ', P:0:1);
end.

Диалог при тестировании:

Введите сторону a:
8
Введите площадь S:
2
Периметр P = 16,5

Файл следует сохранить под именем «Периметр прямоугольника.pas».

0 0 Пожаловаться