Программировать ещё уметь надо!

16 views
Skip to first unread message

Leo B.

unread,
May 3, 2021, 10:05:40 PMMay 3
to БЭСМ-6
Если в программе на Паскаль-Мониторе перед первым чтением из файла input  сказать reset(input), то первая строка читается с ошибками в последних двух символах, хотя reset(input), вызванный в начале строки, должен быть пустой операцией: "Для внешнего файла типа Фортран с логическим номером 50 (чтение с П/К) процедура RESET(F) возвращает текущую позицию файла в начало текущей строки."

 PASCAL COMPILER 15.0 (15.02.82)
 00001    1  0 PROGRAM MAIN(INPUT, OUTPUT);
 00001    2  1 VAR C: CHAR; I:INTEGER;
 00013    3  2 BEGIN
 00014    4  2  RESET(INPUT);
 00015    5  2  WRITELN(’ BEPTИKAЛЬHAЯ ЧEPTA B 81-Й ПOЗИЦИИ --->’:80, ’|’);
 00022    6  3  WHILE NOT EOF(INPUT) DO BEGIN
 00023    7  3    IF EOLN(INPUT) THEN
 00025    8  3       WRITELN(’|’)
 00030    9  3    ELSE
 00031   10  3       WRITE(INPUT!);
 00033   11  3    GET(INPUT);
 00034   12  3  END
 00047   13  0 END.
           *EXECUTE
                                          BEPTИKAЛЬHAЯ ЧEPTA B 81-Й ПOЗИЦИИ --->|
 ПEPBAЯ CTPOKA                                                                |
 BTOPAЯ CTPOKA                                                                  |
 TPETЬЯ CTPOKA                                                                  |

Если закомментировать reset(input); то всё работает, как ожидается.

Евгений Халуев

unread,
May 3, 2021, 11:39:45 PMMay 3
to БЭСМ-6
А как в целом выглядит вызов такой программы. Что там попадает в INPUT, OUTPUT.

вторник, 4 мая 2021 г. в 09:05:40 UTC+7, Leo B.:

Leo Broukhis

unread,
May 4, 2021, 1:21:24 AMMay 4
to БЭСМ-6


On Mon, May 3, 2021, 8:39 PM Евгений Халуев <eugene...@gmail.com> wrote:
А как в целом выглядит вызов такой программы. Что там попадает в INPUT, OUTPUT.

На Паскале в скобках после имени программы пишутся используемые внешние файлы. INPUT, OUTPUT объявлены по умолчанию как упакованные последовательности символов и  автоматически назначаются на стандартные ввод и вывод. 

Leo
Reply all
Reply to author
Forward
0 new messages