Numeros pitagoricos
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 5.449 ]
Download numeros_pitagoricos.PAS
programaqe intenta calcular los numeros qe enteros qe cumplen el teorema de piagoras
program numeros_pitagoricos;
uses crt;
var a,b,c:integer;
archivo:text;
BEGIN
clrscr;
assign(archivo,'D:\abraham\programacion\delphi\numeros pitagoricos.txt');
rewrite(archivo);
{writeln(' a b c');}
{writeln('');}
writeln(archivo,' a b c');
FOR A:=1 TO 50 DO
FOR B:=1 TO 50 DO
begin
c:=trunc(sqrt(sqr(a)+sqr(b)));
IF c*c=a*a+b*b then
begin
writeln(archivo,a:8,' ', ' ',b:8, ' ' ,c:8);
end;
end;
close(archivo);
end.
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Visualizador de imagens feito no Lazarus
Funções de Manipulação de Arquivos Pascal
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Programa fora de escala na tela do pc (10)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)
O programa assinador digital (1)









