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

• Download V_MAIOR.PAS
• Enviar nova versão

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.

Crivo de Eratóstenes Simples em Ada 95

jogo bobo testando com case

Extenso em dll, com parâmetros adicionais

Calculadora completa com porcentagem(Lazarus)

intercalar dois arrays (vetores)

Nenhum comentário foi encontrado.