Question

Cerința

Cunoscând laturile unui trapez isoscel, să se calculeze lungimea diagonalei.
Date de intrare

Programul citește de la tastatură numerele reale B, b și l, separate prin spații, reprezentând baza mare, baza mică și lungimea laturilor oblice.
Date de ieșire

Va rog frumos in Pascal
Urgent - Dau Coroana

Programul va afișa pe ecran numărul d, reprezentând diagonala trapezului.
Restricții și precizări

0 < B, b, l, d < 1000
rezultatul va fi punctat dacă diferența dintre cel afișat de program și cel corect este mai mică decât 0.01.


Exemplu

Intrare

6 2 5

Ieșire

6.08276

Explicație

Valoarea bazei mari este 6, baza mică este 2, laturile oblice au valoarea 5. Diagonala trapezului este 6.08276

Answer 1

Program trapez;var B1,b2,l,d,h2:Real;beginrepeat  write('Baza mare=');Readln(B1);until (b1>0)and(B1<1000);repeat  write('Baza mica=');Readln(B2);until (b2>0)and(b2<1000)and(b2<b1);repeat  write('Lungimea laturilor oblice');Readln(l);until (l>0)and(l<1000)and(l>((b1-b2)/2));h2:=l*l-(((B1-B2)/2)*((b1-b2)/2));d:=sqrt(((b1-b2)/2+b2)*((b1-b2)/2+b2)+h2);{}writeln('D=',d);readln;end.