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

12) Altere o programa número 11 de forma que ele seja resolvido utilizando função.

Program Fun12;
const MAX=5;
Type 
    vetor=array[1..MAX] of integer; {cria um Tipo para fazer a passagem por parametros}
var  
 i:integer;
 V:vetor; {V é um vetor de 5 posições}
 
{Função Menor} 
function menor(V:vetor):integer; {fica mais simples as passagem}
var m:integer;
 Begin        
    m:=V[1]; {atribuinto o 1º valor do vetor para testar com os demais}    
        for i := 1 to MAX do
            Begin
                if (V[i] < m)   then
                    m := V[i];                
            End;
    menor:=m;            
 End;
 
{Função Maior} 
function maior(V:vetor):integer; {fica mais simples as passagem}
var m:integer;
 Begin        
    m:=V[1]; {atribuinto o 1º valor do vetor para testar com os demais}    
        for i := 1 to MAX do
            Begin
                if (V[i] > m)   then
                    m := V[i];                
            End;
    maior:=m;            
 End;
 
{Main} 
 Begin
  for i := 1 to MAX do
    Begin
        Write(i,' Informe Valor: ');
        readln(V[i]); {a leitura é feita da mesma forma colocando o indice do vetor}
    End;    
    Writeln('Maior: ',maior(V));
    Writeln('Menor: ',menor(V));
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação