👤

Crează un program ( in turbo pascal) care va calcula aria unui triunghi arbitrar.

Răspuns :

var a,b,c,sp,S:real;
begin
Writeln('Introduceti lungimilie laturilor:');
read(a,b,c);
sp:=(a+b+c)/2; //Semi perimetru
S:=sqrt(sp*(sp-a)*(sp-b)*(sp-c)); //Formula lui Heron
Writeln('Aria triunghiului: ',S:0:2,' cm^2');
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari