Potências de 2 de 0 a 10 em pascal

[ucastro]

Consegui fazer usando "for to do" ou "para até faça" mas sem a função exp e ln. Por isso queria uma sujestão de como fazer com a função exp e ln.

Veja abaixo como ficou sem a função.

program potenciacao;
uses crt;

var

base,potencia:integer;

begin

clrscr;



for base:=1 to 10 do
begin
potencia:=base*base;
writeln(base:6,' elevado ao quadrado =',potencia:6);

end;



end.

[Denis Courcy]

Consegui fazer usando "for to do" ou "para até faça" mas sem a função exp e ln. Por isso queria uma sujestão de como fazer com a função exp e ln.

Veja abaixo como ficou sem a função.

program potenciacao;
uses crt;
var
base,potencia:integer;
begin
clrscr;
for base:=1 to 10 do
begin
potencia:=base*base;
writeln(base:6,' elevado ao quadrado =',potencia:6);
end;
end.

Oi, 'ucastro' ! Tente assim:

program potenciacao;

uses crt;

var
   base, potencia: integer;
   frase: string;
begin
   clrscr;
   for base := 1 to 10 do
   begin
       case base of
          2: frase := 'quadrado';
          3: frase := 'cubo';
          4: frase := 'quarta';
          5: frase := 'quinta';
          6: frase := 'sexta';
          7: frase := 'setima';
          8: frase := 'oitava';
          9: frase := 'nona';
         10:frase := 'decima';
       end;
       writeln(base, ' elevado a(o) ' + frase  + ' = ', exp(base, potencia));
   end;
end.

Não lembro se é exp(base, potencia) ou se é exp(potencia, base).