Реферат: Создание программы на языке Delphi 7.0
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
СЄВЄРОДОНЕЦЬКЕВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ
Спеціальність:5.091504«Обслуговування комп’ютерних та інтелектуальних систем та мереж»
ПОЯСНЮВАЛЬНА ЗАПИСКА ДО КУРСОВОЇ РОБОТИ
ЗПРЕДМЕТУ «ПРОГРАМУВАННЯ ТА АЛГОРИТМИЧНІ МОВИ»
НА ТЕМУ: «РОЗРОБКАПРОГРАМИ ЗА ДОПОМОГОЮ МОВИ ПРОГРАМУВАННЯ DELPHI»
Студент групи № Т-09-4 Лучшев Олександр Валерійович
Керівник роботи Руднєв МаксимМиколайович
Сєвєродонецьк 2010
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
СЄВЄРОДОНЕЦЬКЕВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ
ЗАТВЕРДЖУЮ:
Заступник директора з УВР
_____________ О.П. Лимар
"___" ______ 2010 р.
ЗАВДАННЯ
НА КУРСОВУ РОБОТУ СТУДЕНТАГРУПИ № Т-08-4
Лучшев Олександр Валерійович
Спеціальність:5.091504 «Обслуговування комп’ютерних та інтелектуальних систем та мереж»
1. Тема роботи «Розробка програмиза допомогою мови програмування Delphi»
2. Термін поданнястудентом закінченої роботи. .2010 р.
3. Вихідні даннідо дипломної кваліфікаційної роботи: методичний посібник з дисципліни
4. Змістпояснювальної записки (перелік питань, які підлягають розробці ): 1.Постановказадачі 2. Математичний опис задачі 3.Розробка алгоритму 4.Структура програми5.Описання початкових даних, на які розрахована програма 6.Інструкція оператора7.Описання отриманих результатів
5. Перелікдодатків: 1. Блок-схема алгоритму. 2. Лістинг програми. 3. Результати роботипрограми
6. Дата видачізавдання. .2010 р.
Керівник роботи
Завдання прийнявдо виконання
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
СЄВЄРОДОНЕЦЬКЕВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ
ЗАТВЕРДЖУЮ:
Заступник директора з УВР
_____________ О.П. Лимар
"____" 2010 р.
КАЛЕНДАРНИЙ ПЛАН
НА КУРСОВУ РОБОТУ СТУДЕНТАГРУПИ № Т-09-4
Лучшев Олександр Валерійович
Спеціальність: 5.091504 «Обслуговуваннякомп’ютерних та інтелектуальнихсистем та мереж»
№ п/п Найменування етапів дипломної кваліфікаційної роботи Термін виконання етапів роботи Примітка 1 Постановка задачі 2 Математичний опис задачі 3 Розробка алгоритму програми 4 Структура програми, опис її структурних компонентів 5 Описання початкових даних, на які розрахована програма 6 Розробка інструкції оператору 7 Тестування програми та її оптимізація 8 Оформлення пояснювальної записки до курсової роботиВипускник
Керівник роботи
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
СЄВЄРОДОНЕЦЬКЕВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ
ВІДГУК
НА КУРСОВУ РОБОТУ СТУДЕНТАГРУПИ № Т-09-4
Лучшев Олександр Валерійович
Спеціальність:5.091504 «Обслуговування комп’ютерних та інтелектуальних систем та мереж»
1. Темароботи «Розробка програми за допомогою мови програмування Delphi»
2. Керівникроботи Руднєв Максим Миколайович___
3. Загальнахарактеристика курсової роботи:
4. Попередняоцінка:
5. Роботазахищена з оцінкою:
Керівник роботи М. М. Руднєв
"____"___________2010 р.
СОДЕРЖАНИЕ
РЕФЕРАТ
ВВЕДЕНИЕ
1. Анализтехнического задания и постановка задачи проектирования
2. Разработкаалгоритма программы
3. ОПИСАНИЕСТРУКТУРЫ ПРОГРАММЫ
4. ОПИСАНИЕВХОДНЫХ ДАННЫХ
5. ОПИСАНИЕВЫХОДНЫХ ДАННЫХ
6. ИНСТРУКЦИЯОПЕРАТОРУ
ВЫВОДЫ
Переченьссылок
ПРИЛОЖЕНИЕ А
ПРИЛОЖЕНИЕ Б
ПРИЛОЖЕНИЕ В
/>/>/>РЕФЕРАТ
Пояснительная записка к курсовой работе содержит:
страниц — 23;
рисунков — 6;
таблиц – 1 ;
приложений – 3.
Цель работы: разработать программу проверки текстового файлана наличие в нем заглавных букв с кодом на языке Delphi.
В курсовой работе создана программа, которая проверяет текстовыйфайл на наличие в нем заглавныч букв и сообщает пользователю о нахождении этихбукв. Далее выдается запрос, в котором выводится слово в котором найдена заглавнаябуква и предлагается пользователю заменить ее на малую. Вывод результатаосуществляется на экран монитора и исправленный файл помещается на жесткомдиске.
В первом разделе курсовой работы выполнен анализ техническогозадания, выделены функции, которыми должно обладать разрабатываемое приложение,а также сформулированы требования к нему, произведена постановка задачи напроектирование.
Во втором разделе выполняется анализ задачи проектирования,анализируется вид исходных данных и приводится словесный алгоритм работыпрограммы.
В третьем разделе рассматриваются алгоритмы разработаннойпрограммы, а также приводится их описание. К реализованной программеразработана инструкция пользователя, которая приведена в четвертом разделе.
Алгоритмы процедур приведены в приложении А.
Листинг программы содержится в приложении Б.
Результат тестового запуска приведен в приложении В.
Программа разработана с использованием языка Delphi.
ТЕКСТОВЫЙ ФАЙЛ,ПРОВЕРКА НАПИСАНИЯ, ДИАЛОГОВОЕ ОКНО, МНОЖЕСТВА СИМВОЛОВ, ЦИКЛИЧЕСКИЕ КОНСТРУКЦИИ
/>/>/>
ВВЕДЕНИЕ
Данный курсовой проект был разработан в среде Delphi 7 с базовым языком программирования Delphi. Среди множества языков Delphi является наиболее универсальным илегко изучаемым языком. На сегодня Delphi поддерживаетвсе современные возможности объектно-ориентированного программирования в такоймощной системе проектирования как Delphi 7.
Цель курсовой работы – закрепление и демонстрация знаний,полученных при изучении курса.
Задача работы заключается в том, чтобы правильно составитьалгоритм поставленной задачи по обработке текстовой информации, разработать иотладить программу, реализующую разработанный алгоритм.
Согласно заданию дан текстовый файл, в котором находятся заглавныебуквы.
В ходе выполнения курсового проекта не обходимо выполнитьследующие этапы:
— анализ технического задания и постановка задачипроектирования;
— выделение функций, которые выполнять разрабатываемаяпрограмма;
— разработка алгоритма программы, предназначенной длявыполнения функций, сформированных на предыдущем этапе;
— составление программы согласно разработанным алгоритмам наязыке Delphi;
— отладка программы на тестовых наборах;
— составление и оформление пояснительной записки.
Теоретическая и практическая значимость заключается взакреплении навыков составления алгоритмов поставленных задач ипрограммирования на языке Delphi.
/>/>/>/>/>1. Анализ технического задания и постановка задачипроектирования
Согласно заданию дан текстовый файл с заглавными символами; необходимовыявить все заглавные символы и изменить их на малые, заранее спросив онеобходимости изменения пользователя.
Как видим, задание сводится кобработке текстовой информации. А именно, чтение текстовой информации из файлаи обработка ее согласно заданию.
В самом начале выполнения программыследует запросить от пользователя путь к файлу, который мы хотим проверить наналичие заглавных букв.
В программе следует проанализировать полученнуюиз файла текстовую информацию и выделять из нее заглавные символы.
Подытожив все вышесказанное можносформулировать требования к разрабатываемому программному обеспечению ивыполнить постановку задания на проектирование. Так, согласно заданию, программадолжна быть реализована в среде Delphi идолжна выполнять следующие функции:
— вывод на экран информации о заданиии назначении программы;
— выбор пользователем файла для проверки с помощью диалогаоткрытия;
— выбор пользователем файла для сохранения результатов;
— проверка полученного файла, для выявления в нем заглавных символов;
— запрос к пользователю о возможном изменении заглавногосимвола и сохранение изменений в итоговый текстовый файл.
Последующие разделы будут посвящены решению поставленныхзадач и разработке приложения с вышеперечисленными функциями.
2. РАЗРАБОТКА АЛГОРИТМА ПРОГРАММЫ
В предыдущем разделе былисформулированы требования к разрабатываемой программе и к ее функциям. Анализируятребования к программе, можно разработать алгоритм разрабатываемого приложения.
Так, поскольку заданиесостоит в проверке текстового фала, целесообразно для хранения информации изфала использовать строковый тип данных, а также создать два множества, вкоторых будут хранится все заглавные символы и символы которые используются дляразделения строк на слова.
Далее необходимо проверить,присутствуют ли в считанном из фала тексте заглавные символы, для этогонеобходимо выполнение следующих условий:
1. В каждойсчитанной из файла строке выделять слова;
2. В каждом словепроверять наличие заглавных символов;
Для выполнения первогоусловия необходимо первоначально открыть файл для чтения. Затем прочитатьстроку из файла и разделить строку на слова.
Составим следующийалгоритм:
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 в приложении А. Так в процедуре в первую очередь осуществляется привязкафайла к файловой переменной и открытие текстового файла для чтения текстовойинформации.
Затем производится чтение информации из файла построчно.
Затем в каждой строке выделяются слова.
Затем осуществляется поиск в выделенных словах заглавных символов.
Далее происходит запрос к пользователю об исправлении найденныхсимволов.
Затем происходит запись в результирующий текстовый файлизменений.
В ходе выполнения работы использовались следующие операцииработы с текстовыми файлами:
AssignFile (<Имя файловой переменной>,<Имяфайла>);
Имя файла задается либо строковой константой, либо черезпеременную типа Sting. Имя файла должно соответствовать правилам работающей вданный момент операционной системы. Если строка имени пустая, то связь файловойпеременной осуществляется со стандартным устройством ввода-вывода.
Reset (<Имя файловой переменной>);
Открывается файл для чтения из него информации, емуприсваивается имя, заданное процедурой Assign.
После работы с файлом он, как правило, должен быть закрытпроцедурой CloseFile (<Имя файловой переменной>). Вывод информациипроизводит оператор WRITELN(f: TextFile;S: String). После еговыполнения строка S заносится вконец файла, связанного с переменной f.
4. ОПИСАНИЕВХОДНЫХ ДАННЫХ
Исходными данными для выполнения является файл, которыйсодержит заглавные символы.
5. ОПИСАНИЕ ВЫХОДНЫХ ДАННЫХ
Выходными данными являются:
— сообщение о завершении проверки файла на наличие в нем заглавныхсимволов;
— сообщение о количестве исправленных символов;
— заполненный результирующий текстовый файл.
6. ИНСТРУКЦИЯ ОПЕРАТОРУ
Разработанная программа представляет собой исполняемый файл Luchshev.exe размером 405 Кбайт. В программе реализован алгоритм проверкитекстового файла на наличие в нем заглавных символов.
После запуска программы появляется окно, изображенное нарисунке 4.1.
/>
Рисунок 4.1 – Главное окно программы
После этого пользователь должен задать путь к файлу. Нарисунке 4.2 показан пример диалогового окна для открытия файла.
/>
Рисунок 4.2 – Пример отскрытия исходногофайла
Пример сообщения о нахождениизаглавного символа приведен на рисунке 4.3.
/>
Рисунок 4.3– Сообщение о нахождениизаглавного символа
Пример окна с результатом проверкитекстового файла приведен на рисунке 4.4.
/>
Рисунок 4.4- Результирующее окно.
Результат проверки записывается ввыбранный результирующий файл находящийся в выбранной директории.
Функционирование программы полностьюсоответствует заданию.
ВЫВОДЫ
Данная курсовая работа была выполнена в полном соответствиипоставленному заданию и отлажена в среде Delphi 7.0. В ходе выполнения курсовой работы быларазработана программа для проверки текстового файла.
В ходе выполнения курсового проекта были проведен — анализтехнического задания и постановка задачи проектирования.
Были выделены функции, которыми должна обладатьразрабатываемая программа.
Был разработан алгоритм программы, предназначенной длявыполнения сформированных функций.
Согласно разработанному алгоритму была составлена и отлаженапрограмма алгоритмическом языке программирования Delphi. В ходе разработки программы проводилось еетестирование и отладка на тестовых наборах. Для написанной программыразработана инструкция оператора с указанием порядка выполняемых действий .
Результаты работы оформлены в виде пояснительной записки.
В ходе разработки программы были закреплены навыки работы:
— командами ввода-вывода как на экран, так и в текстовыефайлы,
— использования процедур,
— команды обработки массивов,
— команды для реализации циклов с заданным числом повторений;
— команды проверки условий и реализации ветвлений.
В результате выполнения данной курсовой работы, мы убедились в широких возможностяхязыка программирования Delphi, закрепили практические навыки программирования в cреде Delphi.
Переченьссылок
1. Зуев Е.А. Программирование на языке Delphi 6.0,7.0. – М.: Радио и связь, Веста,1993.
2. Фаронов В.В. Delphi 7.0. Начальный курс. — М.: Нолидж,2000.
ПРИЛОЖЕНИЕА
Алгоритм программы
/>
Рисунок А.1 – Алгоритм программы
/>
Рисунок А.2 – Алгоритм основнойпроцедуры программы
ПРИЛОЖЕНИЕБ
Листингпрограммы
1.unitUnit1;
2.interface
3.uses
4.Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5.Dialogs,StdCtrls;
6.type
7.TForm1= class(TForm)
8.Button1:TButton;
9.Button2:TButton;
10. OpenDialog1:TOpenDialog;
11. SaveDialog1:TSaveDialog;
12. Button3:TButton;
13. Label1:TLabel;
14. Label2:TLabel;
15. Label3:TLabel;
16. Label4:TLabel;
17. Button4:TButton;
18. procedureButton1Click(Sender: TObject);
19. procedureButton2Click(Sender: TObject);
20. procedureFormCreate(Sender: TObject);
21. procedureButton3Click(Sender: TObject);
22. procedureButton4Click(Sender: TObject);
23. private
24. {Private declarations }
25. public
26. {Public declarations }
27. end;
28. var
29. Form1:TForm1;
30. OFName,SFName:String;
31. implementation
32. {$R *.dfm}
33. procedureTForm1.Button1Click(Sender: TObject);
34. begin
35. ifOpenDialog1.Execute then
36. OFName:=OpenDialog1.FileName;
37. ifOFName<>'' then begin
38. Button1.Enabled:=False;
39. Button2.Visible:=True;
40. Label1.Caption:='Путь к файлу для проверки: '+OFName;
41. Label2.Visible:=True;
42. Label2.Caption:='Нажмите на кнопку «Сохранить» и выберитефайл для хранения результатов проверки';
43. end;
44. end;
45. procedureTForm1.Button2Click(Sender: TObject);
46. var
47. b:boolean;
48. begin
49. b:=false;
50. ifSaveDialog1.Execute then
51. SFName:=SaveDialog1.FileName;
52. ifPos('.txt',SFName)=0 then SFName:=SFName+'.txt';
53. if SFName=OFName then
54. ShowMessage('Выберите другой файл для сохранениярезультата')
55. else
56. b:=true;
57. if (SFName<>'')and (b) then begin
58. Button2.Enabled:=False;
59. Label2.Caption:='Путь к результирующему файлу: '+SFName;
60. Button3.Visible:=True;
61. Label3.Visible:=True;
62. Label3.Caption:='Для начала проверки нажмите на кнопку«Проверить»';
63. end;
64. end;
65. procedureTForm1.FormCreate(Sender: TObject);
66. begin
67. Button2.Visible:=False;
68. Label2.Visible:=False;
69. Button3.Visible:=False;
70. Label3.Visible:=False;
71. Button4.Visible:=False;
72. Label4.Visible:=False;
73. Label1.Caption:='Нажмите на кнопку «Открыть» и выберитефайл для проверки';
74. end;
75. procedureTForm1.Button3Click(Sender: TObject);
76. var
77. FO,FS:TextFile;
78. i,j,count:integer;
79. str,strslovo,tmpstr:String;
80. ZnCh,UpCh:setof Char;
81. answ:Word;
82. begin
83. count:=0;
84. ZnCh:=['.',',','!','?'];
85. UpCh:=['A'..'Z','А'..'Я'];
86. AssignFile(FO,OFName);
87. AssignFile(FS,SFName);
88. {$I-}
89. Reset(FO);
90. {$I+}
91. ifIOResult<>0 then begin
92. ShowMessage('Произошли проблемы с открытиемфайла. Программа будет завершена');
93. Exit;
94. end
95. else begin
96. Rewrite(FS);
97. whilenot Eof(FO) do begin
98. Readln(FO,str);
99. strslovo:='';
100. for i:=1 to Length(str) dobegin
101. if (str[i] in ZnCh) or(str[i]=' ') then begin
102. for j:=1 toLength(strslovo) do begin
a. ifstrslovo[j] in UpCh then begin
b. answ:=MessageDlg('Вслове "'+strslovo+'" найдена заглавная буква"'+strslovo[j]+'". Заменить ее намалую?',mtInformation,[mbYes,mbNo],0);
c. ifansw=mrYes then begin
i. tmpstr:=strslovo[j];
ii. tmpstr:=AnsiLowerCase(tmpstr);
iii. Delete(strslovo,j,1);
iv. Insert(tmpstr,strslovo,j);
v. inc(count);
d. end;
e. end;
103. end;
104. Write(FS,strslovo+str[i]);
105. strslovo:='';
106. end
107. else
108. strslovo:=strslovo+str[i];
109. end;
110. Writeln(FS,'');
111. end;
112. CloseFile(FO);
113. CloseFile(FS);
114. Label3.Caption:='Проверка файла завершена. Исправлено '+IntToStr(count)+' заглавных букв.';
115. Button3.Enabled:=False;
116. Button4.Visible:=True;
117. Label4.Visible:=True;
118. end;
119. end;
120. procedureTForm1.Button4Click(Sender: TObject);
121. begin
122. OFName:='';
123. SFName:='';
124. Button1.Enabled:=True;
125. Button2.Visible:=False;
126. Button2.Enabled:=True;
127. Button3.Visible:=False;
128. Button3.Enabled:=True;
129. Button4.Visible:=False;
130. Label2.Visible:=False;
131. Label3.Visible:=False;
132. Label4.Visible:=False;
133. Label1.Caption:='Нажмите на кнопку «Открыть» и выберитефайл для проверки';
134. end;
135. end.
136.
ПРИЛОЖЕНИЕ В
Результаты решения программы
/>
Результатомрешения программы можно считать сообщение об исправленных заглавных буквах ирезультирующий файл с записанной в него информацией.