Question

Составте программу в турбо паскале для вычисления площади прямоугольника по введенной длине и введенному периметру.

Answer 1

Uses crt;
var a,p:integer;b,s:real;
begin
writeln ('введите периметр',p);
readln (p);
writeln ('введите длину',a);
readln (a);
b:=((2*a-p)/-2);
s:=a*b;
writeln (s);
End.

Answer 2

Для вычисления площади прямоугольника по введенной длине и периметру в Turbo Pascal (также известном как Free Pascal) можно использовать следующую программу:

pascalCopy code
program AreaOfRectangle;

var
  length, perimeter, width, area: real;

begin
  { Вводим значения длины и периметра }
  writeln('Введите длину прямоугольника:');
  readln(length);
  
  writeln('Введите периметр прямоугольника:');
  readln(perimeter);

  { Вычисляем ширину прямоугольника }
  width := (perimeter - 2 * length) / 2;

  { Вычисляем площадь прямоугольника }
  area := length * width;

  { Выводим результат }
  writeln('Площадь прямоугольника: ', area:0:2);
end.

Обратите внимание, что программа предполагает, что пользователь вводит корректные значения длины и периметра, а также что прямоугольник существует, то есть периметр больше или равен удвоенной длине.

Следует также отметить, что Turbo Pascal является устаревшим языком программирования, и рекомендуется использовать более современные языки, такие как Free Pascal или другие языки программирования, для разработки новых программ.