40:Begin
TextColor(green);
Write('Результат');
End;
50:Begin
TextColor(green);
Write('Печать');
End;
60:Begin
TextColor(green);
Write('Выход');
End;
End;
End;
Procedure pannel; {процедура рисования панели управления}
Begin
Window(10,22,69,22);
TextBackGround(green);
clrscr;
TextColor(brown);
Write('Новый Открыть Править Результат Печать Выход');
End;
{функции тестового редактора}
Procedure panel.choose; {процедура выбора функции}
Begin
case x of {по координате окна выбора определяет нужную функцию}
10:NewF;
20:OpenF;
30:RedactF;
40:SearchF;
50:PrintF;
60:b:='e';
End;
End;
Вывод: Как видно, основную функцию управления взял на себя объект.
Благодаря этому действие программы значительно упростилось, программа стала
быстрее работать. Схему действия объекта можно изобразить следующим образом
Оформление программы.
В завершении работы с программой я приступил к оформлению работы. Создание
титульной страницы не составило большого труда. Если вы ознакомитесь с
программным кодом, то убедитесь, что все команды- из модуля crt. Они
используют элементы работы с цветом фона и текста.
Procedure oform;
Begin
TextBackGround(green); {установка цвета фона}
clrscr;
TextColor(red); {цвет текста}
GoToXY(20,10); {перевод курсора в нужную позицию}
Write('Редактор Тестов'); {вывод текста}
TextColor(darkgray); {цвет текста}
GoToXY(20,12);
Writeln('автор: Цыбин Антон'); {вывод текста}
GoToXY(20,14);
Writeln('составлено 09.05.2000'); {вывод текста}
TextColor(white); {цвет текста}
GoToXY(20,16);
Writeln('нажмите клавишу'); {вывод текста}
Readln;
TextBackGround(black);
clrscr;
End;
Begin
Программа рисует титульный лист разноцветными буквами.
Основная программа.
Реализует действие всей программы, здесь сходятся все процедуры, объекты,
функции, но ее действие крайне просто: сначала запускается оформление,
затем системное время, а затем управление передается объекту или его
методам. По завершении работы программа закрывает все окна и «сворачивает»
работу программы.
g.x:=10;
oform; {оформление}
TextColor(green);
GoToXY(30,1);
Writeln('ТЕСТОВЫЙ РЕДАКТОР. V 1.01.'); {вывод информации}
GoToXY(23,2);
Writeln('составитель: Цыбин Антон (09.05.2000)');
pannel;
repeat
Window(60,24,70,24);
TextBackGround(black);
clrscr;
repeat {время}
h:=g3;
GoToXY(50,22);
GetTime(g1,g2,g3,g4);
TextColor(yellow);
Write(g1,':',g2,' ',g3);
Delay(1000);
clrscr;
until keypressed;
b:=readkey; {считывание клавиши}
По нажатию клавиши программа определяет дальнейшие действия (передача
управления объекту)
case b of
'1':g.left(b);
'3':g.right(b);
'0':Begin
Window(10,10,53,15);
TextBackGround(blue);
clrscr;
g.choose;
End;
End;
until b='e';
Window(10,10,53,20); {закрытие всех окон}
TextBackGround(black);
clrscr;
Window(10,10,80,15);
TextBackGround(black);
clrscr;
Window(30,10,35,12);
TextBackGround(red);
clrscr;
TextColor(blue);
Writeln('конец!');
Readln;
End.
Программа запускает методы панели управления в соответствии с нажатой
клавишей, повторный вызов происходит благодаря циклу.
Заключение: Тенденции развития программных технологий.
Вы прочитали реферат и ознакомились с принципами действия отдельных
процедур, функций и всей программы в целом. Кроме того, вы поняли разницу
между структурным и объектным подходами к программированию. Что касается
структурных языков, о них сказано и написано почти все, но немногие знакомы
с объектами. Поэтому я посвящаю заключение этой теме.
В последние несколько лет начал создаваться новый подход к
программированию, названный объектным. Объекты стали вводиться и в язык
Pascal, который позже был назван Object Pascal. Сам объект построен по
принципу, объясняющемуся в главе «Объекты». Их преимущество заключается в
принципе наследования, когда один созданный объект способен породить
родственный ему объект-потомок. Многие объекты могут использовать друг
друга при построении программы. Ввиду большого количества полей и методов,
были созданы свойства, использующие методы. В частности, в Delphi свойства
выносятся в Инспектор объектов, что делает работу с ними похожей на детскую
игру. Теперь, чтобы написать программу, не надо возиться с кучей переменных
и операторов. Программист может даже и не видеть текста самой программы,
конструируя сразу ее внешний вид на форме. Таким образом, если на создание
программы ранее уходили недели, то сейчас она создается за несколько часов.
В связи с переходом на объектные концепции, новые программы возникают на
основе уже имеющихся объектов. Некоторые языки программирования написаны на
основе объек