Numeros pitagoricos

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.858 ]

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 imagens feito no Lazarus

Questionário em estatisticas em Pascal

Arquivo texto

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

ZCodEdit - Editor de textos com sintaxe HTML e Pascal


  

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