Informatică, întrebare adresată de Utilizator anonim, 8 ani în urmă

Cerința

Cunoscând diagonalele unui romb, să se calculeze perimetrul și aria acestuia.
Date de intrare

Programul citește de la tastatură numerele reale d1 și d2, separate prin spații, reprezentând cele două diagonale ale rombului.
Date de ieșire

Programul va afișa pe ecran perimetrul și aria rombului, separate prin spațiu.
Restricții și precizări

0 < d1, d2 < 100
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

2 4

Ieșire

8.94427 4

Explicație

Valorile celor două diagonale sunt 2 și 4. Perimetrul este 8.94427, iar aria este 4.

Va rog frumos in Pascal
Urgent - Dau Coroana

Răspunsuri la întrebare

Răspuns de alexbatista00
0
1.) rombul : Aromb=(d1×d2)/2
Promb=suma laturilor rombului

nituleacmreinnm: Program romb;
var d1,d2,s,p:real;
begin
repeat write('d1=');readln(d1) until (d1>0)and(d1<100);
repeat write('d2=');readln(d2) until (d2>0)and(d2<100);
p:=4*sqrt((d1*d1/4)+(d2*d2/4));
s:=(d1*d2)/2;
write(p,' ',s);
readln;
end.
Alte întrebări interesante