Слайд 11
Подпрограммы Uses graphABC; var x,y:integer; procedure имя-1; begin … end; procedure имя-2; begin … End; Begin x:=a1; y:=b1; имя-1; x:=a2; y:=b2; имя-2; x:=a3; y:=b3; имя-2; x:=a4;
y:=b4; имя-1; end.
Слайд 12
Пример использования подпрограмм Uses graphABC; var x,y:integer; procedure pr; begin rectangle(x,y,x+100,y+50); end; procedure rb; begin moveto(x,y); lineto(x+25,y+25); lineto(x,y+50); lineto(x-25,y+25); lineto(x,y); End; begin setpenwidth(3); x:=50; y:=50; pr; x:=200;