Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

_4ndr3

Calcular o valor da hipotenusa

Mensagens Recomendadas

_4ndr3    0
_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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
tugadigital    0
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
pmg    102
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)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade