Numeros pitagoricos
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 5.162 ]
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
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Funções de Manipulação de Arquivos Pascal
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Colocando Windows como padrão no GRUB
Efeitos de luz, sombra e reflexo no DOOM clássico
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Meu headset wireless n funciona bem no linux (dongle) (3)
Não consigo usar dual boot no notebook Acer travelmate (2)
Mikrotik bloqueando sites sozinho (3)
Após atualização do Ubuntu 22.04.4 LTS perdi a instalação da placa de ... (6)
Ver computadores e similares conectados na rede doméstica pelo nome (7)