Antes do código, uma definição:
Pra saber mais: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Acho que o código não precisa de muita explicação, ele só pede que o usuário insira dois valores (M e N) e verifica se M é maior que N, caso seja calcula o terno usando a fórmula de Euclides e imprime na tela.
Aí vai o código:
Em matemática, nomeadamente em teoria dos números, um terno pitagórico é formado por três números naturais a, b e c tais que a²+b²=c². O nome vem do teorema de Pitágoras que afirma que se as medidas dos lados de um triângulo rectângulo são números inteiros, então são um terno pitagórico. Se (a,b,c) é um terno pitagórico, então (ka,kb,kc) também é um terno pitagórico, para qualquer número natural k.
Acho que o código não precisa de muita explicação, ele só pede que o usuário insira dois valores (M e N) e verifica se M é maior que N, caso seja calcula o terno usando a fórmula de Euclides e imprime na tela.
Aí vai o código:
Código:
#!/usr/bin/perl system ("clear"); print ("Gerador de ternos pitagoricos\n"); print ("Me de um valor para M: "); $m = <STDIN>; print ("Agora para N: "); $n = <STDIN>; if ($m < $n) { print ("So posso calcular para M > N!\n"); die (); } $a = ($m * $m) - ($n * $n); $b = (2 * $m) * $n; $c = ($m * $m) + ($n * $n); print ("Temos a=$a b=$b e c=$c\n");