955285
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

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

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


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Сабақтың тақырыбы: 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. Төмендегі суретті салу программасын құрыңыз.



Общая информация

Номер материала: ДБ-296775



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

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

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «Оператор персонального компьютера»
Курс «3D Studio MAX»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

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

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

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

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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