Jump to content
Lucas de Souza Benevenute

Exercício de vetores

Recommended Posts

Lucas de Souza Benevenute

Olá, gostaria de pedir ajuda para resolver este exercício em Pascal;


1 - Elabore um programa que leia dois vetores inteiros de 20 elementos cada, depois some seus elementos, gerando um terceiro vetor. Ao final, mostre o novo vetor gerado.

Isto é o que fiz até o momento, porém não sei como somar os elementos dos vetores A e B para gerar o C, penso que seja  algo como somar A[1]+B[1] = c[1]...

Program Ex1 ;
const
  n = 20;
var
  A : array[1..20] of integer;
  B : array[1..20] of integer;
  soma, i : integer;
Begin
  for i := 1 to n do
    begin
      Writeln('Informe o valor ',i,' do primeiro vetor:');
      readln(A);
    end;            
                    
  for i := 1 to n do
    begin
      Writeln('Informe o valor ',i,' do segundo vetor:');
      readln(B);
    end;        
End.

 

Edited by nunopicado
Syntax Highlight

Share this post


Link to post
Share on other sites
nunopicado

Olhando para o código, acho que não percebeste a ideia do exercício...
Mas olhando para o que disseste, parece que entendeste...

...

A variável soma não faz falta no exercício, mas sim o tal array C.

Para somar, é quase isso:

for i := 1 to n do
  C[i] := A[i] + B[i];

A partir daí é mostrar o resultado no ecrã.

Resumindo, precisas de 3 arrays, uma variável de índice para os FOR e 4 ciclos FOR (partindo do princípio que não vais criar funções/procedimentos para reaproveitar código).
 

  • Vote 1

"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
Lucas de Souza Benevenute

Consegui!
Muito obrigado pela ajuda, o código final ficou assim;

const
  n = 20;
var
  A : array[1..20] of integer;
  B : array[1..20] of integer;
  C : array[1..20] of integer;
  soma, i : integer;
Begin
  for i := 1 to n do
    begin
      Writeln('Informe o valor ',i,' do primeiro vetor:');
      readln(A);
    end;            
                    
  for i := 1 to n do
    begin
      Writeln('Informe o valor ',i,' do segundo vetor:');
      readln(B);
    end;
     
  for i := 1 to n do
    begin
      C := A + B;
      Writeln('C[',i,'] = ',C); 
    end;             
End.

 

Edited by nunopicado
Syntax Highlight

Share this post


Link to post
Share on other sites
nunopicado

Tens a certeza que isso compila?
Olha bem na apresentação de resultados.


"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
Lucas de Souza Benevenute

Sim, compilou e mostrou os resultados corretamente.

Share this post


Link to post
Share on other sites
nunopicado

Sem indicar o índice do array C?

Writeln('C[',i,'] = ',C);

 


"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Share this post


Link to post
Share on other sites
Lucas de Souza Benevenute

Perdão, dei Ctrl+c errado no compilador.

Writeln('C[',i,'] = ',C);

Edited by Lucas de Souza Benevenute

Share this post


Link to post
Share on other sites
Lucas de Souza Benevenute

Na verdade estou colocando o colchete no 'C' porém quando envio a resposta ele é apagado... seria um bug do site?

Enfim, indiquei o índice no meu código e funcionou corretamente.

 

Edited by Lucas de Souza Benevenute

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.