Курсовая работа: Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)
begin
81
lbRezultat.Caption:= 'Ошибка: Отсутсвует переход на метку '+ sLabelName;
82
lbRezultat.Font.Color:= clRed;
83
Exit;
84
end;
85
inc(iKol);
86
i:= pos('goto ', sFile);
87
end;
88
if lbRezultat.Caption='' then
89
begin
90
lbRezultat.Caption:= 'Правильное задание '+ IntToStr(iKol)+ ' инструкций безусловного перехода';
91
lbRezultat.Font.Color:= clNavy;
92
end;
93
end;
94
end;
95
96
procedure TForm1.buCloseClick(Sender: TObject);
97
begin
98
Close;
99
end;
100
101
end.
2.4 Запуск приложения
Выполняется нажатием клавиши F9. После компиляции запускается программа на выполнение. Окно программы с результатами работы представлены на рис.2-5.
Рис.2 – Окно открытия файла
Рис.3 – Проверка файла
Рис.4 – Проверка файла
Рис.5 – Проверка файла
ПЕРЕЧЕНЬ ССЫЛОК
1. Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль. - М.: Наука, 1988.
2. Довгаль С.И., Литвинов Б.Ю., Сбитнев А..И. Персональные ЭВМ : Турбо Паскаль V7.0, объектное программирование, локальные сети. – Киев: Информсиситема сервис, 1993.
3. Епанешников А.М., Епанешникова В.А. Программирование в среде Turbo Pascal 7.0.-М.: Диалог –МИФИ,1999.