Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 10 лет назад пользователемПолина Бабурина
1 учитель информатики Пунгер Ирина Евгеньевна МБОУ «СОШ 23» г. Северодвинск Архангельская область
2 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 кол-во делений ОХ и ОУ кол-во повторений тела цикла подписи делений задаем цвет линии рисуем вертикальные линии (промежуточные линии сетки) рисуем горизонтальные линии (промежуточные линии сетки)
3 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; задаем цвет линии (черный) задаем толщину осей координат рисуем ось ОУ рисуем стрелочки на оси ОУ рисуем ось ОХ рисуем стрелочки на оси ОХ создаем подписи делений преобразует целое число к строке подписи коор-т полож. ось ОХ подписи коор-т отриц. ось ОХ преобразует целое число к строке подписи коор-т полож. ось ОУ подписи коор-т отриц. ось ОУ
4 procedure sinus(a,b,c: integer); var x,y: real; xscreen,yscreen: integer; begin x:=-keox; while x
5 procedure parabola(a,b,c: real); var x,y: real; xscreen,yscreen: integer; begin x:=-keox; while x
6 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. инициализация задаем размер деления ширина плоскости высота плоскости находим начало координат находим количество точек, в которых вычисляется значение функции задаем размер экрана вызов процедуры (рисуем оси) (строим синус) (строим параболу)
7 Справка языка программирования ABCPascal
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.