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

Me ajudem a resolver estes algorítmos(Pascal ZIM!)

Recommended Posts

Nao consigo resolver estes algorítmos nem a pau =x

1-Leia dois vetores de 20 posições e num outro vetor coloque, nas posições pares os valores do primeiro e nas posições impares os valores do segundo.

2-Leia um vetor contendo letras de uma frase inclusive espaços em branco. Retirar os espaços em branco do vetor e depois escrevê-lo.

3-Leia um vetor de 10 posições e verifique se existem valores iguais e os escreva.

Se alguem puder ajudar a resolver ficarei grato. ^.^

Estes algoritmos tem que estar prontos ate as 14:00.

Compartilhar este post


Link para o post
Compartilhar em outros sites

resposta pro 1:

program bla bla bla;

uses crt;

var a,b: array[1..20] of real;

c: array[1..40] of real;

i,z:integer;

begin

for i:=1 to 20 do

readln(a);

for i:=1 to 20 do

readln(b);

i:=1;

z:=1;

repeat

c:=a[z]

c[i+1]:=b[z]

i:=i+2;

z:=z+1;

until i=40;

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

resposta da 2

var a,b:string; {se você nao sabe uma string é um array de char}

i:integer;

begin

readln(a);

for i:=1 to length(a) do

if a<>' ' then b:=a;

writeln(B);

end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

var a,b: array[1..10] of integer;

i:integer;

z:integer;

begin

for i:=1 to 10 do begin

readln(a);

readln(b);

end;

for i:=1 to 10 do

for z:=1 to 10 do

if a=b[z] then writeln (a);

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aí cara, valeu, demorei pra responde porquê ultimamente minha internet não anda muito boa. =(

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
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

×