readln и readkey: проблема со считыванием Enter'а

[Remarka]

собсна сабж
фрагмент кода:

      var
         c: char;
      begin
         reset (db);
         seek (db,filesize(db));
         repeat
           with stud do
             begin
               write ('чето-там'); readln (sname);
               write (db, stud);
             end;
           writeln ('Для выхода нажмите Esc, для продолжения - Enter)');
           с:=readkey;
         until c=#27;
        close (db);
      end;

То есть..после того как я ввожу что-то в переменную sname и нажимаю enter, то он сразу считывается ридкеем и повторяется цикл. Каким образом можно удалить его из буфера и дать возможность нажать клавишу Esc

[TinMan]

Сообщение от Remarka

собсна сабж
фрагмент кода:

      var
         c: char;
      begin
         reset (db);
         seek (db,filesize(db));
         repeat
           with stud do
             begin
               write ('чето-там'); readln (sname);
               write (db, stud);
             end;
           writeln ('Для выхода нажмите Esc, для продолжения - Enter)');
           с:=readkey;
         until c=#27;
        close (db);
      end;

То есть..после того как я ввожу что-то в переменную sname и нажимаю enter, то он сразу считывается ридкеем и повторяется цикл. Каким образом можно удалить его из буфера и дать возможность нажать клавишу Esc

Ремарка, ты не совсем хорошо вырезал/вырезала фрагмент из кода. В этом куске ошибки (о которой ты пишешь) нет. Полагаю, что ошибка наведена другим куском, который находится где-то выше. Этот фрагмент отработал у меня (FPC) абсолютно корректно (после некоторых модификаций, не касающихся сути проблемы). Вот тебе тот код, который я запускал, смотри сам/сама:

uses
   CRT;
      var
         c: char;
         stud: record
            sname: string;
         end;
      begin
         //reset (db);
         //seek (db,filesize(db));
         repeat
           with stud do
             begin
               write ('чето-там'); readln (sname);
               //write (db, stud);
             end;
           writeln ('Для выхода нажмите Esc, для продолжения - Enter)');
           c:=readkey;
         until c=#27;
        //close (db);
      end.

Приведи весь код (или хотя бы фрагмент побольше), тогда посмотрим.

P.S.
и, плз, напиши, какой компилятор ты используешь - TP, FP, ABC...

[Remarka]

Тот код который ты привел тоже не совсем корректно работает
хотелось чтобы вывело
"Для выхода нажмите еск, для продолжения - ентер"
дальше я ввожу ентер или еск и оно либо выходит, либо снова начинает цикл

на деле у меня работает так:
"Для выхода нажмите еск, для продожения - ентер"
"че-то там"
(и ждет ввода) - после этого ввожу еск и любую клавишу и тогда уже прерывает

uses crt;
 type
      data=record
         sname:string;
         name:string;
         grp:string;
         reit:real;
      end;
var
      db: file of data;
      stud: data;
      
procedure entering;
         var
         c: string;
         begin

         reset (db);
         seek (db,filesize(db));
         repeat
         with stud do
         begin
         writeln ('Ввод данных о студенте');
         write ('введите фамилию: '); readln (sname);
         write ('ведите имя: '); readln (name);
         write ('введите группу:'); readln (grp);
         write ('введите рейтинг: '); read (reit);
         write (db, stud);
         end;
         writeln ('Добавить студента (Нажмите Esc - для отмены, для продолжения - Enter)');
         c:=readkey;
         until c=#27;
         close (db);
         end;




begin
      assign (db, 'db.txt');
      entering;
end.

Использую ABC

[TinMan]

Сообщение от Remarka

Тот код который ты привел тоже не совсем корректно работает

хотелось чтобы вывело
"Для выхода нажмите еск, для продолжения - ентер"
дальше я ввожу ентер или еск и оно либо выходит, либо снова начинает цикл

на деле у меня работает так:
"Для выхода нажмите еск, для продожения - ентер"
"че-то там"
(и ждет ввода) - после этого ввожу еск и любую клавишу и тогда уже прерывает

о_О... если так - вопросы к производителям ABC. Повторюсь: в FP все абсолютно корректно (уверен, что в TP тоже).

Обращаю внимание: у тебя стоит READ, где должен стоять READLN. Это не только может, но и ДОЛЖНО привести к тому эффекту, который ты описываешь. Вот эта строка:

         write ('введите рейтинг: '); read (reit);

- исправь в ней read на readln.

Использую ABC

тогда я умолкаю на время, ибо я с ним дел не имел, не имею и не советую иметь.. Подожди до утра - придут специалисты по нему. На всякий случай уточни - у тебя старый глючный неподдерживаемый оригинальный ABC, разработка которого давно прекращена? Или все же более новый ABC.NET?

[Poma][a]

Использую ABC

Чур меня, чур

исправь в ней read на readln.

Разницы 0
Предлагаю сделать так :
Последовать совету Сержа :

Мой Вам совет: вообще, выкиньте Вы этих самодельных уродцев
(я имею в виду Pascal ABC и Pascal ABC NET) и возьмите либо FreePascal + Lazarus, либо (лучше),
если есть возможность, Delphi. и учитесь программировать с помощью настоящих средств разработки, а не
этих "псевдо-паскальных" языков..

Или последовать другому совету Сержа :

repeat
      Write('Выш выбор: ');
      readln(ct);
    until ct in ['1'..'5'];

    case ct of
      '1' : InitArr (a, n, m);
      '2' : PrintArr (a, n, m);

      '3' : InvertStr;
      '4' : PosMaxMin(a, n, m) ;

      '5' : {запрос подтверждения}
            begin
              WriteLn;
              Write('Вы действительно хотите выйти из программы? (Y/N) : ');
              ReadLn(ct);
              if (ct='Y') or (ct='y') then ct := '5';
                                  { возвращаем '5'-ку в переменную, по ней будет выход из цикла }
            end;
    end;

Тоесть слегка переделать программку

[Serge_Bliznykov]

можно и так попробовать:

procedure entering;
var
  c: char;
begin

  reset(db);
  seek(db, filesize(db));
  repeat
    with stud do
    begin
      writeln('Ввод данных о студенте');
      write('введите фамилию: '); readln(sname);
      write('ведите имя: '); readln(name);
      write('введите группу:'); readln(grp);
      write('введите рейтинг: '); readln(reit);
      write(db, stud);
    end;
    while KeyPressed do ReadKey;
    writeln('Добавить студента ? (Нажмите Esc - для отмены, для продолжения - Enter): ');
    repeat
      c := readkey;
      if c = #0 then c := readkey;
    until (c = #13) or (c = #27);
  until c = #27;
  close(db);
  WriteLn('Программа завершена!');
end;
....

p.s. хотя своё мнение насчёт уродцов я не поменял...

[Remarka]

Спасибо вам большое!

[Poma][a]

if c = #0 then

Серж, язык ереси берет не 0, а 1

[Serge_Bliznykov]

Сообщение от Poma][a

if c = #0 then

Серж, язык ереси берет не 0, а 1

э... я не есть понимать, "язык ереси" - нихт ферштейн!



я не знаю, что Вы имели в виду, но запись

if c = #0 then

читается так: "если в переменной c символ с кодом ноль, тогда"

это можно записать и так

if ord(c) = 0 then

и так:

if c = chr(0) then

но запись с кодом символа мне лично нравится больше всего, она и простая и нативная для Паскаля...

[Poma][a]

э... я не есть понимать, "язык ереси" - нихт ферштейн!

язык ереси = всеми (особенно Вами) любимый Pascal.ABC
И прошу простить я не заметил второго цикла...
Просто в "с"заносится каким-то макаром единичка, и её фиг от-туда выгонишь.
Я же увидев

if c = #0 then c := readkey;

, и не посмотрев что это дело у нас в цикле (который находится в цикле), сделал ложное суждение..
Еще раз сорри