pascal array

[Visitante: ericalucca]

vocês poderiam me ajudar a fazer esses exercicios ?!!!

ficarei muito agradecida!!!

1_Ler um vetor de 10 elementos e obter outro vetor, cujos componentes são o triplo dos

respectivos componentes do primeiro vetor.

2_. Entrar com números inteiros em um vetor A[50] e um vetor B[50]. Gerar e imprimir o

veto C[50] que será a soma dos vetores A e B.

[OvEr_BuRn]

eu posso ajudar mas não vou resolvê-los para você, sugiro que ao menos tente começar os exercícios e colocar alguma lógica neles. Depois poste o que você já fez e então te ajudarei.

[Visitante: ericalucca]

eu posso ajudar mas não vou resolvê-los para você, sugiro que ao menos tente começar os exercícios e colocar alguma lógica neles. Depois poste o que você já fez e então te ajudarei.

obrigado !! to te mandando mais ou menos o que fiz eu nao sei onde colocar esse tripo!!

var

i:inteiro;

vetor:array[1..10] of intenger;

begin

for i:=to 10 do

writeln('digite o valor, ,i, do vetor');

readln(vetor);

end;

[viniciusbmatos]

Completando o que você já fez:

for i:=1 to 10 do
  novo_vetor[2]:=3*vetor[i];
writeln('Novo vetor:');
for i:=1 to 10 do
  writeln(novo_vetor[i]:0);

Agora faça o outro. Podemos ajudar, não vamos fazer os exercícios por você.

[Visitante: ericalucca]

Completando o que você já fez:

for i:=1 to 10 do
  novo_vetor[2]:=3*vetor[i];
writeln('Novo vetor:');
for i:=1 to 10 do
  writeln(novo_vetor[i]:0);

Agora faça o outro. Podemos ajudar, não vamos fazer os exercícios por você.

muito obrigado!!

no segundo nao sei de so o inicio como declarar a variavel?

exemplo

var

a[50],b[50]of intenger;

etc...

[Simon Viegas]

Completando o que você já fez:

novo_vetor[2]:=3*vetor[i];
writeln('Novo vetor:');
for i:=1 to 10 do
writeln(novo_vetor[i]:0);

for i:=1 to 10 do

Agora faça o outro. Podemos ajudar, não vamos fazer os exercícios por você.

Olá,

Eu juntei as duas partes... e ao mesmo tempo propus algumas alterações. (os comentário estão no código)

var
  (*
  i     :inteiro;

  // o tipo correto seria "integer" (ou byte)
  *)
  i     :integer; 

  (*
  vetor :array[1..10] of intenger;

  // o tipo correto seria "integer"
  *)

  vetor,
  novo_vetor  :array[1..10] of integer;


begin

for i:=to 10 do
  begin {esse "for" precisa de begin/end, já que são mais de uma linha dentro dele}
  (*
  writeln('digite o valor, ,i, do vetor');

  // os textos devem ficar entre ' ' (aspas simpes), mas as variáveis não!
  *)
  writeln('digite o valor',i,' do vetor'); {veja a diferença}
  readln(vetor[i]);
  end; {fim for}

for i:=1 to 10 do
  (*
  novo_vetor[2]:=3*vetor[i];

  //aqui a posição está fixa (sempre na 2, mas deveria ir em sequência...
  *)
  novo_vetor[i]:=3*vetor[i]; {no caso as posições vão sendo iguais a do primeiro vetor}

writeln('Novo vetor:');
for i:=1 to 10 do
  writeln(novo_vetor[i]:0);
end;

Código sem os comentários

var
  i           :integer;                 {controle da posição no vetor}
  vetor,                                {números lidos do usuário}             
  novo_vetor  :array[1..10] of integer; {novos valores gerados}

begin

{LER OS VALORES DO USUÁRIO}
for i:=to 10 do
  begin
  writeln('Digite o valor',i,' do vetor');
  readln(vetor[i]);
  end; {fim for}

{CALCULA E INSERI OS NOVOS VALORES NO NOVO VETOR}
for i:=1 to 10 do
  novo_vetor[i]:=3*vetor[i];

{EXIBE OS VALORES DO NOVO VETOR}
writeln('Novo vetor:');
for i:=1 to 10 do
  writeln(novo_vetor[i]:0);
end;

Qualquer coisa é só postar

Abraços

[viniciusbmatos]

for i:=1 to 10 do
  (*
  novo_vetor[2]:=3*vetor[i];

  //aqui a posição está fixa (sempre na 2, mas deveria ir em sequência...
  *)
  novo_vetor[i]:=3*vetor[i]; {no caso as posições vão sendo iguais a do primeiro vetor}
[/QUOTE] 

Desculpe, foi erro de digitação. 

Sobre o segundo, aqui vai um começo:

[code]
uses
  crt;
const
  tamanho=50;
var
  A,B,C: array[1..tamanho] of longint;
  i: byte;
begin
  for i:=1 to tamanho do
    begin
      clrscr;
      writeln('A - #',i:0);
      readln(A[i]);
    end;
  for i:=1 to tamanho do
    begin
      clrscr;
      writeln('B - #',i:0);
      readln(B[i]);
      C[i]:=A[i]+B[i];
    end;
  clrscr;
  for i:=1 to tamanho do
    writeln('C[',i:0,'] = ',C[i]:0);
  readkey;
end.

[Visitante: ericalucca]

Desculpe, foi erro de digitação.

Sobre o segundo, aqui vai um começo:

uses
  crt;
const
  tamanho=50;
var
  A,B,C: array[1..tamanho] of longint;
  i: byte;
begin
  for i:=1 to tamanho do
    begin
      clrscr;
      writeln('A - #',i:0);
      readln(A[i]);
    end;
  for i:=1 to tamanho do
    begin
      clrscr;
      writeln('B - #',i:0);
      readln(B[i]);
      C[i]:=A[i]+B[i];
    end;
  clrscr;
  for i:=1 to tamanho do
    writeln('C[',i:0,'] = ',C[i]:0);
  readkey;
end.

Muito obrigada!!

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.