Создание программ, использующих не менее трех процедур рисования, которые рисовали бы несложный рисунок (весёлый почтовый конверт, лягушку, клоуна) в среде Turbo Pascal.

17

МУНИЦИПАЛЬНОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ДОПОЛНИТЕЛЬНОГО ОБРАЗОВАНИЯ ДЕТЕЙ

«СТАНЦИЯ ЮНЫХ ТЕХНИКОВ ГОРОДА ЕВПАТОРИИ РЕСПУБЛИКИ КРЫМ»

(МБОУДОД "СЮТ")

297408, Российская Федерация, Республика Крым, город Евпатория, ул. Революции, д. 75, тел. (06569) 3-03-30,

е-mail: [email protected]

План-конспект учебного занятия

кружок «Компьютер и информационные технологии», группа 2 – А

Тема учебного занятия: «Создание программ, использующих не менее трех процедур рисования, которые рисовали бы несложный рисунок (весёлый почтовый конверт, лягушку, клоуна) в среде Turbo Pascal».

Цель учебного занятия: формирование у детей знаний и умений работы с языком программирования Pascal, организация работы по усвоению детьми основных понятий, принципов работы с данным языком.

Задачи учебного занятия:

Образовательная:

• проконтролировать степень усвоения основных понятий, принципов работы с языком программирования Pascal, изученных и сформированных на предыдущих занятиях;

• обеспечить усвоение основных задач, входящих в содержание темы учебного занятия;

• научить создавать программы, использующие не менее трех процедур рисования, которые рисовали бы несложный рисунок (весёлый почтовый конверт, лягушку, клоуна) в среде Turbo Pascal;

• формировать умение правильно и грамотно выражать свои мысли.

Развивающая:

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

Воспитательная:

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

Тип учебного занятия: формирование новых знаний, навыков и умений.

Методы работы: объяснительно-иллюстративный, практическая работа.

Формы работы: индивидуальная, групповая.

Оборудование: персональные компьютеры, доска, мел.

Дидактические материалы: карточки с заданиями.

Ход учебного занятия.

• Организационный момент;

• ТБ при работе за компьютером;

• Актуализация опорных знаний:

• Мотивация учебной деятельности обучающихся:

• Выполнение практической работы;

• Физкультминутка;

• Итоги учебного занятия:

• Вы научились создавать программы, использующие не менее трех процедур рисования, которые рисовали бы несложный рисунок (весёлый почтовый конверт, лягушку, клоуна) в среде Turbo Pascal.

1. Организационный момент.

Приветствие, проверка присутствующих. Объяснение хода учебного занятия.

2. ТБ при работе за компьютером.

3. Актуализация опорных знаний:

Основные принципы работы с языком Pascal.

Pascal – один из самых известных языков программирования. Создан в 1968 – 1969 годах швейцарским ученым Никлаусом Виртом, был назван в честь французского математика и физика Блеза Паскаля, и используется для обучения программированию по сей день.

Перед началом работы следует напомнить, что язык Pascal – это совокупность трёх составляющих: алфавита, синтаксиса (правил написания объектов языка) и семантики (правил использования этих объектов).
Алфавит Pascal состоит из:

1. Прописных и строчных букв латиницы: A...Z, a…z;

2. Цифр: 0...9;

3. Специальных символов: + — * / = .,:; ‘ # ( ) { } [ ] и их комбинаций: «=» «

Задача же синтаксиса и семантики состоит в том чтобы, правильно написать раздел программы и правильно составить ее структуру, в противном же случае ваша программа будет работать неправильно (или же не работать вовсе!).

Структура программы выглядит так:

Program «имя программы»; — заголовок программы;
(Примечание: в конце строки ставится точка с запятой, не во всех, но в большинстве) 
Uses (название библиотеки); здесь подключаются библиотеки, которые дают дополнительные возможности при создании программ;
Label (имя метки); здесь, если необходимо, прописываются метки, позволяющие переходить в разные места программы (о них позже);
Const тут указываем переменные с постоянной величиной, например, p=3.14;
Var тут через запятую перечисляем все переменные, а затем, указываем тип данных (Пример: Var: K, L, M: integer; N, O: real; (если несколько типов));
Begin (здесь без точки с запятой)
Дальше следует основной блок программы;
end. – конец программы (обязательно после “end” точка, если только это конец программы, а не операторные скобки).

Следует заметить, что из вышеперечисленных разделов обязательными есть только «Var», «Begin» и «end», остальные же могут применяться, если это требуется в ходе выполнения поставленной задачи. 

Для использования графических возможностей Турбо Паскаля необходимо в блоке описания uses подключить графический модуль Graph. Перечислим набор графических функций и процедур, основные из которых рассмотрены ниже.

Функция Round: округляет значение вещественного типа до значения целочисленного типа.

Модуль Graph

ТР обладает достаточно разнообразными средствами для работы со стандартным VGA экраном (возможно также использование и и других типов видеоадаптеров).

VGA адаптер имеет разрешение 640х480 пиксель (точка (0,0) в левом верхнем углу экрана), 16 цветов.

Перед началом работы с графикой необходимо ее инициализировать, а по окончании - "закрыть". Все графические процедуры и функции находятся в модуле Graph, поэтому также необходимо его подключение.

Общая структура графической программы:

Uses crt, graph;

var Gd, Gm: Integer;

begin

Gd: = Detect;

InitGraph (Gd, Gm, 'd: \bp\bgi');

...

{Здесь построение изображения}

...

ReadKey;

CloseGraph;

end.

Путь d: \bp\bgi указывает расположение файла egavga. bgi (драйвер графического адаптера). На разный компьютерах этот путь может быть разным. Если файл egavga. bgi поместить в каталог с программой, то путь можно не указывать.

Основные графические процедуры и функции:

Построение фигур

PutPixel (x,y,c) - отображает на экране точку с координатами (x,y) и цветом c

Line (x1,y1,x2,y2) - рисует линию с началом в точке (x1,y1) и концом - (x2,y2)

Rectangle (x1,y1,x2,y2) - рисует контур прямоугольника с диагональю (x1,y1) - (x2,y2)

Bar (x1,y1,x2,y2) - рисует закрашенный прямоугольник с диагональю (x1,y1) - (x2,y2)

Circle (x,y,r) - рисует окружность с центром (x,y) и радиусом r

Ellipse (x,y,ba,ea,xr,yr) - рисует дугу эллипса с центром в (x,y), горизонтальным и вертикальным радиусом xr и yr, и начальным и конечным углом ba и ea

FillEllipse (x,y,xr,yr) - рисует закрашенный эллипс с центром в (x,y), горизонтальным и вертикальным радиусом xr и yr

Определение цветов и стилей

GetPixel (x,y) - возвращает цвет пиксела с координатами (x,y)

SetColor (c) - устанавливает цвет изображения (для линий) (смотри таблицу1)

SetFillStyle (p,c) - устанавливает текущий стиль и цвет c (для "закрашенных" фигур)

FloodFill (x,y,b) - закрашивает замкнутую область с внутренней точкой (x,y) и цветом контура b

Работа с текстом

OutTextXY (x,y,st) - выводит на экран строку st с позиции (x,y)

SetTextStyle (f,d,s) - устанавливает шрифт f, его направление d и размер

Таблица1

Графические процедуры

Arc (x,y: integer; St,En,R: word);{рисование дуги, где x,y - коорд. центра дуги, R - радиус, St, En - нач. и конечный углы. }

ClearDevice; {очистка экрана}

Circle (x,y: integer; R: word);{окружность радиуса R

cцентром в точке (x,y) }

CloseGraph; {закрытие графики}

InitGraph (gd,gm: integer; Path: string);{инициализация графики, где

gd - графический драйвер,

gm - графический режим,

Path - путь размещения файла

с расширением. bgi. }

Line (x1,y1,x2,y2: integer); {рисование линии, проходящей через две точки:

с координатами (x1,y1) и (x2,y2) }

LineRel (dx,dy: integer);{рисование линии: dx, dy- приращения

координат к координатам текущей позиции курсора}

LineTo (x,y: integer);{рисование линии, проходящую через текущую позицию курсора и точку с координатами (x,y) }

Moveto (x,y: integer);{задание координат текущей точки}

OutText (T: string);{вывод текста в текущую точку}

OutTextXY (x,y: integer; T: string);{вывод текста в точку с координатами х, у}

Rectangle (x1,y1,x2,y2: integer);{рисование прямоугольника: (x1,y1) и (x2,y2) - координаты противоположных вершин}

PutPixel (x,y: integer; c: word);{выводит точку с координатами (х, у) цветом с}

4. Мотивация учебной деятельности обучающихся:

Создавая Паскаль, Вирт преследовал 2 цели:

• во-первых, разработать язык, пригодный для обучения программированию как систематической дисциплине;

• во-вторых, реализация языка должна быть эффективной и надежной на существующих вычислительных машинах.

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

Это был самый первый простой язык (ord pascal) для программирования, помогающий решить множество практических задач прошлого столетия (1970 год). Он был разработан группой ученых. С расширением платформ были созданы новые версии этой программы, а Pascal стал классическим языком программирования.

5. Выполнение практической работы.

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

Решение.

uses graph,crt;

procedure init;

var

a,b:integer;

begin

a:=detect;

Initgraph (a,b,'D:\bp\bgi');

if b0 then writeln ('oshibka');

end;

procedure main;

begin

line(240,100,240,200);

line(360,100,360,200);

line(240,100,360,100);

line(240,200,360,200);

ellipse(280,130,0,360,8,15);

ellipse(280,139,360,180,6,10);

ellipse(320,130,0,360,8,15);

ellipse(320,139,360,180,6,10);

ellipse(300,167,210,330,23,15);

ellipse(300,157,320,220,10,10);

line(240,150,180,150);

line(180,160,190,150);

line(180,140,190,150);

line(360,150,420,150);

line(420,160,410,150);

line(420,140,410,150);

line(270,200,260,250);

ellipse(250,250,0,360,10,5);

ellipse(265,250,0,360,5,5);

line(330,200,340,250);

ellipse(350,250,0,360,10,5);

ellipse(335,250,0,360,5,5);

setfillstyle(1,8);

floodfill(241,101,15);

setfillstyle(1,1);

floodfill(280,120,15);

floodfill(320,120,15);

setfillstyle(1,7);

floodfill(280,130,15);

floodfill(320,130,15);

end;

begin

init;

main;

readkey;

end.

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

Решение.

Program frog;

uses graph,crt;

procedure init;

var

a,b:integer;

begin

a:=detect;

Initgraph (a,b,'D:\bp\bgi');

if b0 then writeln ('oshibka');

end;

procedure main;

begin

setfillstyle(1,2);

fillellipse(300,200,100,30);

setcolor(4);

setlinestyle(1,2.6);

ellipse(300,195,190,350,70,20);

setcolor(2);

circle(260,143,30);

circle(340,143,30);

circle(260,140,15);

circle(340,140,15);

floodfill(342,160,2);

floodfill(263,160,2);

setfillstyle(1,2);

line(240,116,225,103);

line(255,113,255,93);

line(275,115,285,93);

line(318,120,305,93);

line(340,113,340,93);

line(362,120,372,93);

end;

begin

init;

main;

readkey;

end.

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

Решение.

Program kloun;

uses graph,crt;

procedure init;

var

a,b:integer;

begin

a:=detect;

Initgraph (a,b,'D:\bp\bgi');

if b0 then writeln ('oshibka');

end;

procedure main;

begin

bar(200,20,400,30);

setfillstyle(1,black);

bar(200,30,400,40);

setfillstyle(1,white);

bar(150,40,450,60);

setcolor(white);

circle(310,270,50);

putpixel(315,275,red);

floodfill(315,275,white);

circle(250,150,30);

arc(255,115,225,300,50);

putpixel(258,168,red);

floodfill(258,168,white);

circle(370,150,30);

arc(375,115,225,300,50);

floodfill(378,168,white);

ellipse(240,120,48,160,40,20);

ellipse(380,90,200,300,40,20);

setlinestyle(6,1,5);

line(216,355,205,365);

ellipse(315,342,198,338,110,60);

line(408,359,420,370);

ellipse(315,330,210,325,120,60);

putpixel(350,390,red);

floodfill(350,390,white);

end;

begin

init;

main;

readkey;

end.

Сохраните Вашу работу и покажите её педагогу.

6. Физкультминутка.

7. Итоги учебного занятия

Ответьте на следующие вопросы:

1. Что нового Вы узнали, решив задания на учебном занятии?

2. Задания были сложными? Задания были интересными?

3. Над изучением каких тем в разделе «Изучение языка программирования Pascal» Вы хотели бы ещё поработать?

17