Maior numero do Vetor

Publicado por Leonardo 26/05/2007

[ Hits: 6.694 ]

Download V_MAIOR.PAS




Este script receberá de entrada 3 vetores, mostrará o maior elemento e ainda colocará o vetor digitado.

  



Esconder código-fonte

program vetores;
uses crt;
type
  vetor=array[1..100] of integer;

var
 a,b,c:vetor;
 ma,mb,mc,tam:integer;

 procedure ler(var v:vetor;dim:integer);
  var i:integer;
    begin
    for i:=1 to dim do
      begin
      readln(v[i]);
      end;
    end;
procedure escrever(var v:vetor;dim:integer);
   var i:integer;
   begin
     for i:=1 to dim do
       begin
       writeln(v[i]);
       end;
   end;
function maior(x:vetor;tam:integer):integer;
   var i,v:integer;

   begin
    v:=x[1];
    for i:=2 to tam do
   begin
     if x[i]>v then
     v:=x[i];
     maior:=v
   end;
end;

Begin
  clrscr;
  writeln('Digite o tamanho do vetores');
  readln(tam);writeln;
  writeln('Digite os valores do vetor A');
  ler(a,tam);writeln;
  writeln('Digite os valores do vetor B');
  ler(b,tam);writeln;
  writeln('Digite os valores do vetor C');
  ler(c,tam);writeln;

  ma:=maior(a,tam); mb:=maior(b,tam); mc:=maior(c,tam);

  clrscr;
  writeln('O maior elemento do vetor A eh : ',ma);
  writeln('O vetor A eh ');
  escrever(a,tam);writeln;
  writeln('O maior elemento do vetor B eh : ',mb);
   writeln('O vetor B eh ');
  escrever(b,tam);writeln;
  writeln('O maior elemento do vetor C eh : ',mc);
   writeln('O vetor C eh ');
  escrever(c,tam);writeln;
  writeln('Aperte Enter para sair');
  readln
end.

Scripts recomendados

Criptografador(Conceito criptografia)Lazarus

encontrar o menor valor em um vetor

Calculadora de cargas

Loops

média dos numeros informados em posiçoes pares em um vetor


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts