Numeros pitagoricos

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.768 ]

Download numeros_pitagoricos.PAS




programaqe intenta calcular los numeros qe enteros qe cumplen el teorema de piagoras

  



Esconder código-fonte

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.

Scripts recomendados

Funções de Manipulação de Arquivos Pascal

Visualizador de imagens feito no Lazarus

Cadastro Empresarial

ZCodEdit - Editor de textos com sintaxe HTML e Pascal

Manipulação de arquivos


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts