Răspuns:
program diagonala;
var lungime, latime, diag:real;
begin
write('Introduceti lungimea dreptunghiului : ');
readln(lungime);
write('Introduceti latimea dreptunghiului : ');
readln(latime);
{Se aplica teorema lui Pitagora}
{diagonala la patrat = radical din lungime la patrat+latime la patrat}
diag:=sqrt(lungime*lungime+latime*latime);
{Afisam lungimea diagonelei pe 15 pozitii cu doua zecimale}
writeln('Lungimea diagonalei este : ',diag:15:2);
readln;
end.
Explicație:
Daca desenezi un dreptunghi si ii duci o diagonala iti rezulta doua triungiuri dreptunghice congruente.
Intr-unul din ele aplici teorema lui Pitagora:
[tex]diagonala^{2} =L^{2} +l^{2} =>diagonala=\sqrt{L^{2} +l^{2} }[/tex]
sqrt este functia radical in Pascal
