Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
ericalucca

[Resolvido] pascal array

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites
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;

Compartilhar este post


Link para o post
Compartilhar em outros sites

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ê.

Compartilhar este post


Link para o post
Compartilhar em outros sites
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...

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites
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!!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×