Numeros pitagoricos

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 5.130 ]

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

Visualizador De Imagem feito no Lazarus (Delphi 7 para Linux)

Visualizador de imagens feito no Lazarus

Arquivo texto

Questionário em estatisticas em 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

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts