2 replies to this topic

[vida loca]

pessoalme ajudem aqui

Faça um algoritmo para ler e montar um vetor de números inteiros com 50 posições. Depois de montado, o vetor
ler 10 números inteiros quaisquer e para cada número lido imprimir se este existe ou não no vetor
eu fiz ate uma certa parte mas ñ esta escrevendo os numeros todos iguais as do vetor

[codebox]
var
n_numeros : vetor[1..50] de real
num, cont : inteiro
inicio
cont := 1
enquanto cont<=50 faca
leia (n_numeros [cont])
cont:= cont + 1
fimenquanto
cont:= 1
enquanto cont <= 10 faca
leia (num)
se (num) = (n_numeros [cont]) entao
escreva (num, n_numeros [cont])
fimse
cont := cont + 1
fimenquanto
fimalgoritmo
[/codebox]

Edição feita por: vida loca, 01/02/2008, 18:35.

[§ Kenshin §]

to enferrujado no pascal, mas tenta ai:

se (num = n_numeros [cont]) entao

so nao lembro se no pascal usa = ou == no if.

vlw

[vida loca]

pensei bastante e cheguei aqui

[codebox]var
n_numeros : vetor[1..10] de real
num, cont,cont_num : inteiro
inicio
cont_num := 0
cont := 1
enquanto cont<= 10 faca
leia (n_numeros [cont])
cont:= cont + 1
fimenquanto
repita
cont:= 1
leia (num)
cont_num:= cont_num + 1
enquanto cont <= 10 faca
se (num) = (n_numeros [cont]) entao
escreva (num, n_numeros [cont])
fimse
cont := cont + 1
fimenquanto
ate cont_num = 5
fimalgoritmo[/codebox]