Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Объясните, для чего предназначен модуль GRAPH. Каким образом он подключается к работе, как совместить его работу с модулем CRT?
Как инициализируется и выключается графический режим?
Объясните, для чего предназначены и как используются стандартные процедуры построения основных элементов графических изображений.
Объясните, для чего предназначены и как используются стандартные функции основных элементов графических изображений.
Дайте формальное описание типа POINTTYPE как записи.
Объясните, для чего предназначены и как исполняются следующие команды:
moveto(50,25); moverel(-55,15); t:=getmaxx; p:= getmaxy div 2; w:=getx+gety; outtext(‘s=’); outtextxy(18,getx,’sin=’); closegraph; putpixel(10+getx,100,0); c:=getpixel(15,56); circle(100,150,80); sector(15,30,3.14,4.71,10,5); floodfill(10+getx,20+gety,8); var pol:array[1..25] of pointtype; sound(1000); delay(2000); | line(0,0,getmaxx,getmaxy); lineto(10,30); linerel(40,-10); setlinestile(1,0,3); rectangle(10,20,30,40); bar(40,30,20,10); bar3d(0,10,100,120,topon); bar3d(10,100,110,120,topoff); p[8].x:=random(getmaxx); p[i].y:=10+i*5; arc(100,120,0,1.57,50); drawpoli(10,t); ellipse(150,160,1.57,6.28,50,60); pieslice(100,150,0,3.14,70); fillellipse(100,50,20,30); nosound; |
7.Укажите смысловые и синтаксические ошибки:
if getx mod 2 =0 then circle(100,-15,80); else ellipse(150,160,50); | for i:=1 to getmaxx/2 begin p[i].x:=random(10); drawpoly(10,p);end; |
if getmaxx mod 2=2 then circle(100,50.5,35) else arc(100,50,0,10,200); | s:=123; for i:=1 to 8 do outtextxy(10,100+2*(i-1),’s=’,s+i); |
moveto(15,30); moverel(-30,80); outtext(sin(15)); | i:=1;n:=length(a); while i>=n do insert(a,i,’23’); i:=i+1; |
setcolor(20); setlinestile(1,0,5); triangle(10,20,30,40,50,60); | bar3d(10,100,110,120,true); |
circle(10,10,50); floodfill(10,60,0); | ellipse(150,160,-1.57,6.28,5.0,6); |
8.Что делает данный фрагмент программы?
for i:=1 to 15 do begin circle(10+(i-1)*2,15+(i-1)*5,15*i); putpixel(10+(i-1)*2,15+(i-1)5,0); end; | setcolor(4); setstyleline(2,0,3); for i:=1 to 15 do begin k:=(i-1)*2; reсtangle(1+k,1+k,10+k*3,10+k*3); end; |
(3)i:=1; while i<=15 do begin p[i].x:=random(getmaxx); p[i].y:=random(getmaxy);i:=i+1;end; p[i].x:=p[1].x; p[i].y:=p[1].y drawpoly(16,p);outtext(s); | x:=100;y:=150;moveto(x,y); for i:=1 to 20 do begin linerel(10,10);linerel(-10,10);end; |
x:=100;y:=150;moveto(x,y); for i:=1 to 20 do begin if i mod 2=0 then x:=x-20 else y:=y+15; lineto(x,y);end; | setcolor(5); circle(100,100,50); ellipse(100,100,0,6.28,25,50); floodfill(101,101,5); |
Дата публикования: 2014-11-04; Прочитано: 277 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!