Maior numero do Vetor

Publicado por Leonardo 26/05/2007

[ Hits: 6.639 ]

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

Média e soma de números

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Tratar campos not null

Coleta de dados de alunos em Pascal

armazenar estoque em uma matriz


  

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