Question

Se dau lungimile laturilor unui dreptunghi. Scrie un program ce afișează diagonala lui.
Problema în Pascal
Ajutați ma va rog multttt.!!!

Answer 1

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:

$diagonala^{2} =L^{2} +l^{2} =>diagonala=\sqrt{L^{2} +l^{2} }$

sqrt este functia radical in Pascal