• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

_4ndr3

Calcular o valor da hipotenusa

13 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Sim.
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

entao o codigo está errado

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

Pensar antes de falar

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

so fui aprender :)

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

0

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