Курсовая работа: Создание программы на языке Delphi 70
Составим следующий алгоритм:
1. Привязать файл, путь к которому указывает пользователь, к конкретной файловой переменной.
2. Открыть файл для чтения.
3. Пока курсор не станет на позицию конца файла считывать поочередно строки из файла. Если курсор станет на позицию конца файла, то переходим к пункту 7.
4. Взять конкретную считанную строку и приступить к выделению в ней слова, т.е. стать на первый символ в строке.
5. Проверить символ на сходство с символом из множества разделителей, которое заданно, пока не наступит конец считанной строки. Если наступил конец строки, то перейдем к пункту 3.
6. Если символ – разделитель то перейдем к алгоритму поиска заглавного символа в слове, иначе поместим этот символ в строковую переменную, которая будет хранить слово и вернемся к пункту 5.
7. Конец проверки по строкам
Алгоритм поверки слова:
1.Становимся на первый символ слова и проверяем его на сходство с множеством заглавных символов.
2.Если символ заглавный, то выдаем сообщение пользователю о нахождении заглавного символа и переходим к пункту 3, иначе переходим на следующий символ и заново выполняем пункт 2.
3.Если пользователь пожелает изменить данный заглавный символ то выполняем процедуру исправления заглавного символа на малый и переходим на следующий символ и к пункту 2, иначе просто переходим на следующий символ и к пункту 2.
4.Если проверенный символ является последним в слове то заканчиваем проверять слово и возвращаемся в предыдущую процедуру.
В конце следует проанализировать проверен файл полностью или нет и если полностью, то выдать сообщение об окончании проверки и о количестве исправленных символов.
Детальное описание разработанной программы, алгоритмов и их программной реализации приведено в последующих разделах.
3. ОПИСАНИЕ СТРУКТУРЫ ПРОГРАММЫ
Описание переменных
В разделе описаний переменных описаны переменные, назначение которых приведено в таблице 3.1.
Таблица 3.1– Описание переменных программы
| Наименование | Тип | Назначение |
| FO,FS | TextFile | Переменная текстового файла исходного и результирующего |
| tmpstr,str,strslovo | String | Строковые переменные для чтения из файла |
| i,j | integer | Переменные счетчики для циклов |
| count | integer | Переменная хранит количество исправленных символов |
| answ | Word | Используется для определения ответа пользователя на вопрос об исправлении символа |
| UpCh | set of char | Множество заглавных символов |
| ZnCh | set of char | Множество символов разделителей слов |
| OFName | String | Строка, в которой хранится путь к исходному файлу |
| SFName | String | Строка, в которой хранится путь к результирующему файлу |
Описание вспомогательной процедуры
В программе приведено описание одной вспомогательной процедуры.
Процедура FormCreate вывода исходных значений в компоненты формы для корректного отображения формы в начале работы программы.
Процедура Button1Click для отрытия исходного файла и сохранения пути к нему.
Процедура Button2Click для отрытия результирующего файла и сохранения пути к нему.
Алгоритм основной программы
Алгоритм выполнения основного тела программы приведен на рисунке А.1 в приложении А. Так в процедуре в первую очередь осуществляется привязка файла к файловой переменной и открытие текстового файла для чтения текстовой информации.
Затем производится чтение информации из файла построчно.
Затем в каждой строке выделяются слова.
Затем осуществляется поиск в выделенных словах заглавных символов.
Далее происходит запрос к пользователю об исправлении найденных символов.
Затем происходит запись в результирующий текстовый файл изменений.
В ходе выполнения работы использовались следующие операции работы с текстовыми файлами: