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.

Gerador de Senha no Lazarus

Extenso em dll, com parâmetros adicionais

encontrar o maior e o menor valor em um vetor

cadastro de um cliente com registro

Executar comando do DOS.

Nenhum comentário foi encontrado.