ajutor am nevoie de rezolvarea pe lung a unei probleme in pascal de la program pina la end, problema2 VA rog ,pe lung , că sa inteleg dau coroana e urgeeent

Question

a fost răspuns

Răspuns :

Boiustef Boiustef · Answer 1 · 2018-11-18T22:31:58+02:00

program rezTrDreptunghic;

var a, b, c, P, aria, alfa, beta: real;

begin

write('a='); readln(a); { se citeste de la tastatura cateta a }

write('b='); readln(b); { se citeste de la tastatura cateta b }

{ dupa teorama Pitagora aflam ipotenuza }

c:=sqrt(a*a + b*b); { am calculat ipotenuza }

P:= a + b + c; { am aflat perimetrul }

aria := a*b/2; { am calculat aria triungiului dupa formula S=latura*inaltime/2 }

alfa := arctan(a/b); { cu functia predefinita arctan(x) se afla unghiul in radiani }

{ tangenta caruia este egala cu x. la noi tg(alfa)=a/b }

beta := arctan(b/a); { se calculeaza unghiul beta ... explicatiile sunt analoage }

Writeln('ipotenuza=', c:0:2); {afisare iptenuza cu 2 cifre dupa virgula }

writeln('perimetrul=', P:0:2);

writeln('aria=', aria:0:2);

writeln('unghiul alfa = ', alfa:0:2, ' radiani');

writeln('unghiul beta = ', beta:0:2, ' radiani');

end.