Проверка пользователя на знание английского - Turbo Pascal
Формулировка задачи:
вообщем суть программы заключается в следующем:
имеется два текстовых файла.в одном английские слова в другом их перевод.программа выводит английское слово из файла.пользователь пишет перевод. если пользователь ввел верно то + бал и следующее слово.всего 50 слов.текст программы по сути верный но выдает какую то ошибку.помогите найти что не так
Решение задачи: «Проверка пользователя на знание английского»
textual
Листинг программы
var f: text; sr, se, s: string; n, r: integer; begin Assign(f,'food.txt'); Reset(f); while not SeekEOF(f) do begin ReadLn(f,se); ReadLn(f,sr); inc(n); Write(n:2,'. ',se,' --> '); ReadLn(s); if Pos(','+s+',',','+sr+',')<>0 then inc(r); end; Close(f); WriteLn('Задано вопросов : ',n); WriteLn('Правильных ответов: ',r); end.
Объяснение кода листинга программы
- В начале кода объявляются переменные: f (тип text), sr (строка), se (строка), s (строка), n (целое число), r (целое число).
- Затем происходит назначение файла 'food.txt' переменной f и его инициализация.
- В цикле while происходит чтение строк из файла 'food.txt' в переменные sr и se.
- После чтения строк происходит увеличение счетчика n на единицу.
- Затем выполняется запись в файл 'food.txt' строки, содержащей n, точку, пробел и значение переменной se.
- Если в строке, записанной в файл, есть запятая, то она не должна быть включена в следующую строку. Для этого используется функция Pos.
- После чтения следующей строки из файла 'food.txt' происходит проверка на наличие запятой в ней. Если запятая есть, то увеличивается счетчик r на единицу.
- Когда достигается конец файла 'food.txt', цикл while завершается.
- После завершения цикла закрывается файл 'food.txt'.
- Выводится количество заданных вопросов и количество правильных ответов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д