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

• Download numeros_pitagoricos.PAS
• Enviar nova versão

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.

Cadastro Empresarial

Manipulação de arquivos

Visualizador de imagens feito no Lazarus

Equação do segundo grau

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

Nenhum comentário foi encontrado.