Question

Va rog frumos o problema la informatică

Answer 1

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.