функцию переделать в процедуру с параметрами и без параметров - Pascal

[сергей стеценко]

функцию переделать в процедуру с параметрами и без параметров



program zzz;
Function L(x1,y1,x2,y2:real):real;
begin
L:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
var x1,y1,x2,y2,x3,y3,P:real;
begin
Write('Введите координаты (x,y) вершины A: ');
Read(x1,y1);
Write('Введите координаты (x,y) вершины B: ');
Read(x2,y2);
Write('Введите координаты (x,y) вершины C: ');
Read(x3,y3);
P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L( x3,y3,x1,y1);
Writeln('Периметр треугольника равен ',P)
end.

[p51x]

Ну добавьте еще один параметр для результата "по ссылке" в конце и пишите туда. Вы пробовали хотя бы что-то по языку посмотреть?

[newerow1989]

с параметрами

procedure L(x1,y1,x2,y2:real; var res:real);
begin
 res:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;

var x1,y1,x2,y2,x3,y3,p1,p2,p3:real;
begin
Write('Введите координаты (x,y) вершины A: ');
 Read(x1,y1);
 Write('Введите координаты (x,y) вершины B: '); 
 Read(x2,y2);
 Write('Введите координаты (x,y) вершины C: ');
 Read(x3,y3);
 P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L( x3,y3,x1,y1);
 Writeln('Периметр треугольника равен ',P);
 Readln;
end.