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

@rudyD · Регистрация: 16.11.2016

Author24 — интернет-сервис помощи студентам

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

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.

@Puporev · 07.12.2016, 18:18

Pascal

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.

@Cyborg Drone · 07.12.2016, 19:18

После 11 строки нужно, наверное

Pascal

1 2	write(p); end.

@Puporev · 07.12.2016, 19:24

Сообщение от Cyborg Drone

нужно, наверное

Не нужно, вывод есть в процедуре.

@Cyborg Drone · 07.12.2016, 19:31

Ох, да, что-то слона не заметил...

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2016, 19:24	4
	Сообщение от Cyborg Drone нужно, наверное Не нужно, вывод есть в процедуре. 0

@Cyborg Drone Модератор 9956 / 5313 / 3327 Регистрация: 17.08.2012 Сообщений: 16,215
	07.12.2016, 19:31	5
	Ох, да, что-то слона не заметил... 0

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

Решение