Question

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

Answer 1

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.