Skip to content

не получается вводить данные из файла.  #21

@budden

Description

@budden

Возможно, я делаю что-то не то, но вместо чтения из файла похоже, что КуМир пытается читать с консоли (см., что написано внизу в строке состояния).

Кумир 2.1.0-rc11, Windows

Код программы:

использовать Файлы
файл вхъ
сим с1,с2
цел макс,к
алг
нач
вхъ := открыть на чтение("C:\promo.yar\кумир\37131\24.txt")
начать чтение(вхъ)
к := 1
макс := 0
ввод вхъ,с1
нц пока есть данные(вхъ)
с2 := с1
ввод вхъ,с1
если с2 = 'K' и с1 = 'L' или с1 = 'K' и с2 = 'L' то
если к > макс то
макс := к
все
к := 1 
иначе
к := к + 1
все
кц
если к > макс то
макс := к
все
вывод макс
кон

ввод-из-файла

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions