program ex7pag9clasa11;
type Punct=record
x, y : real
end;
Segment=record
A, B : Punct
end;
Triunghi=record
A, B, C : Punct
end;
Dreptunghi=record
A, B, C, D : Punct
end;
Cerc=record
Centru : Punct;
Raza : real
end;
var d: Dreptunghi;
function arieDreptunghi(d:Dreptunghi):real;
var lungime, latime:real;
begin
lungime:=sqrt(sqr(d.A.x-d.D.x)+sqr(d.A.y-d.D.y));
latime:=sqrt(sqr(d.A.x-d.B.x)+sqr(d.A.y-d.B.y));
arieDreptunghi:=lungime*latime;
end;
begin { programul principal }
writeln ('dati coordonatele varfurilor dreptunghiului:');
writeln(' pt punctul A : ');
write(' x= '); readln(d.A.x);
write(' y= '); readln(d.A.y);
writeln(' pt punctul B : ');
write(' x= '); readln(d.B.x);
write(' y= '); readln(d.B.y);
writeln(' pt punctul C : ');
write(' x= '); readln(d.C.x);
write(' y= '); readln(d.C.y);
writeln(' pt punctul D : ');
write(' x= '); readln(d.D.x);
write(' y= '); readln(d.D.y);
writeln(' aria dreptunghiului = ', arieDreptunghi(d));
end.
