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
ПОБУДОВА ГРАФІЧНИХ ПОЗНАЧЕНЬ ЕЛЕМЕНТІВ РАДІОЕЛЕКТРОННИХ СХЕМ
Підготував
студент
групи РТ-11
Усік І.С.