Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Информатика пәнінен сабақ жоспары. тақырыбы:"АВСПаскальдағы графикалық мүмкіндіктер"

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

Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

К ОПЛАТЕ ЗА ОДНОГО УЧЕНИКА: ВСЕГО 28 РУБ.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/


Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

Сабақтың тақырыбы: 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% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy



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

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests


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