Jump to content


Photo

Ajuda Num Programinha Em Pascal


  • Faça o login para participar
1 reply to this topic

#1 Turbth

Turbth

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 29/07/2009, 09:43

O programa é o seguinte:


Elaborar um programa que leia dois vetores com 10 números cada, e armazene e exiba os valores dos dois vetores num terceiro vetor.

Se alguem puder fazer ou pelo menos me dar uma dica de como fazer ficaria muito grato. Minhas tentativas não deram muito certo. Vo colocar o que eu tentei aqui em casa:

program exerc01;
uses wincrt;
var n1,n2:array[1..10]of integer;
total:array[1..20]of integer;
i,j:integer;
begin
	 writeln('Informe 10 numeros para serem colocados no 1º vetor');
	 for i:=1 to 10 do
	 readln(n1[i]);
	 writeln('Informe 10 numeros para serem colocados no 2º vetor');
	 for i:=1 to 10 do
	 readln(n2[i]);
	 clrscr;
	 for i:=1 to 20 do
	 begin
		  if (i<=10) then
		  total[i]:=n1[i];
		  for j:=11 to 20 do
		  begin 
				if (i>10)then
				total[j]:=n2[i];
		  end;
	 end;
	 for i:=1 to 20 do
	 begin
		  writeln(total[i]);
	 end;
end.


flw pessoal e muito obrigado aqueles q me ajudarem

#2 Simon Viegas

Simon Viegas

    Novato no fórum

  • Usuários
  • 5 posts
  • Sexo:Não informado

Posted 15/10/2009, 13:46

O programa é o seguinte:


Elaborar um programa que leia dois vetores com 10 números cada, e armazene e exiba os valores dos dois vetores num terceiro vetor.

Se alguem puder fazer ou pelo menos me dar uma dica de como fazer ficaria muito grato. Minhas tentativas não deram muito certo. Vo colocar o que eu tentei aqui em casa:

program exerc01;
uses wincrt;
var n1,n2:array[1..10]of integer;
total:array[1..20]of integer;
i,j:integer;
begin
	 writeln('Informe 10 numeros para serem colocados no 1º vetor');
	 for i:=1 to 10 do
	 readln(n1[i]);
	 writeln('Informe 10 numeros para serem colocados no 2º vetor');
	 for i:=1 to 10 do
	 readln(n2[i]);
	 clrscr;
	 for i:=1 to 20 do
	 begin
		  if (i<=10) then
		  total[i]:=n1[i];
		  for j:=11 to 20 do
		  begin 
				if (i>10)then
				total[j]:=n2[i];
		  end;
	 end;
	 for i:=1 to 20 do
	 begin
		  writeln(total[i]);
	 end;
end.


flw pessoal e muito obrigado aqueles q me ajudarem



Olá Turbth,

O jeito mais fácil é você utilizando um contador para gerenciar o terceiro vetor... Daí a cada inserção vai atualizando esse "contador".

Ai você pode fazer de duas formas:

Usa um laço de repetição para cada vetor ou um para os dois. Para este último caso será inserido um elemento de cada vetor por loop.

Abraços
Abraços
Simon Viegas - Analista de Sistemas
Blog: EstilingueAtomico
http://estilingueatomico.blogspot.com




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq