Объяснить смысл задания - Turbo Pascal
Формулировка задачи:
Как понять...имеются 2 файла строк?)это как их описывать?)
например:F:file of string так что ли?)
мне надо просто создать 2 файла строк)в одном женские,а в другом мужские имена)
Решение задачи: «Объяснить смысл задания»
textual
Листинг программы
type tnames=string[20]; Var f:file of tnames; s:string; procedure RecToFile; begin repeat readln(s); write(f,s); if s='' then exit; until false; end; begin assign(f,'C:\ManNames.dat'); rewrite(f); writeln('Введите мужские имена.Конец ввода-пустая строка.'); writeln; RecToFile; close(f); assign(f,'C:\WomanNames.dat'); rewrite(f); writeln('Введите женские имена.Конец ввода-пустая строка.'); writeln; RecToFile; close(f); writeln('Готово!'); readln end.
Объяснение кода листинга программы
Данный код написан на языке Turbo Pascal и выполняет следующие действия:
- Создает тип данных
tnames
, который представляет собой массив из 20 строк. - Определяет переменные
f
, которая является файлом, иs
, которая является строкой. - Определяет процедуру
RecToFile
, которая считывает строку с экрана, записывает ее в файлf
и проверяет, пустая ли строка. Если строка пустая, процедура завершается. - Выполняет следующие действия:
- Присваивает переменной
f
значение 'C:\ManNames.dat'. - Открывает файл
f
. - Записывает в файл сообщение
Введите мужские имена. Конец ввода - пустая строка.
. - Вызывает процедуру
RecToFile
. - Закрывает файл
f
. - Присваивает переменной
f
значение 'C:\WomanNames.dat'. - Открывает файл
f
. - Записывает в файл сообщение
Введите женские имена. Конец ввода - пустая строка.
. - Вызывает процедуру
RecToFile
. - Закрывает файл
f
. - Выводит сообщение
Готово!
. - Считывает строку с экрана.
Таким образом, данный код выполняет запись мужских и женских имен в два файла, а затем выводит сообщение
Готово!
.
- Присваивает переменной