Exercício 15 Funções e Procedimentos - Pascal

15) Faça uma função que calcule a potencia de um número. Crie um programa que leia a base e o expoente, e utilize a função para mostrar o resultado.

Program Fun14;
var  
 base,exp:integer; 

function potencia(base,exp:integer):integer; 
var i,acum:integer;
 Begin    
    acum:=1; {recebe 1 pq se começar com zero o resultado vai ser 0 por q é multiplicação}
    for i := 1 to exp do
        acum:= acum * base;
    potencia:=acum;    
 End;
 
{Main} 
 Begin
  Writeln('POTENCIA');      
  Write('Informe Base  : ');
  readln(base);   
  Write('Informe Base  : ');
  readln(exp    );   
  Writeln('Area: ',potencia(base,exp));        
  Writeln('            by Marcus Vinicius');       
 End.

Categories: Pascal , Programação