Поурочный конспект по Паскаль

Дата:

Урок №

Рисование объемных фигур и дуг
в языке Паскаль.

Цель: научиться рисовать дугу и объемный прямоугольник в программах на языке Паскаль.

1. Изучение нового материала.

1. Рисование дуги.

Для рисования дуги используется процедура:

аrc (X,Y,,,);

X,Y – координаты центра дуги;

Нач. угол – начальный и конечный угол дуги (в градусах);

Кон угол

Радиус – радиус окр-ти, частью которой является дуга.

Пример:

arc (100,100,0,180,100);

Рисуем дугу с центром в точке 100,100, начальный угол 0 градусов, конечный 180 градусов, радиус 100.

2. Рисование объемного прямоугольника.

bar3d (X,Y,X1,Y1,,true);

X,Y,X1,Y1 – координаты;

- третье измерение (в точках);

Пример:

bar3d (300,300,400,400,90,true);

Рисуем объемный прямоугольник, диагональные точки которого (300,300) и (400,400), глубина 90.

1. Составить программу, рисующую дугу м объемный прямоугольник.

program ttt;

uses crt,graph;

begin

d:=detect;

initgraph (d,r,'');

setcolor (5);

rectangle (0,100,200,200);

arc (100,100,0,180,100);

setfillstyle (1,9);

floodfill (99,99,5);

setfillstyle (2,13);

floodfill (101,101,5);

bar3d (300,300,400,400,90,true);

closegraph;

end.

1. Работа с программой на компьютере.

   1. Набрать программу.

   2. Убедиться, что она рисует заданные фигуры.

На дом. Записи в тетради.

2