elaborati 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 pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!