Саба?ты? та?ырыбы: Графикалы? режимге м?тін жазу т?сілі
Саба?ты? ма?саты:Графикалы? экранда м?тін жазу ?шін м?тіндік т?сілдерді ?олдануды ?йрету.
Білімділік: О?ушылар?а графиктер ма?ына м?тін жазатын ?андай ?рекеттер бар екенін т?сіндіру.
Дамытушылы?: Графикамен ж?мыс жасауды ?йрету ар?ылы о?ушыларды? логикалы? ойлау ?абілетін дамыту.
Т?рбиелік: О?ушыларды уа?ытты ?тымды ж?не берілген тапсырмаларды кампьютерден ??ыпты пайдалану?а т?рбиелеу.
Саба?ты? типі: Жа?а білімді ме?герту
Саба?ты? т?рі: Аралас саба?
?олданылатын к?рнекіліктер: Интерактивті та?та, кампьютер, о?улы?тар, ?йлестірмелі кеспелер.
Саба?ты? барысы:
- ?йымдастыру кезе?і. Амандасу, о?ушыларды т?гелдеу, сынып б?лмесімен о?ушыларды? саба??а дайынды?ын тексеру.
- ?й тапсырмасын тексеру.
- Жа?а саба?ты т?сіндіру.
?й тапсырмасы: «Ой ?оз?ау»
1.Графикалы? режим дегеніміз не?
2.USES ?андай оператор?
3.Groph-дегеніміз не?
4.Crt-?андай ?ызмет ат?арады?
5.Координаттар жазы?ты?ы дегеніміз не?
6. Графикалы? режимде сурет салу ?шін ?олданылатын ?андай графикалы? операторлар бар ?
7. Экранда тазалау ?шін ?андай процедураны ?олданылады?
8. Экран?а м?тіндер мен с?здер шы?ару ?шін ?андай оператор ?олданамыз?
9. Графикалы? іс-?ркеттер к?мегімен суреттерді жасау жекеленген ?анша кезе?дерден т?рады біреуін атап к?рсет.
Жа?а саба?
- До?а сызатын ?андай іс-?рекеттер бар?
- Экранда сызы? салатын ?андай т?сілдер бар?
- Графиктер ма?ына м?тін жазатын ?андай ?рекеттер бар?
- Graph модулі ?андай ?ызмет ат?арады?
- Эллипстерді ?алай салу?а болады?
uses graphabc;
var i,r,k:integer;
s:string;
begin
lockdrawing;
r:=200; k:=0;
for i:=1 to 10 do
begin
if i mod 2=0 then setbrushcolor(clred)
else setbrushcolor(clwhite);
circle(200,200,r-k);
str(i,s);
textout(6+k,194,s);
k:=k+20;
redraw;
end;
end.
uses graphABC;
var m,i:integer;
begin
m:=50;
clearwindow(clAqua);
setPenColor(clGreen);
for i:=1 to 3 do
begin
moveto(windowwidth div 2,m);
lineto((windowwidth div 2)-m,2*m+10);
lineto((windowwidth div 2)+m,2*m+10);
lineto((windowwidth div 2),m);
Floodfill(windowwidth div 2,m+12,ClGreen);
inc(m,50);
end;
Floodfill(windowwidth div 2,m+12,ClGreen);
end.
program graf_1;
uses graphABC;
begin
setwindowsize(300,300);
setpencolor(clgreen);
setpenstyle(psdash);
setpenwidth(10);
rectangle(50,50,250,250);
circle(110,120,20);
circle(200,120,20);
rectangle(165,190,150,150);
end.
«Кім жылдам»
С?ра?тар 1
Графикалы? режимге ауысу ?рекеті:
А) DRIVERS
?) INIT GRAPH
Б) USES GRAPH
В) PROGRAM
C?ра?тар 2
Х,? н?ктелеріні? жа?а кщщрдинаталы? м?тіндерін та?айындайтын функция.
А) MOVETO (x,y: integer)
?) USES (x,y: integer)
Б) INIT (x,y: integer)
В) DETECT (x,y: integer)
?І. Саба?ты ?орытындылау Венн диограммасы
Не білемін
Білгім келеді
Мен ?шін жа?а а?парат
Не білдім
?йге тапсырма: Программа ??рып келу.