Неверное число параметров процедуры - Pascal

Узнай цену своей работы

Формулировка задачи:

Неверное число параметров процедуры.
uses crt;
var a,b:real;   
procedure prm(a,b:real;var p:real);
begin
p:=2*a+2*b;
writeln('Периметр=',p:0:2);
end;
begin 
Write('Введите длину прямоугольника а и ширину b : ');readln(a,b);
writeln(prm(a,b):0:2);
end.

Решение задачи: «Неверное число параметров процедуры»

textual
Листинг программы
uses crt;
procedure prm(a,b:real;var p:real);
begin
p:=2*a+2*b;
writeln('Периметр=',p:0:2);
end;
var a,b,p:real;
begin
Write('Введите длину прямоугольника а и ширину b : ');
readln(a,b);
prm(a,b,p); //это процедура, а не функция и у нее 3 параметра
end.

Объяснение кода листинга программы

  1. Объявляются переменные:
    • a - для хранения длины прямоугольника,
    • b - для хранения ширины прямоугольника,
    • p - для хранения периметра прямоугольника.
  2. Выводится запрос на ввод длины a и ширины b прямоугольника.
  3. Пользователь вводит значения для a и b.
  4. Вызывается процедура prm с параметрами a, b и p.
  5. Внутри процедуры prm выполняется расчет периметра по формуле p=2a+2b.
  6. Полученное значение периметра выводится на экран, например, Периметр=значение_периметра.
  7. Программа завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы