Va rog mult mult elaboratoi un program in pascal
Elaborati o functie care calculeaza aria dreptunghiului
Se considera urmatoarele tipuri de date:
type Punct=record
x,y:real
end;
Dreptunghi=record
A,B,C,D:Punct
end;
function dist(A,B:Punct):real; begin dist:=sqrt(sqr(b.x - a.x)+sqr(b.y-a.y)); end; function aria(d:dreptunghi):real; begin aria:=dist(d.a,d.b)*dist(d.a,d.d); end;
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!