potencia.pas

   1 program potencia;\r
   2 \r
   3 function pot(base, exp: integer): integer;\r
   4 \r
   5 begin\r
   6      if exp > 0 then pot := base * pot(base, exp - 1)\r
   7                 else pot := 1;\r
   8 end;\r
   9 \r
  10 var\r
  11    i: integer;\r
  12    cadena: string[4];\r
  13 \r
  14 begin\r
  15      writeln (' 2 a la 4 es: ', pot(2,4));\r
  16      writeln (' 3 al cubo es: ', pot(3,3));\r
  17      cadena := 'Luca';\r
  18      for i := 0 to 3 do if cadena[i+1] = 'a' then writeln('letra ', i+1, ' = ', pot(2,i));\r
  19 end.\r