Resolvido! Pascal sequência números ímpares

[ucastro]

Estou quebrando a cabeça em fazer esse programinha. Sei que é fácil mas não sei onde estou falhando.

Segue abaixo o algoritmo que estou usando:

program serie1;
uses crt;
var
IMPAR:integer;

Begin
clrscr;
IMPAR:=1;
While IMPAR < 21 do
writeln(IMPAR);
IMPAR:=IMPAR+2;
end.

Dá primeira vez que testei funcionou beleza, mas depois tentei reconfigurar de writeln para write e não funcionou mais, só dá como resultado 1111111111111....

Editado Janeiro 17, 2008 por ucastro

[Guest --Alan --]

cara o erro e que você não colocou o bloco de repetição entre begin e end;

porque sem begin e end , ele não soma + 2 na variavel IMPAR e por isso fica dando loop infinito e escrevendo sempre 1.

segue o codigo certo :

program serie1;
uses crt;
var
IMPAR:integer;

Begin
clrscr;
IMPAR:=1;

While IMPAR < 21 do
begin
         writeln(IMPAR);
         IMPAR:=IMPAR+2;
end;
end.

[ucastro]

Obrigado! Eu estou começando a aprender programação por isso da dificuldade.

Só vou fazer um curso técnico em maio, por isso já estou tentando aprender lógica de programação e Pascal.

Agradeço a todos do fórum pela ajuda.