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(+(sqr(abs(y1)-abs(; 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.