Из опыта создания универсальных тестовых редакторов — страница 14

на себя объект. Благодаря этому действие программы значительно упростилось, программа стала быстрее работать. Схему действия объекта можно изобразить следующим образом Оформление программы. В завершении работы с программой я приступил к оформлению работы. Создание титульной страницы не составило большого труда. Если вы ознакомитесь с программным кодом, то убедитесь, что все команды- из модуля 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. Сам объект построен по принципу, объясняющемуся в главе «Объекты». Их