1.ПОСТАНОВКА ЗАДАЧІ. Потрібно завантажити і проініціалізувати графічний драйвер. Потім у процедуру ввести параметри елемента. Масштаб та кординати точки А потрібно вводити багаторазово тому використовуємо цикл. Кожен раз після вводу масштабу та координатів слід викликати процедуру. 2.РОЗРОБКА СТРУКТУРИ ДАНИХ. №п(п Позначення Ім’я( Тип Призначення, опис  1 gd,gm, pathtodriver gd,gm, pathtodriver - Змінні необхідні для реалізації графічного драйвера  2 v v ціла Кількість фігур  3 x,y x,y ціла Координати графіка(точки А)  4 М М ціла масштаб  5 і і ціла Необхідна для утворення циклу  6 F F процедура Містить усі параметри фігури   3.РОЗРОБКА БЛОК-СХЕМИ АЛГОРИТМУ.

 4.ЗАПИС ТЕКСТУ ПРОГРАМИ. program jygh; uses graph,keyboard; var gd,gm:smallint;v,x,y,m,i:integer; pathtodriver:string; procedure f(x,y:integer); begin line(x,y,x+10*m,y); line(x+14*m,y,x+30*m,y); line(x+10*m,y-m*8,x+10*m,y+m*8); line(x+5*m,y+m*8,x+22*m,y-m*8); line(x+14*m,y-m*8,x+14*m,y+m*8); line(x+22*m,y-m*8,x+20*m,y-m*8); line(x+22*m,y-m*8,x+22*m,y-m*6); end; begin writeln('skilku raziv hoshete pobashutu figyry'); readln(v); gd:=0;initkeyboard; initkeyboard; initgraph(gd,gm,''); RestoreCrtMode; for i:=1 to v do begin writeln('vvedit x'); readln(x); writeln('vvedit y'); readln(y); writeln('vvedit mashtab'); readln(m); f(x,y); end;readln; exit; repeat until keyboard.getkeyeventchar(keyboard.getkeyevent())='g'; closegraph(); donekeyboard; end. 5.ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.

Висновок: я засвоїв методику та виробив практичні навики застосування засобів графічного виводу інформації на прикладі побудови графічних позначень елементів радіоелектронних схем. Ознайомився з графічним модулем, та навчився будувати фігури. Міністерство освіти і науки україни НУ «Львівська Політехніка» Кафедра інформатики. ЛАБОРАТОРНА РОБОТА №12 ПОБУДОВА ГРАФІЧНИХ ПОЗНАЧЕНЬ ЕЛЕМЕНТІВ РАДІОЕЛЕКТРОННИХ СХЕМ [ім’я автора приховано]