Турбо Паскаль 7.0. Ограничение цифр при вводе числа

[Almost456]

Вот как это сделать?
Допустим, ограничить до 8 цифр.

[Sla]

Написать свой "обработчик", используя функции keypressed и readkey.

[Джон]

А ещё лучше перехватить прерывания от клавиатуры.

[Almost456]

Типа, вот так?

Код:

repeat
ClrScr;
gotoxy(5,5);
write('n=');
readln(n);
until keypressed до 8 раз

[Sla]

Almost456, вот как раз убрать readln

И почитать хелп про readkey. Кстати, в хелпе и пример использования есть.

[Almost456]

Слушай, ну подскажи...по идее так должно работать, но не получается.

Код:

begin
ClrScr;
gotoxy(5,5);
write('n=')
while keypressed do begin
ch:=readkey;
inc(k);
end;
if k=8 then exit;
readln;
end.

[Sla]

Бред...

1. зачем gotoxy ? (ладно не мешает)
2. какой тип возвращает функция readkey?
3. Зачем в конце readln

4. Приблизительный шаблон

Код:

var InpNum : string;
    ch:char;
    i:integer;
begin
  while i<8 do begin
   ch:=Readkey;
  /*накапливаем символы в InpNum */
   inc(i);
  end;
 /*преобразовываем строку в число*/
end.

[Almost456]

Ты пойми,нужно ограничить число не в виде строки, а как ввод данных, короче  не string'ом.

[Sla]

Almost456, Это ты пойми, что преобразование типов строковых в численные происходит на уровне библиотек, к которым у тебя нет доступа.
Поэтому тебе дается в руки некий API, который  позволяет решить твою задачу, и даже больше.

[Dimka]

Наверно лучше сразу пропускать в накопительный буфер лишь цифры. А ещё внутри хорошо бы выводить накопительный буфер на экран - к вопросу о gotoxy.

[Almost456]

Интересно.Ведь я же попросил пожалуйста.

[Sla]

Almost456, т.е. ты даже и не понял что я тебе сказал?

Тогда объясняю.

Преобразование типов строковых в численные происходит на уровне библиотек, к которым у тебя нет доступа.

Это значит, что если ты напишешь readln(N), где N:integer, то компилятор вместо процедуры readln подставит, приблизительно, следующий код.

1. Прочитать буфер клавиатуры.
2. Полученную строку преобразовать в целочисленное значение.
Почему строку? Потому что клавиатура это символьное устройство.

Ты на этапе выполнения этого не увидишь, а в программу попадет уже целочисленное значение, если, конечно, не было ошибки при вводе.

Поэтому тебе дается в руки некий API, который  позволяет решить твою задачу, и даже больше.
Чтобы управлять вводом/выводом тебе предоставлены для использования набор функций (API, пусть это так называется).

Тоже самое и при выводе

writeln(N) =
Преобразовать N в строку
Выдать в буфер видео.

Почему в строку?
Потому что display - символьное устройство.

[x77]

как гласит нелюбимая всеми справка,

Read считывает все символы до (но не включая) следующего маркера конца
строки или пока Eof(F) станет равным True. Read не переходит к следующей
строке после чтения. Если полученная в результате строка длиннее, чем
максимальная длина строковой переменной, то она усекается. После первого
Read, каждые последующие вызовы Read будут видеть маркер конца строки и
возвращать строку нулевой длины.

т.е. для ограничения восемью символами достаточно читать в строку в 8 символов длиной:

Код:

var
  s: string [8];
begin
  Write ('Enter s: ');
  ReadLn (s);
  WriteLn ('s = ', s);
end.

результат:

Код:

Enter s: 123456789
s = 12345678

[x77]

кстати,

F1

Так там же всё на английском.

если кому-то надо - могу скинуть русский turbo.tph (файл турбо-паскалевской справки). выкладывать не буду, ибо не уверен, что это не будет варез, посему заинтересованным - в личку .

[RXL]

x77, можно к нам в архив скинуть.

[x77]

x77, можно к нам в архив скинуть.

ок, цепляю.

[Джон]

Игорь, это на русском?

[x77]

Джон, да, по идее - просто заменяешь им одноимённый файл в каталоге bin.

з.ы. но не весь турбо-паскакаль превратиться в русский, а только справка.

[Джон]

Я понял, что это только хэлп. Эх, и где ты был двадцать лет назад!

[x77]

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

[Sla]

20 лет назад, тоже был русский под тройку в виде перевода текстового файлика)
потом под пятерку, под шестерку не видел.

[Джон]

Что толку было от тогдашнего школьно-универовского аглицкого 20 лет назад? Специальных терминов всё-равно не знали. Словарь Борковского только в 90ом вышел, да и то заказывали его за бешеные деньги в единственном экземпляре. А так до всех премудростей приходилось доходить методом научного тыка. Хорошо ещё что у Борланда всегда примеры кода были в хэлпе (рабочие!!!).

У нас Турбо-Паскаль 5.5 тогда уже был.

[RXL]

x77, можно к нам в архив скинуть.

ок, цепляю.

Выложу в архиве и тут ссылочку дам. Но завтра.

[Алексей++]

Ром, выкладывал ?

[RXL]

Не помню - это пол года назад было