Question

ИНФОРМАТИКА 10 КЛАСС . ПРОГРАММИРОВАНИЕ ПАСКАЛЬ. Написать ПРОЦЕДУРУ, которая принимает на вход числа m и n и печатает на экране площадь и периметр прямоугольника со сторонами m и n

Answer 1

program yaneznayupascal;

   procedure PS;

  var m, n, S, P : integer;

begin

    write('Введите число m (длина): ');

     readln(m);

    write('Введите число n (ширина): ');

     readln(n);

    S := m*n;

    P := 2*m+2*n;

write('S = ', S);

write('P = ', P);

end;  

begin

 PS;

end.

Answer 2

Для написания процедуры на языке программирования Паскаль, которая принимает на вход числа m и n и печатает на экране площадь и периметр прямоугольника со сторонами m и n, вам потребуется использовать синтаксис этого языка. Вот пример такой процедуры:

pascalCopy code
program RectangleInfo;

// Процедура для вычисления и вывода площади и периметра прямоугольника
procedure CalculateRectangleInfo(m, n: Integer);
var
  area, perimeter: Integer;
begin
  // Вычисление площади прямоугольника
  area := m * n;

  // Вычисление периметра прямоугольника
  perimeter := 2 * (m + n);

  // Вывод информации на экран
  writeln('Площадь прямоугольника:', area);
  writeln('Периметр прямоугольника:', perimeter);
end;

var
  side1, side2: Integer;

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

  writeln('Введите длину стороны n:');
  readln(side2);

  // Вызов процедуры для вычисления и вывода информации о прямоугольнике
  CalculateRectangleInfo(side1, side2);
end.

Вы можете сохранить этот код в файл с расширением .pas (например, rectangle_info.pas) и запустить его с помощью компилятора Pascal, чтобы увидеть результаты на экране. При выполнении программы вы сможете ввести значения сторон прямоугольника, а затем увидеть на экране его площадь и периметр.