Maior numero do Vetor

Publicado por Leonardo 26/05/2007

[ Hits: 6.644 ]

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

controle de locadora

calcular o percentual de pessoas que sao maiores de idade

Array de números aleatórios não-repetidos de um intervalo em Pascal

Calculadora de cargas

soma de números pares


  

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