Podem me Ajudar?

[|=Zero*d-_-b*Cold=|]

aí pessoal tenho um problema para resolver, se vocês puderem me ajudar... o problema é o seguinte, tenho q fazer um programinha q me de:

50 numeros da serie 1000/1+997/2-994/3+991/4....

entenderam?....

sei q isso é fácil para vocês, mais to me matando e não acho a logica...

se puderem me ajudar... fico muito agradecido...

...valeu...

[silversp]

aí cara, o seu problema deve ser resolvido da seguinte maneira:

crie uma variavel "a" com o valor 1000 ou seja a=1000; crie então

uma variavel "b" com o valor b=1, então o seu programa deverá fazer as

seguintes contas:

a-3= "outra variavel" , que vai dar os valores:

997,994,991,988, 985, 982, 979, 976

então, você deverá fazer a seguinte conta:

b+1="outra variavel" , que vai dar os valores:

2,3,4,5,6,7,8,9

essas duas outras "variaveis" serao os valores a serem mostrados,que

dará a sequencia que você quer

espero ter ajudado!!!!

[|=Zero*d-_-b*Cold=|]

aí Silversp, valeu pela dica... eu estava tentando colocar em vetores, tipo criar um vetor com o nome de Den(denominador) e outro com o nome de Num(Numerador)... mais na hora de fazer a divisão coloco para Den/Num, e da uma mensagem de erro... vou tentar fazer usando apenas variaveis... também tenho q pesar q quando faço a divisão, uma hora eu somo e na proxima seguencia, é feita uma subtração... to martelando em cima disso, mais ta meio complicado...

..valeu mesmo... se tiver mais alguma dica...

[njr]

num sei se entendi direito o que era pra fazer... mas vê ai se era isso mesmo:

program sequencia;
uses crt;
var
   x,y,cont:integer;
   r:real;
begin
   clrscr;
   r := 1000;   x := 1000;   y := 0;   cont := 0;
   repeat
      x := x - 3;
      y := y + 1;
      r := r / (y + x);
      cont := cont + 1;
   until cont = 50;
   write('O resultado da sequencia ‚: ',r:1:10);
   readln;
end.

:palmas:

[|=Zero*d-_-b*Cold=|]

aí pessoal, valeu pela ajuda aí....

acabei fazendo assim oh...

CODE

Program NumSer ;

Var

Num,Den,I:integer;

Soma:real;

Begin

Num:=1000;

Den:=1;

I:=0;

Repeat

I:=I+1;

Num:=Num-3;

Den:=Den+1;

Soma:=Soma+(Num/Den) ;

until I < 50;

write('A Soma da sequencia é: ',Soma:1:10);

readln;

End.

muito obrigado pela ajuda...

obs: se executar varias vezes ele vai somando os resultados... mais eu preciso executar uma vez só...

t+ fui....

[|=Zero*d-_-b*Cold=|]

esse CODE num era pra aparecer... :muro:

[ricci_tondatto]

Apenas para quem se interessar..

Tente encontrar a ondem logica da seguinte sequencia

2 9 40 205 1236 ____

encontre o proximo numero ou o enezimo numero da sequencia utilizando um algoritmo...

não irei postar a resposta

eu posso passa-la via mensagem... falou

exercitem!!!