Numeros pitagoricos
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 5.217 ]
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.
Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)
Funções de Manipulação de Arquivos Pascal
Questionário em estatisticas em Pascal
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Visualizador de imagens feito no Lazarus
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Google Chrome não para de escrever no disco (1)
Notebook samsung 550xda não reconhece mais SSD (1)
Isso ta me cansando [RESOLVIDO] (4)
Inicio de uso do Mint 32bits (19)
Notebook instalado com Linux Debian de fábrica dando problema (3)