[Resolvido] Checagem do índice do vetor

[Martinsrj 0]

Olá pessoal!

Tenho o código abaixo, onde a intenção é que caso o numero digitado venha ser impar o mesmo venha ser somado por 5 senão multiplicado por 5.

 

Program check_indice;
Uses crt;
Var
vet_a, vet_b: array [1..10] of integer;
i : integer;
Begin 
  clrscr;
  Writeln ('Programa que faz a leitura de 10 elementos de uma matriz A do tipo vetor.  A Matriz B do mesmo tipo, acompanhando a seguinte lei de  formação: se valor do indice for par, o valor deve ser multiplicado por 5; sendo impar, deve ser somado com 5. Ao final, mostrar os conteudos das duas matrizes.');
For i := 1 to 10 do
  Begin
	Writeln ('Digite o ', i, 'valor:');
	readln (vet_a[i]);
End;
For
  Begin
	if vet_a[i] mod 2 = 0 then
	  vet_b[i] := vet_a[i] * 5
	Else
	  vet_b[i] := vet_a[i] + 5;
  End;
For i := 1 to 10 do
  Writeln ('Valores vetor A: ', vet_a[i]);
  Writeln ('Valores do vetor B: ', vet_b[i]);
end.
Readkey;

A minha dúvida é o seguinte:

Estou trabalhando com indice do vetor.

Quero que o programa imprima os valores no vet_a e o resultado da operação de vet_a * 5 ou vet_a + 5 que foi colocado no vet_b, porem o programa só exibe o que foi digitado que automaticamente armazenado no vet_a, mas não imprime os valores armazenados no vet_b.

Desde já agradeço ajuda! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[neeryck 0]

Apagaram meu post?!

[Mário Monteiro 179]

Neste topico nao exite ate o momento registro de operações de moderação

 

Alem do mais voce possui 3 posts, já contando com este flood acima

 

e eles estao todos disponiveis ainda

 

http://forum.imasters.com.br/index.php...amp;pid=1256906

http://forum.imasters.com.br/index.php...amp;pid=1257449

http://forum.imasters.com.br/index.php...amp;pid=1257482

[Martinsrj 0]

Neste topico nao exite ate o momento registro de operações de moderação

 

Alem do mais voce possui 3 posts, já contando com este flood acima

 

e eles estao todos disponiveis ainda

 

http://forum.imasters.com.br/index.php...amp;pid=1256906

http://forum.imasters.com.br/index.php...amp;pid=1257449

http://forum.imasters.com.br/index.php...amp;pid=1257482

Não entendi a sua colocação. Os links que você mencionou é para a minha dúvida?

Solicito um help onde estou errando na lógica que montei através do pascal.

Abraços.

[Mário Monteiro 179]

nao é para sua duvida, apenas respondi o neeryck que alegou ter tido um post apagado e nao teve, deve ter confundido e nao lembrado onde postou

[quitZAUMMM 18]

aki:

For
  Begin
	if vet_a[i] mod 2 = 0 then
	  vet_b[i] := vet_a[i] * 5
	Else
	  vet_b[i] := vet_a[i] + 5;
  End;

você num inicializa o 'i' nem nd..

reveja isso!

 

[]s

[Martinsrj 0]

aki:

For
  Begin
	if vet_a[i] mod 2 = 0 then
	  vet_b[i] := vet_a[i] * 5
	Else
	  vet_b[i] := vet_a[i] + 5;
  End;

você num inicializa o 'i' nem nd..

reveja isso!

 

[]s

Olá quitZAUMMM!

Consegui identificar o erro.

Tive que realizar o seguinte:

For i := 1 to 10 do
  Begin
	if vet_a[i] mod 2 = 0 then
	  vet_b[b] := vet_a[i] *5
	else
	  vet_b[i] := vet_a[i] +5;
  End;
For i := 1 to 10 do
  Begin
	writeln ('Valores do vetor A: ', vet_a[i]);
  end;
For i := 1 to 10 do
  Begin
	writeln ('Valores do vetor B: ', vet_b[i]);
  end;
readkey;
End.

[quitZAUMMM 18]

e agora o problema roda beleza?

 

[]s

[Martinsrj 0]

e agora o problema roda beleza?

 

[]s

Agora está rodando.

[quitZAUMMM 18]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif beleza!

 

vow aproveitar e editar o titulo do tópico para se encaixar nas regras do fórum!

 

---

Título Editado

 

[Dúvida] Checagem do indice do vetor. http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Checagem do índice do vetor