учитель информатики Пунгер Ирина Евгеньевна МБОУ «СОШ 23» г. Северодвинск Архангельская область
uses graphABC; var m,ww,wh,x0,y0,keox,keoy:integer; procedure osi; var i: integer s: string; begin setpencolor(rgb(100,100,100)); for i:=1 to keox do begin line(x0+m*i,0,x0+m*i,wh); line(x0-m*i,0,x0-m*i,wh); end; for i:=1 to keoy do begin line(0,y0+m*i,ww,y0+m*i); line(0,y0-m*i,ww,y0-m*i); end; m – цена деления; ww-ширина плоскости; wh- высота плоскости; x0,y0-начало координат; keox, keoy кол-во делений ОХ и ОУ кол-во повторений тела цикла подписи делений задаем цвет линии рисуем вертикальные линии (промежуточные линии сетки) рисуем горизонтальные линии (промежуточные линии сетки)
setPencolor(rgb(0,0,0)); setpenwidth(3); line(x0,0,x0,wh); line(x0+3,15,x0,0); line(x0-3,15,x0,0); line(0,y0,ww,y0); line(ww-15,y0+3,ww,y0); line(ww-15,y0-3,ww,y0); for i:=1 to keox do begin s:=intToStr(i); textOut(x0+m*i,y0+2,s); textOut(x0-m*i,y0+2,'-'+s); end; for i:=1 to keoy do begin s:=intToStr(i); textOut(x0-14,y0-i*m,s); textOut(x0-14,y0+i*m,'-'+s); end; задаем цвет линии (черный) задаем толщину осей координат рисуем ось ОУ рисуем стрелочки на оси ОУ рисуем ось ОХ рисуем стрелочки на оси ОХ создаем подписи делений преобразует целое число к строке подписи коор-т полож. ось ОХ подписи коор-т отриц. ось ОХ преобразует целое число к строке подписи коор-т полож. ось ОУ подписи коор-т отриц. ось ОУ
procedure sinus(a,b,c: integer); var x,y: real; xscreen,yscreen: integer; begin x:=-keox; while x
procedure parabola(a,b,c: real); var x,y: real; xscreen,yscreen: integer; begin x:=-keox; while x
begin m:=50; ww:=800; wh:=700; x0:= ww div 2; y0:= wh div 2; keox:= ww div 2 div m; keoy:=wh div 2 div m; setwindowSIze(ww,wh); osi; sinus(1,1,0); parabola(1/2,-1,-1); end. инициализация задаем размер деления ширина плоскости высота плоскости находим начало координат находим количество точек, в которых вычисляется значение функции задаем размер экрана вызов процедуры (рисуем оси) (строим синус) (строим параболу)
Справка языка программирования ABCPascal