Разработать библиотеку процедур, реализующих вывод на экран(рисование)условных графических обозначений радиодеталей.Обозначить вызов процедур из одного программного модуля.(Тема №14)

Аннотация
Введение
1.Формализация задачи
2.Исходные данные, искомые результаты и форма их представления
3.Алгоритм решения задачи и его описание
3.1.Алгоритм рисования резистора
3.2.Алгоритм рисования конденсатора
3.3. Алгоритм рисования катушки индуктивности
3.4. Алгоритм рисования диода
3.5. Алгоритм рисования лампы накаливания
3.6.Алгоритм программного модуля
4.Программа на алгоритмическом языке
5.План отладки программы
6.Инструкция по работе с программой
7.Анализ полученных результатов и выводы.
Заключение
Список литературы

Text); if (x>500) or (y>500) then beginShowMessage(‘Неверныекоординаты’); Exit end; Canvas.Pen.Width:=StrToInt(cbbWidth.Text); DrawInd(x, y, Canvas,w);end;procedure TForm1.btnDiodClick(Sender: TObject);var w, x, y : Integer;beginw:=StrToInt(cbbSize.Text)*5; Canvas.Pen.Color:=RGB(34,28,100); x:=StrToInt(edtX.Text)+200; y:=StrToInt(edtY.Text); if (x>500) or (y>500) then beginShowMessage(‘Неверныекоординаты’); Exitend; Canvas.Pen.Width:=StrToInt(cbbWidth.Text); DrawDiod(x, y, Canvas,w);end;procedure TForm1.btnLampClick(Sender: TObject);var w, x, y : Integer;begin w:=StrToInt(cbbSize.Text)*5; Canvas.Pen.Color:=RGB(34,28,100); x:=StrToInt(edtX.Text)+200; y:=StrToInt(edtY.Text); if (x>500) or (y>500) then beginShowMessage(‘Неверныекоординаты’); Exit end; Canvas.Pen.Width:=StrToInt(cbbWidth.Text); DrawLamp(x, y, Canvas,w);end;procedure TForm1.FormCreate(Sender: TObject);begincbbSize.ItemIndex:=0;cbbWidth.ItemIndex:=0;end;procedure TForm1.edtXKeyPress(Sender: TObject; var Key: Char); //обработкавводазначенийвполеХbeginif (Keyin ['0'..'9']) or (Key=#8)= Falsethen //если введена не цифраи не нажатBackspace, то ничего не вводить в полеKey:=Chr(0);end;procedure TForm1.edtYKeyPress(Sender: TObject; var Key: Char); ); //обработкавводазначенийвполеУbeginif (Keyin ['0'..'9'])or (Key=#8) = Falsethen//если введена не цифраи не нажатBackspace, то ничего не вводить в полеKey:=Chr(0);end;procedure TForm1.edtXExit(Sender: TObject);//еслипустоеполе, то =0beginifedtX.Text='' then edtX.Text:='0';end;procedure TForm1.edtYExit(Sender: TObject);//еслипустоеполе, то =0beginifedtY.Text='' then edtY.Text:='0';end;end.План отладки программыЗапуск программы.Выбрать размер элементовВыбрать толщину линииВвести координаты. Нажать кнопки «Нарисовать» для всех элементов.Ввести в поле координат недопустимое значение и проверить реакцию при нажатии на кнопки «Нарисовать» Вводим следующие значения:- не цифры-нулевые значения-значения, превышающие размеры экранной формы 7. Завершить работу программы.Инструкция по работе с программойЗапустить программу. Выбрать в выпадающем списке размер элементов. Выбрать в выпадающем списке толщину линии. Ввести начальные координаты Х и У.Нажать кнопку «Нарисовать» для требуемого элемента. Далее можно выбрать другой размер, толщину линии, другие координаты и нарисовать новый элемент. При этом уже нарисованные элементы остаются на форме и не стираются. Элемент является непрозрачным, то есть он «загораживает» нарисованные ранее элементы, если их изображения пересекаются. Результат работы программы см. на рис. 2.Рис.2. Скриншот программы. Результат рисования радиодеталей.Анализ полученных результатов и выводы.С помощью функций работы с графикой в среде Delphiразработаны процедуры для рисования резистора, конденсатора, катушки индуктивности, диода, лампы накаливания. Изучены и использованысвойства объекта Canvas, функции для работы с графикой: LineTo, PenPos, Arc, Ellipse. Также изучены и использованы компоненты формы выпадающий список, поле ввода и кнопка. Создан обработчик ввода некорректных данных в поле ввода координат. Библиотека может быть доработана функцией поворота элемента на 90 градусов. ЗаключениеДля повторения многократных повторений рисования графических изображений элементов с разными координатами и размерами удобно использовать созданную библиотеку процедур. Библиотека может быть использована для создания приложения для рисования электросхем. Список литературыDelphi 7. Анатолий Хомоненко, Владимир Гофман, Евгений Мещеряков. БХВ-Петербург, 2010.ГОСТ 19.701-90 Схемы алгоритмов, программ, данных и систем.ГОСТ 2.104-68 Основные надписи.Методические рекомендации и задания по выполнению курсовой работы. Гладун С.К., Исай А.Н., Жуков С.В. Смоленск, ВУ ВПВО ВС РФ, 2000.