
- •Тема: Алгоритм. Понятие алгоритма, свойства алгоритмов. Исполнители алгоритмов. Исполнитель – черепашка. Система команд. Алгоритмическая структура следование.
- •Свойства алгоритма
- •Система команд черепашки в среде л-Граф:
- •Задание
- •Тема: Алгоритмическая структура повторение. Оператор цикла.
- •Задания
- •Тема: Понятие процедуры. Процедуры без параметров.
- •Задания
- •Тема: Использование переменных и арифметических выражений в среде «л-граф», процедуры с параметрами.
- •Задания
- •Тема: Практика решения задач на процедуры с параметрами
- •Задания
- •Тема: Структура ветвления «Если-То-Иначе»
- •Задания
- •Алфавит и синтаксис языка
- •Структура программы на языке Паскаль
- •Стандартные типы данных
- •Инструкция присваивания
- •Задания
- •Тема: Логические выражения. Переменные булевского типа. Логические операции.
- •Задания
- •Тема: Инструкции ввода-вывода.
- •Задания
- •Тема: Организация ветвлений в программе. Инструкция if...Then...Else.
- •Задания
- •Тема: Усечённая инструкция if...Then. Вложенные инструкции if...Then...Else.
- •Задания
- •Тема: Компьютерная графика. Стандартные графические процедуры.
- •Задания
- •Тема: Организация циклов в программах
- •Задания
- •Тема: Процедуры. Параметры процедур.
- •Задания
- •Тема: Практика решения задач. Нахождение суммы, произведения, количества чисел в последовательности, введенной с клавиатуры. Цикл-счетчик.
- •Задания
- •Список литературы
Тема: Компьютерная графика. Стандартные графические процедуры.
Пример 1. Программа ставит на экране точку с координатами (X,Y) цвета С. Значения координат и цвета вводятся с клавиатуры.
PROGRAM z1 ;
VAR x,y,c : INTEGER ;
BEGIN { ******* MAIN PROGRAM ******* }
WRITELN('Введите координаты и цвет точки') ;
READLN( x,y,c ) ;
InitGraph ;
PutPixel(X,Y,C) ;
ReadKey ;
CloseGraph ;
END.
Вызов процедуры |
Параметры |
Назначение процедуры |
|||
Процедуры управления графическим режимом |
|
|
|
||
INITGRAPH |
НЕТ |
Устанавливает графический режим: 640x350 точек, 16 цветов |
|||
CLOSEGRAPH |
НЕТ |
Закрывает графический режим |
|||
Процедура работы с точками |
|
|
|
||
PUTPIXEL(X1,Y1,C) |
X,Y,C - значения типа INTEGER |
Ставит точку с координатами (X,Y) цветом C |
|||
Процедуры работы с линиями |
|
|
|
||
LINE(X1,Y1,X2,Y2,C) |
X1,Y1, X2,Y2,С - INTEGER |
Проводит линию цвета C из точки с координатами (X1,Y1) в точку с координатами (X2,Y2) |
|||
LINETO(X,Y,C) |
X,Y,С - INTEGER |
Проводит линию цвета C из текущей позиции графического курсора в точку с координатами (X,Y) |
|||
MOVETO(X,Y) |
X,Y - INTEGER |
Перемещает графический курсор из текущей позиции в точку с координатами (X,Y) |
|||
SETLINESTYLE(N,Р) |
N,Р - INTEGER N - [0:3] Р - [0:1] |
Устанавливает тип линии N и толщину линии Р. Типы линии: 0 - сплошная; 1 - пунктирная; 2 - штрихпунктирная; 3 - штриховая. Толщина линии: 0 - обычная; 1 - жирная. |
|||
Процедуры построения фигур из линий |
|
|
|
||
RECTANGLE (X1, Y1, X2, Y2, C) |
X1,Y1, X2,Y2,С - INTEGER |
Строит контур прямоугольника цветом С; X1, Y1, X2, Y2 - координаты любой диагонали прямоугольника; |
|||
BAR(X1,Y1,X2,Y2) |
X1,Y1, X2,Y2 - INTEGER |
Строит закрашенный прямоугольник; X1, Y1, X2, Y2 - координаты любой диагонали прямоугольника; |
|||
SETFILLSTYLE(N,C) |
N,C - INTEGER N - [0:9] C - [0:15] |
Устанавливает шаблон N и цвет закраски прямоугольника C (см. таблицу шаблонов закраски) |
|||
Процедуры построения криволинейных фигур |
|
|
|
||
CIRCLE (X, Y, R, C) |
X,Y,R,C - INTEGER |
Строит окружность цветом C; X,Y - координаты центра окружности; R - радиус окружности |
|||
ARC (X, Y, StAngle, EndAngle, R, C) |
X,Y,StAngle, EndAngle,R,C - INTEGER |
Строит дугу окружности цветом C; X,Y - координаты центра окружности; R - радиус дуги; StAngle - угол до начальной точки дуги в градусах (отсчитывается против часовой стрелки от горизонтальной оси, направленной слева направо); EndAngle - угол до конечной точки дуги в градусах |
|||
ELLIPSE (X, Y, StAngle, EndAngle, RX, RY, C) |
X,Y, StAngle, EndAngle,RX,RY,C - INTEGER |
Строит эллипс или дугу эллипса цветом C; X,Y - координаты центра эллипса; StAngle - угол до начальной точки эллипса в градусах (отсчитывается против часовой стрелки от горизонтальной оси, направленной слева направо); EndAngle - угол до конечной точки эллипса в градусах; RX , RY - горизонтальная и вертикальная полуоси эллипса. |
|||
Процедура ожидания нажатия клавиши |
|
|
|
||
READKEY |
НЕТ |
Задерживает графическое изображение на экране |
Таблица кодов цветов
Black |
=0 ( черный ) |
Blue |
=1 ( синий ) |
Green |
=2 ( зеленый ) |
Cyan |
=3 ( голубой ) |
Red |
=4 ( красный ) |
Magenta |
=5 ( фиолетовый ) |
Brown |
=6 ( коричневый ) |
LightGray |
=7 ( светло- серый ) |
DarkGray |
=8 ( темно- серый ) |
LightBlue |
=9 ( ярко- синий ) |
LightGreen |
=10 ( ярко- зеленый ) |
LightCyan |
=11 ( ярко- голубой ) |
LightRed |
=12 ( розовый) |
LightMagenta |
=13 ( малиновый ) |
Yellow |
=14 ( желтый ) |
White |
=15 ( белый ) |
Шаблоны закраски (для процедуры SETFILLSTYLE)
-
Код
Значение
0
1
2
3
4
5
6
7
8
9
штриховка фоном (узор отсутствует)
сплошная штриховка
штриховка линиями
штриховка /////
штриховка утолщёнными /////
штриховка \\\\\
штриховка утолщёнными \\\\\
штриховка клеткой +++++
штриховка косой клеткой ххххх
штриховка частой клеткой