Question

Программа для Паскаля найти площадь и периметрарямоугооьника

Answer 1

Program n_1;

var a, b, S, P:integer;

begin

   writeln('Введите стороны прямоугольника a, b через пробел');

   readln(a, b);

   S:=a*b;

   P:=(a+b)*2;

   writeln('Площадь прямоугольника равна ', S);

   writeln('Периметр прямоугольника равен ', P);

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль для вычисления площади и периметра прямоугольника:

pascalCopy code
program RectangleCalculator;

var
  length, width, area, perimeter: real;

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

  writeln('Введите ширину прямоугольника: ');
  readln(width);

  area := length * width;
  perimeter := 2 * (length + width);

  writeln('Площадь прямоугольника: ', area);
  writeln('Периметр прямоугольника: ', perimeter);

  readln;
end.

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

Обратите внимание, что в приведенном коде используется тип данных real, который подразумевает вещественные числа. Если вам нужны только целочисленные значения, вы можете заменить real на integer в объявлении переменных и изменить операторы ввода/вывода соответственно.