Quadrado e Cubo dos números entre 1 e 20 em Pascal.

Program QUADRADO_CUBO_DE_UM_NUMERO;
uses crt;
var
i : integer;
begin

     // Site: http://programjm.blogspot.com.br/
     // Autor: João Matheus Santos Assis.

     {
      Esse programa calcula o quadrado e cubo dos números
      compreendidos entre 1 e 20.
     }

     textcolor (15);

     for i:= 1 to 20 do begin
         gotoxy (1,i);
         write ('Base: ',i);
         gotoxy (17,i);
         write ('Quadrado: ',sqr(i));
         gotoxy (37,i);
         writeln ('Cubo: ',exp( 3 * ln(i) ):3:1);
     end;

readkey;
end.


Artigos relacionados em Pascal:

• Calculando o IMC em Pascal
• MDC em Pascal
• Desenhando um quadrado em Pascal
• Desenhando um triângulo em Pascal
• Calculadora Simples em Pascal

Feito no Dev-Pascal 1.9.2 | Executável