Келесіпрограммаэкранныңортасындатерезесызып, оныкезкелгентүзулерментолтырады

Келесіпрограммаэкранныңортасындатерезесызып, оныкезкелгентүзулерментолтырады.

Var d,r,c: integer;

x1, x2, y1, y2: integer;

Begin

InitGraph(d, r,’ ’); c:= GraphResult;

if c <> grok then Writeln(GraphErrorMSG©)

else begin

x1:= GetMaxX div 4;

y1:= GetMaxY div 4;

x2:= 3 * x1;

y2:= 3 * y1;

Rectangle(x1, y1, x2, y2);

SetViewPort(x1+1,y1+1,x2-1,y2-1, ClipON);

repeat

setcolor(succ(random(16));

until keypressed;

EmtyFill Түссіз

LineFill Горизонталь штрихпен сызылады

LtSlashFill Солға 45 градус жiңiшке сызықпен сызылады

SlahFill Солға 45 градус сызықпен сызылады

BkSlashFill Оңға 45 градуста жiңiшке сызықпен сызылады

LtBkSlashFill Оңға 45 градуста сызықпен сызылады

HachFill Тор штрих пен сызылады

XhatchFill 45 градус сирек сызықтармен штрихтау

InterleavFill 45 градус жиi сызықтармен штрихтау

WidedotFill Сирек нүктелермен толтыру

CloseDotFill Жиi нүктелермен толтыру

UserFill Толтыру типiн програмист анықтайды

Мысалы SetFillStyle(SolidFill,4)

Төмендегi программа осы толтыру стильдерiн пайдаланып, геометриялық фигуралардың iшкi аумақтарын толтырады.

ErrCode: integer;

i, j: integer;x, y: integer;

w, h: integer;

grDriver:= VGA; grMode:=VGAHi;

grPath:='d:\tp\bgi';

InitGraph(grDriver, grMode,grPath);

ErrCode:= GraphResult;

if ErrCode <> grOk then Halt(1);

w:=60;h:=60;

for i:=0 to 2 do

for j:=0 to 3 dobegin

x:=10+j*120;

y:=10+i*100;

SetFillStyle(i*4+j,White);

Bar(x,y,x+w,y+h);

OutTextXY(x,y+h+5,FillConst[i*4+j]);

end;

readln;

end.

Программаграфикалықрежимдетекстікақпараттыэкранғашығараалады. СоныменқатарайнымалылардыңмәнінWrite, Writeln-процедураларыкөмегіменшығараалады.

OutText , OutTextXY- поцедуралары.

ПрограммадаграфикалықрежимдеOutText, OutTextXYпроцедураларыкөмегіментекстікинформацияларэкранғашығарылады.

Программист текст шрифтің стилін өзгерте алады. Шрифті өзгерту үшін SetTextStyle- поцедурасы қолданылады.

DefaultFont 0 Cтандартты.

TriplexFont 1 Triplex

SmollFont 2 Майда

SansSerifFont 3 SansSerif

Gothicfont 4 Готикалық

1. 
   Қажетті түспен графикалық объект тұрғызылады;
   
2. 
   Белгілі бір уақыттан соң сол бейне экранның фонының түсімен тұрғызылады, яғни ол экраннан жойылады;
   
3. 
   Объектің координаттары өзгертіледі;
   
4. 
   пункт 1 әрекеттерін қайта орындау
   

PROGRAM LAB_10;

USES GRAPH, CRT;

CONST N=1000;

TYPEPIXEL TYPE=RECORD {жұлдыздар координатасы}

XP, YP:INTEGER;

END;

VAR A,U,E,X,Y,DX,DY,I,SIXE,INTEGER;

T:POINTER; {көрсеткіш}

PROCEDURE STARSKY;

BEGIN

RANDOMIZE;

FOR I:=1 TO N DO

WITH P[I] DO

BEGIN

XP:=RANDOM(GETMAXX-10);

END;

FOR I:1 TO N DO

WITH P[RANDOM(N)DO]

RUTPIXEL(XP,YP,15);

IF NOT KEYPRESSED THEN

FOR I:=N DOWNTO 1 DO

WITH P[RANDOM(N)] DO

PUTPIXEL(XP,YP,0);

UNTIL LEYPRESSED;

END;

BEGIN

ELLIPSE(120,100,0,360,50,40);

SETFILLSTYLE(1,12);

FLOODFILL(120,100,12);

SETCOLOR(14);

SETLINESTYLE(0,1,3);

ELLIPSE(120,100,155,25,60,25);

SETLINESTYLE(0,1,1); {Венераны саламыз}

SETCOLOR(6);

CIRCLE(400,350,20);

SETFILLSTYLE(1,6);

FLOODFILL(400,350,6);

SETCOLOR(4); {Марсты саламыз}

CIRCLE(500,400,40);

SETFILLSTYLE(1,4);

FLOODFILL(500,400,4);

SETCOLOR(3); {Жерді саламыз}

ARC(0,470,0,90,150);

LINE(0,470,0,320);

LINE(0,470,150,470);

SETFILLSTYLE(1,3);

FLOODFILL(10,400,3);

SETLINESTYLE(0,1,3);

SETCOLOR(10);

FOR I:=153 DOWNTO 110 DO

BEGIN

ARC(0,470,0,I-70,I-3);

END;

END;

BEGIN

SETCOLOR(8); { ракетаның корпусын саламыз }

LINE(150,350,200,300);

LINE(200,300,210,310);

LINE(210,310,160,360);

LINE(160,360,150,350);

SETFILLSTYLE(1, 8);

FLOODFILL(155,350,8);

SETCOLOR(7); {ракетаның ұшын саламыз}

LINE(200,300,220,290);

LINE(220,290,210,310);

LINE(210,310,200,300);

SETFILLSTYLE(1,7);

FLOODFILL(210,305,7);

SETLINESTYLE(0,1,3); { ракетаның қанатын саламыз}

SETCOLOR(8);

RECTANGLE(150,350,160,340);

RECTANGLE(160,340,170,360);

SETCOLOR(4); {жалынын саламыз }

LINE(150,360,140,370);

LINE(145,355,135,365);

SETCOLOR(14);

LINE(148,358,138,368);

LINE(155,365,145,375);

END;

BEGIN

DIRECTVIDEO:=FALSE;

A:=DETECT;

INITGRAPH(A,U,’C:\BP\BGI’);

E:=GRAPHRESULT;

IF E<>GROK THEN

WRITELN(GRAPHERRORMSG(E))

ELSE

CLRSCR;

SETVIEWPORT(0,0,GETMAXX,GETMAXX,CLIPON);

PLANETS;

RAKETA;

GETMEM(T,SIZE);

GETIMAGE(120,250,T^,XORPUT);

{стираем построенное}

PUTIMAGE(120,250,T^,XORPUT);

STARSKY;

Y:=250;

DY:=10;

FOR I:=1 TO 50 DO

BEGIN

X:=X+DX;

PUTIMAGE(X,Y,T^,XORPUT);

DELAY(1000);

PUTIMAGE(X,Y,T^,XORPUT);

END;

END;

CLOSEGRAPH;

END.

Бақылау сұрақтары.

1. 
   Стандартты модульдер.
   
2. 
   Turbo Pascal 7.0 программалау жүйесінде экранның графикалық режимін қосу.
   
3. 
   Графикалық примитивтерді бейнелеу процедуралары.
   
4. 
   Анимация деген не?
   

Анимацияланатын құжатқа дыбыс қосу тәсілін көрсету, сөйтіп дыбыстық құжат кұруға үйрету. Логикалық ойлау қабілеттерін, программада жұмыс істеу дағдыларын дамыту.

14. 
    Ұйымдастыру кезеңі Оқушыларды ұйымдастырып, түгендеу.
    
15. 
    Үй тапсырмасын тексеру кезеңі
    

16. 
    Жаңа тақырыпты үйрету кезеңі
    
17. 
    Теория
    
18. 
    Flash анимация дыбысты да қабылдай алады. Мұнда дыбысты қолданудың бірнеше эдісі бар. Сендер тоқтамай, сюжеттің мазмұнына қарамай, қолданушының эрекетіне жауап бермей, ойнап тұра беретін дыбыспен жабдықтай аласыңдар. Ал жоба одан эрі қызықты болу үшін эр батырманы басқанда дыбыс шығатындай етуге болады. Жэне тагы бір жолы - ActionScript сценарийлерін пайдалану.
    
19. 
    Flash-те дыбысты біріктірудің екі үлгісі карастырылған: Оқиғалы-басқару (Eventsound) жэне Ағымды (Streamsound). Оқиғалы-басқару дыбыс кезінде берілген кад- рлар аяғына дейін жүктеліп болғаннан кейін дыбыс оны тоқтатқанға дейін ойнатыла береді. Ал ағымды баскару үшін алғашқы кадрлар жүктелгеннен кейін-ақ ойнату ба- сталып кетеді.
    
20. 
    Дыбыспен жұмыс істеу оңай болу үшін, Flash авторларға келесі мүмкіншіліктерді ұсынады:
    
21. 
    Дыбысты кітапханаларға бөліп қоюға болады, яғни енді бір кітапханадағы дыбысты бірнеше фильмдерде қолдануға болады.
    
22. 
    • Дыбысты экспортталатын фильмнің сапасы мен колеміне қарап, параметрлерін өзгертуге болады, яғни автор, дыбыс сығу жолын озі таңдай алады.
    
23. 
    Сондай-ақ, дыбысты модификациялау үшін эртүрлі қосымша эффектілерді қолдана аласыңдар.
    
24. 
    1. Фильмге дыбыстық эсер беру үшін ең алдымен, қажетті файлды File =>Import =>ImporttoLibrary(Файл => Импорт => Кітапханаға импорттау) бұйрығы арқылы импорттаймыз;
    
25. 
    Insert Layer (Қабатты кою) бүйрығының көмегімен жа- ңа қатпар қүрамыз жэне оған «Дыбыс» деген атау бе- рейік;
    
26. 
    TimeLine қатарында «Ды­быс» қатпарының 1-ка- дрын ерекшелейміз жэне Қасиеттер бөлімінің Sound
    

4. 
   Тақырыпты оқу.
   
5. 
   Дыбыс біріккен анимациялық қүжат құру.
   

А) Блез Паскаль Ә) Никлаус Вирт Б) Н.Верджино В) Чарльз Беббидж

А) var x: integer var x: real const x: real var x: real

А) real Ә) integer Б) string В) boolean

А) тұрақтыларды сипаттау Ә) белгілерді сипаттау Б) айнымалыларды сипаттау В) программа тақырыбы

А) Char Ә) const Б) var В) label

А) and, goto, not қызметші сөздері арқылы Ә) and, or, of қызметші сөздері арқылы

Б) and, or, not қызметші сөздері арқылы В) or, not, end қызметші сөздері арқылы

8. Операторларды шектеп тұратын Begin және end түйінді сөздерін қалай атауға болады?

А) операторлық жақша Ә) программаның басы мен соңы

Б) шартты жқшалар В) программаның негізгі бөлігі

А) ** Ә) ^ Б) & В) дұрыс жауабы жоқ

А) 2,8 Ә) 2 Б) 5 В) 11

А) SQR (X) Ә) SQRT (X) Б) ABS (X) В) MOD (X)

А) PRINT Ә) WRITE Б) OUTPUT В) READ

А) (X1/X2)*y Ә) b+(a-c/3)Б) (sqrt (p) * q)/r В) (a(b/(c*d/(ef)))))

А) Санның квадраты Ә) Санның квадрат түбіріБ) Х-тің 5 дәрежесі В) Санның абсолют шамасы

А) VAR Ә) WRITE Б) CONSTВ) READ

А) теңдік Ә) айнымалыларды салыстыру Б) меншіктеу В) бөлу

А) 5 Ә) 3 Б) 4 В) 2

А) VAR A, B: integer; Ә) VAR A=14, B=12.3;Б) BEGIN A=14 B=12.3 В) VAR A: integer B: real

А) Integer Ә) real Б) array (1… n) of real В) array (1.. n) of integer

А) Шартсыз көшу операторы Ә) Шартты көшу операторы

Б) Баспаға шығару операторы В) Программаның басы – соңы;

21. CASE [өрнек] OF операторының қызметі ....

А) Шартсыз көшу операторы Ә) Шартты көшу операторы

Б) Баспаға шығару операторы В) Операторды енгізу операторы

22. IF [шарт] THEN [1-серия]...

А) Шартсыз көшу операторы Ә) Шартты көшу операторы

Б) Баспаға шығару операторы В) Операторды енгізу операторы

23. tg (x) функциясының Паскаль тілінде жазылуы

А) TAN (X) Ә) TGx Б) Atan (x) В) Sin (x) / Cos (x) ;

А) SQR Ә) SQRT Б) ASQRT В) EXP (x)

А) ** Ә) ^ Б) sqr В) sqrt

27. a+bx - x2 / 10 өрнегінің Паскальда жазылуы дұрыс....

А) (a+b)^2-x^2/10 Ә) SQR (a+bx)-x*2/10

Б) SQRT (a+b*x) – SQR (x) /10 В) SQRT (a) + b * x – x^2/10