Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / Информатика пәнінен сабақ жоспары. тақырыбы:"АВСПаскальдағы графикалық мүмкіндіктер"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Информатика пәнінен сабақ жоспары. тақырыбы:"АВСПаскальдағы графикалық мүмкіндіктер"

библиотека
материалов

Сабақтың тақырыбы: PascalABC программалау тілінің графикалық мүмкіндіктері.

Сабақтың мақсаты:

Білімділік: Оқушыларға программалау тілі ABC PASCAL –да графикалық режимде жұмыс істеу үшін графикалық режимді қосуды үйрету. Экранды тазалау операторларымен таныстыру. Графикалық операторларының қызметімен, мәтін жазу және шрифт тағайындау, нысандарға түс беру, түстер палитрасын пайдалану операторларымен тұйық аймақты бояу опеаторларымен таныстыру және суреттер салу дағдыларын қалыптастыру. Координата жазықтығы ұғымдарын пайдаланып әртүрлі геометриялық фигуралар арқылы сызбалар сыза білуге дағдыландыру.

Тәрбиелік: Оқушылардың шығармашылық, эстетикалық қабілеттерін дамыту.

Дамытушылық: Ұйымшылдыққа, ізденуге, мақсатқа жете білуге тәрбиелеу.

Сабақта қолданылатын көрнекі құралдар: Компьютер, оқулық, электронды оқулық, бейне материалдар.

Сабақтың түрі: Түсіндірмелі -практикалық

Сабақтың типі: Жаңа сабақты бекіту.

Сабақтың барысы:

  1. Ұйымдастыру. Оқушыларды түгендеу.

Топқа бөлу: Үшбұрыш, Шеңбер, Төртбұрыш суреттерін таңдау: Ой - шексіз, қимыл - белсенді, нәтиже - кемел (ұйымдастыру топқа бөлу үшін фигулалар таңдауы қажет, нәтижелерін экранда кейбір мінездемелерін айта кету)

Үшбұрыш тобы:

Үшбұрыш таңдаушылар көшбасшылық қабілеті бар, алдына қойған мақсатына жететін жандар. Болашақта ел басқаратын адамдар.

Төртбұрыш тобы:

Төртбұрыш таңдағандар өте еңбекқор, төзімді, өз жұмысының шебері, бастаған істі аяғына дейін жеткізетін жандар.

Шеңбер тобы:

Шеңбер таңдағандар қарым-қатынасты жоғары бағалайтын, өзгелерді қадағалайтын, кең пейілді, түйсігі жақсы дамыған, әңгіме айтқанды ұнатады, тез шешім қабылдай алмайды, достары мен таныстары көп жандар

  1. Үй тапсырмасын тексеру.

Электронды оқулықтағы графика тарауындағы материалдарды оқу. Тест жұмысын орындау.

  1. Негізгі бөлім:

Арнайы әзірленген презентациядан сабақ түсіндіру.

Графикалық режимге көшу операторы: uses GraphABC;

а) Графикалық режимде координата жазықтығы Х координатасы көлденеңнен солдан оңға,У координатасы тігінен жоғарыдан төмен қарай өзгеріп отырады. Кооордината басы экранның жоғарығы сол жақ бұрышының координатасы (0,0) болып табылады. Х пен У координаталары компьютердің экраннының қабілеттігіне байланысты болады. Операторлар қызметімен (интерактивті тақтада жұмыс- сәйкестендіру)

ә) Есепті тақтаға программасын құра отырып түсіндіру.

б) Әр түрлі суреттерді моделін жасау. (жеке карточкадағы сызба бойынша программасын құру компьютерде жазу).

Экранның координаталық жазықтығының бейнесі:




Графиктік режимдегі операторлар:


қаламның қалыңдығын тағайындайды.

n – пиксельдер саны 

Rectangle(x1,y1,x2,y2); 

диогнальдарының екі шеткі нүктесінің координаталары (x1,y1) және (x2,y2) болатын тіктөртбұрыш сызады.

FloodFill(x,y,түс); 

(x,y) нүктесінен бастап берілген түспен бояйды. 

SetBrushColor(түс); 

қылқаламның түсін тағайындайды.

Circle(x,y,r); 

центрінің координатасы (x,y) және радиусы r болатын шеңбер сызады. 

Ellipse(x1,y1,x2,y2); 

диагональдарының шеткі нүктелерінің координаталары (x1,y1) және (x2,y2) болатын тіктөртбұрыштың ішіне эллипс сызады.

TextOut(х,у,'мәтін')

(x,y) нүктесінен бастап мәтін жазу

SetFontName(‘name’);

шрифт атын тағайындайды.

SetFontColor(color); 

шрифт түсін тағайындайды.

SetFontSize(sz);

шрифттің өлшемін пунктпен көрсетеді.

SetFontStyle(fs); 

шрифт стилі.


Кейбір түстер тізімі:


Түстерді RGB палитрасымен беруге болады: cол үшін түс орнына  rgb(r,g,b) жазылады: мұндағы r,b,g - 0 ден 255 –ге дейінгі сандар.
Шрифт стильдері:

Мысалдар арқылы еске түсірейік: Графикалық экранда пайда болады:

uses GraphABC;

begin

SetWindowSize(700,500);

FloodFill(10,10,clblue);

SetPenWidth(5);

setpencolor(clgreen);

setpixel(200,30,clred);

SetBrushColor(clSkyBlue);

circle(180,100,50);

SetFontName('kz poster');

SetFontColor(clred);

SetFontSize(20);

SetFontStyle(fsBoldItalicUnderline);

SetBrushColor(clblue );

TextOut(300,100,'шеңбер');

TextOut(300,200,'тіктөртбұрыш');

TextOut(300,310,'эллипс');

TextOut(300,400,'кесінді салу');

SetBrushColor(clMaroon );

rectangle(100,180,280,260);

SetBrushColor(clFuchsia );

ellipse(100,290,280,370);

Line(100,400,250,430);

MoveTo(100,400);

LineTo(300,480);

LineTo(250,430);

FloodFill(250,450,clyellow);

end.

Тапсырма: Графикалық экранда пайда болады:

Суреттегі сызбаны салу керек.

Программа төмендегідей:

Program Shar;
uses GraphABC;

Begin
Line (200,200,400,200); 

LineTO (300,140);

lineTO (200,200);
FloodFill (300,170,clblue);
Line (200,200,400,200); 

LineTo (300,260); 

LineTo (200,200);
FloodFill (300,230,cllime);
circle (160,200,40);
FloodFill (160,200,clred);
circle (440,200,40);
FloodFill (440,200,clyellow);
End.

 Тапсырма1. Төмендегі суретті салу программасын құрыңыз.





program Grafica;

//графикалыќ режимге кґшу

uses GraphABC;

begin

//терезенің биіктігі

SetWindowHeight(500);

{терезенің ені}

SetWindowWidth(1000);

шрифт аты}

SetFontName('kz poster');

{шрифт түсі}

SetFontColor(clred);

шрифттің өлшемі}

SetFontSize(20); {

{шрифт стилі}

SetFontStyle(fsBoldUnderline);

{мјтін жазу}

TextOut(20,30,'камаз');

тўйыќ аймаќты бояу}

SetBrushColor(clgreen); {

ќаламныѕ тїсі}

SetPenColor(clblue) ;

SetBrushColor(clgreen);

SetPenColor(clblack);

SetBrushColor(clred);

{тіктґрбўрыш}

rectangle(100,200,250,350) ;

rectangle(250,80,340,350) ;

ќаламыныѕ ќалыѕдыєы

SetPenWidth(3);

Line(180,80,340,80);

Line(180,80,100,200);

Line(130,200,160,180);

Line(150,170,170,190);

SetBrushColor(clyellow);

rectangle(100,250,120,270) ;

rectangle(100,300,120,320) ;

SetBrushColor(clblack);

rectangle(90,350,300,380) ;

rectangle(300,330,850,370) ;

SetPenWidth(15);

line(750,300,750,330) ;

line(380,360,430,300) ;

line(470,300,420,360) ;

SetPenWidth(2);

SetBrushColor(clgreen);

SetPenColor(clblack);

{кузов}

rectangle(380,300,900,160) ;

rectangle(400,280,880,180);

SetPenWidth(2);

SetPenColor(clblack);

line(380,50,900,160) ;

line(380,70,380,200) ;

line(380,70,330,70) ;

line(330,50,330,70) ;

line(330,50,380,50) ;

FloodFill(600,150,clgreen);

SetPenWidth(2);

SetPenColor(clblack);

arc(600,180,180,15,142);

FloodFill(600,20,clMaroon);

SetPenColor(clblack);

SetBrushColor(clgray);

SetPenWidth(35);

{дөңгелегі шеѕбер салу}

circle(300,380,55);

circle(700,380,55);

end.

Pascal ABC –дағы анимация

Шардың суретін салу.

uses GraphABC;

var I,X,Y,D: integer;

begin

X:=20; Y:=30;

D:=100;

ClearWindow;

SetBrushColor(clGreen);

Ellipse(X+I,Y,X+I+D,Y+D);

end.

Жыпылықтағын шардың қозғалысы

uses GraphABC;

var I,X,Y,D: integer;

begin

X:=20; Y:=30; D:=100;

for i:=1 to 500 do

begin

ClearWindow;

SetBrushColor(clGreen);

Ellipse(X+I,Y,X+I+D,Y+D);

Sleep(1);

end;

end.

 LockDrawing – графикалық экранға шығаруды бұғаулайды да тек қана экраннан тыс жерге суретті салуды іске асырады.

Redraw –графикалық режимнің терезесі бұғауланған кезде Шығару терезесін қайталап суреттерін салады.


Смайликтердің суретін салу.

Әр қайсысын әр түрлі оқушылар салады: Сонда 6 түрлі смайликтер салынады.

Program smailikter; 
uses GraphABC; 
var 
x,y: 
integer// координаталар 
begin 
SetWindowSize(300,200); 

// терезе өлшемі 
// 1 смайлик 
x:=50;y:=50; 
TextOut(x-30,y-50,'жымыңдайды'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Circle(x+10,y-10,7); 


Circle(x-10,y-10,7); 
Arc(x,y,20,180,360); 
x:=150;y:=50; 
TextOut(x-30,y-50,'көңілсіз'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Circle(x+10,y-10,7); 
Circle(x-10,y-10,7); 
Arc(x,y+20,20,0,180); 
x:=250;y:=50; 
TextOut(x-30,y-50,'бейтарап'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Circle(x+10,y-10,7); 
Circle(x-10,y-10,7); 
Line(x-15,y+10,x+15,y+10); 
x:=50;y:=150; 
TextOut(x-30,y-50,'күледі'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Circle(x+10,y-10,7); 
Circle(x-10,y-10,7); 
Arc(x,y,20,180,360); 
Line(x-20,y,x+20,y); 
FloodFill(x+1,y+1,clWhite); 
Line(x-10,y,x-10,y+17); 
Line(x,y,x,y+20); 
Line(x+10,y,x+10,y+17); 
x:=150;y:=150; 
TextOut(x-30,y-50,'ашулы'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Circle(x+10,y-10,7); 
Circle(x-10,y-10,7); 
Arc(x,y+20,20,0,180); 
Line(x-20,y+19,x+20,y+19); 
FloodFill(x+1,y+1,clWhite); 
Line(x-10,y+3,x-10,y+20); 
Line(x,y,x,y+20); 
Line(x+10,y+3,x+10,y+20); 
Line(x+10,y+10,x-10,y+10); 
FloodFill(x+2,y+8,clBlack); 
FloodFill(x-2,y+11,clBlack); 
x:=250;y:=150; 
TextOut(x-30,y-50,'ұйқыда'); 
Circle(x,y,30); 
FloodFill(x,y,clYellow); 
Line(x+20,y-10,x+5,y-10); 
Line(x-20,y-10,x-5,y-10); 
Line(x-15,y+10,x+15,y+10); 
end.

Бағалау: Компьютердегі жұмыстарын тексеру. Барлық компьютерді көру. Тексеру. Нәтижені талдау.

Сергіту сәті: Орындарынан тұрып шеңбер бойынша орналасу, сұрақтарға сай топ болып сұрақтарға жауап:

Дұрыс болса: Қол шапалақтау

Қате болса: Аяқтарын қозғау

Ереже:

  • SetWindowSize - терезенің өлшемін тағайындайтын оператор. (Дұрыс)

  • ClearWindow(түс) экранға координаларына сәйкес нүктенің суретін салады. (Қате)

  • LineTo(x,y) мен Line(x1,y1,x2,y2) кесінді салу опреаторы (Дұрыс)

  • SetPixel(x,y,c) –экранда нүктені белгілеу. (Қате)

  • SetPenColor(түс) SetPenWidth(n) қаламның түсін береді. (Қате)

  • MoveTo(x,y) нүкте салу (Қате)

  • Эллипс немесе тіктөртбұрыш салу үшін x1,y1,x2,y2 тіктөртбұрыштың диагналдарының шеткі нүктелерінің координаталары білу керек. (Дұрыс)

  • FloodFill(x,y,түс) мен SetBrushColor(түс) тұйық ауданның ішін бояу (Дұрыс)

  • SetFontName(‘name’) мен (Дұрыс)

  • SetFontColor(color), SetFontSize(sz), SetFontStyle(fs) мәтінді жазып шығаратын операторлар (Қате)

  • Circle(x,y,r) мен Ellipse(x1,y1,x2,y2)-тіктөртбұрыш пен эллипстің суретін салады. (Қате)

  • Ellipse(x1,y1,x2,y2)-графикалық экранға эллипс суретін салады (Дұрыс)

Кері байланыс:

  1. Сұрақ

  2. Бұрыннан білетінім

  3. Бүгінгі үйренгенім

(Сабақ басында беріп тастаймын)








Үйге тапсырма:

1. PascalABC-тағы графикалық операторлар тақырыбын оқу.

2. Есептер:

Үшбұрыш тобы:

1. Тік бағытта қозғалған шарды бейнелейтін программа құру керек.

2. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келеді де соқтығысқаннан кейін, жасыл шар тоқтайды да қызыл шар тіке төмен құлайтынын бейнелейтін программаны құру керек.

Төртбұрыш тобы:

3. Қызыл шар қозғалмай тұр, ал жасыл шар горизонталь бағытта қызыл шарға қарай қозғалып келіп, соқтығысады да жасыл шар кері бағытқа, ал қызыл шар төмен қарай қозғалатынын бейнелейтін программа құру керек.

4. Тіктөртбұрыштың периметрі бойынша қозғалатын шарды бейнелейтін программа құру керек.

Шеңбер тобы:

5. Шардың радиустары өзгеріп отыратын программаны құру керек.

6. Тік бағытта қозғалған шар, қабырғаға соқтығысып, көлденең қозғалатын шарды бейнелейтін программа құру керек.

Сабақ аяқталды сау болыңыздар. Сабаққа белсене араласқандарыңызға көп рахмет.


P.S. Мұғалімдерге көмек ретінде кейбір программаларды құрып көрсетіп отырмын.

Қосымша тапсырмаларды жеке орындап келу немесе факультатив сабақтарында шығартуға болады.

Тапсырма2. Төмендегі суретті салу программасын құрыңыз.









Тапсырма3. Төмендегі суретті салу програмаасын құрыңыз.











Тапсырма4. Төмендегі суретті салу программасын құрыңыз.




Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 28.10.2016
Раздел Информатика
Подраздел Конспекты
Просмотров99
Номер материала ДБ-296775
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх