Problema Em Pascal

[Lucas V. Ponzo]

Olá, pessoal.

Estive testando compiladores de Pascal para Linux. Baixei e instalei o FreePascal Compiler. Fiz um programinha que lê o nome de 20 pessoas e escreve todos na tela, cada nome em uma linha. O código é esse:

PROGRAM LeEscreve2;

VAR

Nome : STRING;

Cont : INTEGER;

BEGIN

FOR Cont := 1 TO 20 DO

BEGIN

READ(Nome);

WRITELN(Nome);

END;

END.

O que é acontece é que ele repete meu nome duas vezes e deixa todas as outras 18 linhas em branco. Tem alguma coisa errada no código ou o compilador é uma mer**?

Até mais!

[rodfraga]

Creio que não seja erro do compilador.

Não sou expert em pascal.Nem isso ai eu sei resolver direito. Mas vou tentar.

Depois posto de volta

Abraços

PS: Uma coisa. Bota um READ no final do programa(antes do End.)

[rodfraga]

É...Não é do compilador porque o meu Turbo Pascal deu o mesmo erro. Vou ver.

Além de não ser bom em Pascal, ele tá mó aplicado, já que não mexo nele há mais de mês(to me dedicando ao VB )

Abraços

[Graymalkin]

Realmente, o erro está no programa. O correto é:

PROGRAM LeEscreve2;
VAR
Nome : STRING;
Cont : INTEGER;
BEGIN
FOR Cont := 1 TO 20 DO
BEGIN
READln(Nome);
WRITELN(Nome);
END;
END.

A única mudança foi colocar "readln" ao invés de apenas "read". Ao que parece, "read" lê até encontrar o caracter de final de linha. Ao teclar ENTER no primeiro nome digitado esse caracter surge e sucessivas chamadas a "read" encontram o mesmo.

Abraços,

Graymalkin

[rodfraga]

Cara eu nunca pensei que um ln fosse fazer diferença na programação em Pascal.

Abraços

[M@luco Belez@]

não é essa só a diferença, você tb colocou pra ler antes de colocar para escrever...

[Graymalkin]

não é essa só a diferença, você tb colocou pra ler antes de colocar para escrever...

Graymalkin