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

[Mad_Cat]

язык ереси

тогда уж компилятор ереси
каждый компилятор имхо когда то был таким(хотя и сейчас в большинстве случаев они ересь и компилируют)
чего вы так на паскаль АВС то накинулись - Для учебных задач его хватает с головой а для серьезных задач нужно брать серьезные ide

[Poma][a]

Дак вот у ТС учебная задача, как он её решит?Как отнесется к этому решению препод?
Знаю что у нас в ПЕДе тоже только ABC и Turbo. Вот и возмущаюсь почему бы не поставить полностью бесплатный Free. Который поддерживает взаимодействие с ОСью, позволяет выйти из-за ограничения памяти и не косячит как Abc. (Вот и приходится бедным студентам и школьникам (ну кто на задания ходит) писать на Abc) (а я пишу на Turbo )

[TinMan]

[OFFTOP]
По поводу "языков/компиляторов ереси"..
Осмелюсь процитировать себя самого (в целях самокритики))

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

... я с ним дел не имел, не имею и не советую иметь..

Еще одно подтверждение полезности известного принципа - "никогда не говори никогда":
Установил PascalABC.NET, попробовал - пока вполне доволен )). Доступен весь спектр средств .NET
[/OFFTOP]

[Poma][a]

TinMan и даже код ТС работает корректно?

[TinMan]

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

TinManи даже код ТС работает корректно?

Я скажу так: он работает точно так же, как и в FP. Какую работу следует называть корректной в связке "read-readln-readkey", я вообще не берусь сказать.

У Ремарки стоит старый ABC. Он очень отличается. Я думаю, они (ABC-шники) потому и забросили его, что им самим надоели его выкрутасы. Это было "во-первых". Во-вторых, я обычно не доверяю словам ТСов на все сто (не подумайте, что я обвиняю их во лжи).

[Нур]

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

Каким образом можно удалить его из буфера и дать возможность нажать клавишу Esc

Чет нагородили тебе фигни всякой. Можно просто напросто подряд два раза readkey вызвать было. Один должен был бы твой Энтер считать другой ждал бы ввода.

[Serge_Bliznykov]

Чет нагородили тебе фигни всякой.

О как! Пришёл и всех рассудил. молодца...

во-первых, задача уже решена, автор темы доволен.

во-вторых, Вы бы поставили себе Pascal ABC и проверили, как вам ReadKey два раза помог (а он бы Вам не помог, там в буфере неизвестно откуда от пяти и более кодов находилось! Откуда они там брались - одному автору компилятора этой ереси известно... ).
Если есть сомнения - проверяйте.

[TinMan]

Сообщение от Нур

просто напросто подряд два раза readkey вызвать было. Один должен был бы твой Энтер считать другой ждал бы ввода.

Совет не лишен смысла на самом деле. Только, конечно, не в таком виде, а таком примерно:

while keypressed do readkey;
c:= readkey;

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

[Poma][a]

TinMan, а что насчет этого? (Про факториал)

Используется рекурсивное определение факториала.
Этот пример работает во всех перечисленных компиляторах, но с несколько разным результатом. В Turbo Pascal, Free Pascal и PascalABC.NET возникает арифметическое переполнение при вычислении факториалов 13-16, но Free Pascal сообщает об ошибке:

13! = Runtime error 215 at $004013C7
$004013C7
$00401449
$004063E0
в то время как Turbo Pascal и PascalABC.NET не обнаруживают ошибку и просто выводят неправильные значения:

13! = 1932053504
14! = 1278945280
15! = 2004310016
16! = 2004189184

Просто качать как-то не хочется, а для общего развития знать хочется..
Кстати проверил в ПЕДе на АБС, таже фигня, что и у ТС..
(Кстати, вот тоже АБС шалил на олимпиаде у знакомого, выдавал RunTimeError на нескольких тестах.. спасла перекомпиляция всё на том же АБС и баллы у этого человека существенно увеличились)