Problemas com vetores em pascal

jorgeorei · 11 de junho de 2010

Ae galera iniciei o curso e estou com problemas em vetores. gostaria se alguem puder da uma ajuda nessa parte.

O professor não explico muito bem só lanço uns exercícios na tela e to super confuso.

[COLOR="Red"]Var[/COLOR]
V: array[1..5]of integer
[COLOR="Red"]Begin[/COLOR]
//preenchendo um vetor
For i:=1 to 5 do
    Read(v[i]);
//Exibindo um vetor 
For i:=1to 5 do
Writeln (‘[‘,i,’]=’,v[i]);

e a partir disso deu esses exercícios.

1)Verificar e apresentar o elemento de menor valor.

2)Somando os elementos que sejam impares.

3Solicitar um número ao usuário e verificar quantos destes existe no vetor.

4)Copiar os elementos do vetor num 2º vetor.

5)Somar os elementos cujo índice seja par.

Agradeço deis de já e se alguem puder também explicar um pouco ira me salva na minha próxima prova.

valecovo · 11 de junho de 2010

Espero que estudes este código:

program vetor;
uses crt;

Var V1: array[1..5] of integer;
    V2: array[1..5] of integer;
    op: char;
    i, menor, soma: integer;

procedure ler;
Begin
  clrscr;
  writeln('Insira 5 valores inteiros');
  //preenchendo um vetor
  For i:=1 to 5 do Readln(v1[i]);
end;

procedure imprimir;
begin
  clrscr;
  //Exibindo um vetor
  writeln('Valores registados');
  For i:=1to 5 do Writeln('[',i,']= ', v1[i]);
  readln;
end;

procedure MenorValor;
begin
  clrscr; 
  menor:= v1[1];
  for i:= 2 to 5 do
  begin
    if menor > v1[i] then menor:= v1[i];
  end;
  writeln('O menor valor digitado e: ', menor);
  readln;
end;

procedure SomaImpares;
begin
  clrscr;
  soma:= 0;
  for i:= 1 to 5 do
  begin
    if (v1[i] mod 2) <> 0 then soma:= soma + v1[i];
  end;
  writeln('A soma dos numeros impares e: ',soma);
  readln;
end;


procedure Iguais;
var n: integer;
begin
  clrscr;
  write('Digite um  numero: ');
  readln(n);
  soma:= 0;
  for i:= 1 to 5 do
  begin
    if n = v1[i] then soma:= soma + soma+1;
  end;
  if soma > 0 then
    writeln('No vetor existem ', soma,' valores iguais ao digitado.')
  else writeln('No vetor nao existem valores iguais ao digitado.');
  readln;
end;

procedure CopiarVetor;
begin
  clrscr;
  writeln('Copiar Vetor de V1 para V2');
  begin
    For i:=1 to 5 do v2[i]:= v1[i];
  end;
  writeln('Vetor copiado');
  readln;
end;

procedure SomaPares;
begin
  clrscr;
  soma:= 0;
  for i:= 1 to 5 do
  begin
    if (i mod 2) = 0 then soma:= soma + v1[i];
  end;
  writeln('A soma dos numeros cujo indice do vetor e par e: ',soma);
  readln;
end;

begin
  repeat
    clrscr;
    writeln('                 1 - Ler dados');
    writeln;
    writeln('                 2 - Apresentar dados');
    writeln;
    writeln('                 3 - Elemento de menor valor digitado');
    writeln;
    writeln('                 4 - Soma dos elementos impares');
    writeln;
    writeln('                 5 - Numeros iguais');
    writeln;
    writeln('                 6 - Copiar vetor');
    writeln;
    writeln('                 7 - Soma dos elementos cujo indice seja par');
    writeln;
    writeln('                 0 - SAIR');
    op:=readkey;
    case op of
      '1': Ler;
      '2': Imprimir;
      '3': MenorValor;
      '4': SomaImpares;
      '5': Iguais;
      '6': CopiarVetor;
      '7': SomaPares;
    end;
  until op='0';
end.

jorgeorei · 11 de junho de 2010

valeu AMIGO EU FIZ também E CONSEGUI COMPILAR, MAS AGRADEÇO POR ENSINAR DESSA FORMA, vou DEIXA A MINHA COMO EU FIZ aqui

Program varios ;
Var
V,T: array[1..5]of integer;
Menor,i,s,SomImp,SomaNumRep,nume,SomPar: Integer;
Begin
//preenchendo um vetor
For i:=1 to 5 do
    Read(v[i]);
//Exibindo um vetor 
For i:=1to 5 do
Writeln ('[',i,']=',v[i]);
//somando os elementos do vetor 
S:=0;
For i:=1 to 5 do
S:=S+v[i];
Write('soma:',S);
//Exibindo elemento de menor valor
Menor:= v[1];
For i:=1to 4 do
If Menor>v[i+1] then
Menor:= v[i+1];
Write('menor valor:',Menor);
//Calcular os valores impares
SomImp:= 0;
For i:= 1 to 5 do
If (v[i] mod 2) <>0 then
somImp:= SomImp + v[1];
Write('Soma dos Impares:',SomImp);
//Procurando numero no vetor
Read(Nume);
SomaNumRep:= 0;
For i:=1to 5 do
If Nume=v[i] then
somaNumRep:= somaNumRep + 1;
Write('Foram encontrados:', somaNumRep);
//Compiando para  um Segundo vetor
For i:=1 to 5 do
T[i]:= v[i];
//Calcular os valores Pares
SomPar:= 0;
For i:= 1 to 5 do
If (v[i] mod 2) = 0 then
somPar:= SomPar + v[i];
Write('Soma dos pares:',SomPar)
End.