Посимвольный ввод.

[Confused]

Запускаю программу - не вводит символы до тех пор, пока не нажму enter - когда нажал его, можно ввести только один символ, или целое предложение и знаки не берет в учет (? ! .)

[ZX Spectrum-128]

Read(ch); вместо ch:=readkey;

[Confused]

Могу ввести только один символ.

[ZX Spectrum-128]

Сейчас проверю у себя.

[ZX Spectrum-128]

Uses    CRT;
Var     sent,znak:string;
	ch:char;
Begin
  ClrScr;
  sent:='';
    While ch<>#13 do
      Begin
        Ch:=readkey;
        write(ch);
        sent:=sent+ch;
      End;
    znak:=copy(sent,Length(sent)-1,1);
    clrscr;
    if znak='!' then WriteLn('Voskl');
    if znak='?' then WriteLn('Voprosit');
    if znak='.' then WriteLn('Povestv');
ReadLn;
End.

[Confused]

Разве это посимвольный ввод? Моя начальная программа так же работала.

[Serge_Bliznykov]

во-первых, это ПОСИМВОЛЬНЫЙ ввод.
вот Вам доказательство:

Uses    CRT;
Var     sent:string;
	ch:char;
Begin
  ClrScr;
  sent:='';
    While ch<>#13 do
      Begin
        Ch:=readkey;
        case ch of
         '!': Write(' Voskl ');
         '?': Write(' Voprosit ');
         '.': Write(' Povestv ');
        else
          write(ch);
        end;
        sent:=sent+ch;
      End;
    WriteLn('Vvedeno: ',sent);
   ReadLn;
End.

во-вторых, Вы бы лучше рассказали, какую конечную задачу Вы пытаетесь решить этим самым "посимвольным" вводом. Вам, глядишь, и более подходящий код набросали...