Вопрос по работе процедуры Readln, Вопрос по работе процедуры ReadLn Опции

[Mike]

Объясните, почему в программе:

Код

var
a,b,c,d:char;
begin
Read (a,b,c);
Read (d);
WriteLn ('''a'' ',a,' ''b'' ' ,b,' ''c'' ',c,' ''d'' ',d);
end.

при вводимых данных:
{Enter}, затем строка abcd
в окне Output появляется:
'b'
'c' a 'd' b
Куда девается тот же ''a''?

Сообщение отредактировано: APAL - 6.09.2004 14:43

[Ozzя]

Запустил у себя, результат на экране:

abcd
'a' a 'b' b 'c' c 'd' d

Что не нравится?

[Guest]

ты перед abcd нажми enter

[Бродяжник]

Шутник Вы, батенька. Зачем ЭНТЭР-то нажимать????
Если его нажать перед вводом строки, то на стандартный ввод попадет 6 символов:
<CR> <LF> a b c d
Из них программа считывает первых 4, то есть
<CR> <LF> a b
и выводит их на экран. При этом <CR> переводит курсор в начало строки, в которой перед ним уже было выведено 'а'. Затем поверх выведеного 'а' выводится 'b', сопровождаемое <LF> ('а' при этом затирается). Строка переводится, и с новой строки выводится все остальное.

[Guest]

Спасибо за ответ. Вопрос исчерпан.