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

7) Crie um programa que receba os valores antigo e atual de um produto. Chame uma função que determine o percentual de acréscimo entre esses valores. O resultado deverá ser mostrado pelo programa principal.

Program Fun07 ;
var 
 v_ant,v_atual:real;
 
function acrescimo(n1,n2:real):real; {"n1" equivale à v_ant e "n1" à v_atual}  
var
valor_final:real;
 Begin    
    valor_final:=(n2*100)/n1;
    valor_final := valor_final-100;
    acrescimo:=valor_final;
 End;
 
{Main} 
 Begin
  Write('Valor Antigo do Produto: ');
  readln(v_ant);
  Write('Valor Atual do Produto : ');
  readln(v_atual);  
  Writeln('Percentual de acrescimo: ',acrescimo(v_ant,v_atual):0:2,'%');  
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação