Calcular o valor da hipotenusa

[_4ndr3]

Program Teorema;
Var c1,c2,h:real;
{Este programa permite unicamente calcular a hipotenusa de um triângulo
rectângulo sabendo apenas o valor dos catetos}
{Criado por André - 4ndr3@sapo.pt}
Begin
 {Enunciado:}
 writeln('Este programa permite calcular a hipotenusa de um triângulo rectângulo');
 writeln('Para obtê-la introduza os valores de:');
 {Introdução dos valores dos catetos.}
 writeln('Cateto 1:');
 readln(c1);
 writeln('Cateto 2:');
 readln(c2);
 {Processamento interno para calculcar a hipotenusa usando o Teorema de Pitágoras.}
 h:=sqrt(c1*c1+c2*c2);
 {Resposta.}
 writeln('O valor da hipotenusa é: ',h);
 writeln;
 writeln('Para sair carregue Enter.');
 readln;
End.

É simples mas já ajuda em alguma coisa xD

[tugadigital]

Dá sempre jeito  😞

Já agora..

PROGRAM Teorema_de_Pitagoras;
USES CRT;
VAR c1,c2,h:real;
BEGIN
crlscr;
gotoxy(30,2);
writeln('»Teorema de Pitágoras«');
textcolor(12);
writeln;
writeln('Para obter a hipotenusa, introduza os valores;');
writeln;
textcolor(15);
writeln('Cateto 1');
readln(c1);
writeln('Cateto 2');
readln(c2);
h:=sqrt(c1*c1+c2*c2);
textcolor(8);
writeln('O valor da hipotenusa é: ',h:0:2);
writeln;
textcolor(15);
writeln('Prima qualquer tecla para sair...');
readkey;
END.

[CarlosLousada]

muito bom!!

[pekeno]

para calcular a hipotenusa nao se têm que somar os 2 catetos ao quadrado e fazer a raiz quadrada? o0

[fnds]

para calcular a hipotenusa nao se têm que somar os 2 catetos ao quadrado e fazer a raiz quadrada? o0

Sim.

[pekeno]

entao o codigo está errado

[pmg]

O que achas que a instrução h:=sqrt(c1*c1+c2*c2); está a fazer no código?

[pekeno]

a somar o quadrado dos catetos?

[pmg]

para calcular a hipotenusa nao se têm que somar os 2 catetos ao quadrado e fazer a raiz quadrada? o0

O que achas que a instrução h:=sqrt(c1*c1+c2*c2); está a fazer no código?

a somar o quadrado dos catetos?

Sim ... e mais qualquer coisa (o sqrt serve para calcular a raiz quadradra)

[pekeno]

pois nao sabia a função do sqrt :S

[pedrosorio]

entao o codigo está errado

pois nao sabia a função do sqrt :S

Pensar antes de falar

[pekeno]

so fui aprender 😛

[Gempis]

so fui aprender 🙂

Não é a pensar que sabes tudo que vais aprender, tens que ser mais humilde... 🙂