Методическая разработка. Решение одной задачи по теме «Графика на Паскале» Информатика и ИКТ, 9-11 класс.
методическая разработка по информатике и икт (9 класс) по теме

Методическая разработка. Решение одной задачи по теме «Графика на Паскале»

Информатика и ИКТ, 9-11 класс.

Автор:  Славянская Л.В., учитель информатики и ИКТ. Волгоград. МОУ лицей № 9.

Задача решается на уроках информатике  по теме «Графика на Паскале». Учащиеся должны уметь составлять программы для рисования прямых и объемных фигур используя соответствующие команды и координаты.

Без построения различных графических фигур не обходится ни одна серьезная графическая система.  Один из способов построения многоугольников – использование процедуры Drawpoly (Num Points,var  Poly Points). Данная процедура используется для массива, где : Num Points - число точек – вершин многоугольника, var  Poly Points –описание координат или способов задания этих точек. В программе будет так: drawpoly(5,pp);  где 5 –число вершин   + 1, pp –имя массива.

Задача. Построить трапецию с координатами  вершин A(30,40) , B(50,45) ,  C(55,60) ,  D (25,50).

1. Теоретические пояснения к задаче.

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

pp:array [1..5] of  PointType;                 (описание массива точек)

x,y:integer;                                             (координаты только целые числа)

1. В программную часть добавляются координаты вершин:

pp[1]. x:=30;

pp[1]. y:=40;

…………….

 pp[4]. x:=25;

pp[4]. y:=50;

pp[5]:=pp[1];  (прибавляется еще одна вершина, чтобы замкнуть фигуру)

2.  Описание цвета.

setcolor(red);

setbkcolor(blue);

drawpoly(5,pp);

readln;

end.

D.  Построить параллелограмм и трапецию по своим координатам, фигуры располагаются в одном файле.

2. Образец готовой программы для учителя.

program qq;

uses graph;

var graphdriver, graphmode: integer;  

pp:array [1..5] of PointType;                 (описание массива точек)

x,y:integer;                                             (координаты только целые числа)

begin

initgraph(graphdriver,graphmode,'');

pp[1]. x:=30;

pp[1]. y:=40;

pp[2]. x:=40;

pp[2]. y:=45;

pp[3]. x:=55;

pp[3]. y:=60;

pp[4]. x:=25;

pp[5]. y:=50;

pp[5]:=pp[1];

setcolor(red);

setbkcolor(blue);

drawpoly(5,pp);

readln;

end.

3. Составьте программу, используя массив точек , для построения равнобедренной трапеции, параллелограмма с диагоналями.
4. Выполните эти задания в Паскале ABC или в другой версии Паскаля.