Question

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

program z6;
var x1, x2, x3, y1, y2, y3, AB, BC, AC, P: integer;
procedure dlina (var FE: real; x1, y1, x2, y2: integer);
begin
FE:=sqrt((sqr(abs(x1)-abs(x2)))+(sqr(abs(y1)-abs(y2))));
writeln (FE);
end;
begin
writeln ('Введите координаты точки A'); read (x1,y1);
writeln ('Введите координаты точки B'); read (x2,y2);
writeln ('Введите координаты точки C'); read (x3,y3);
dlina (AB);
dlina (BC);
dlina (AC);
P:=(AB+BC+AC);
writeln ('Периметр треугольника равен',' ', P);
end.

я вообще не бум-бум

Answer 1

var x1, x2, x3, y1, y2, y3: integer;
AB, BC, AC, P: real;

function dlina (x1, y1, x2, y2: integer):real;
begin
dlina :=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;

begin
writeln ('Введите координаты точки A');
read (x1,y1);
writeln ('Введите координаты точки B');
read (x2,y2);
writeln ('Введите координаты точки C');
read (x3,y3);
AB:= dlina (x1, y1, x2, y2);
BC:= dlina (x2, y2, x3, y3);
AC:= dlina (x1, y1, x3, y3);
P:=AB+BC+AC;
writeln ('Периметр треугольника равен',' ', P);
end.