Презентация - "PascalABC.net Тема урока: «Составление алгоритмов для работы с графикой»"

графика
пиксель

Графические возможности
языка программирования
Составление алгоритмов для работы с графикой

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

www.themegallery.com

ТЕСТ

Программа на языке Pascal ABC имеет вид
www.themegallery.com

www.themegallery.com
Х
Y
0
640
480
Графический экран:

www.themegallery.com
Х
Y
SetPixel (x,y, clColor) – закрашивает один
пиксель с координатами (х,у) цветом
color .
0
Точка

www.themegallery.com
Х
Y
Line (x1,y1, x2,y2) – рисует
отрезок с началом в точке (х1, у1) и концом
в точке (х2, у2).
(x1, y1)
(x2, y2)
Линия (отрезок)

www.themegallery.com
Х
Y
Circle (x, y, radius) – рисует окружность с
центром в точке с координатой (x, y) и
радиусом r.
(x,y)
R
Окружность

Х
Y
Rectangle (x1,y1, x2,y2) – рисует
прямоугольник, заданный координатами
противоположных вершин (х1,у1) и (х2,у2).
(x1, y1)
(x2, y2)
Прямоугольник

setWindowSize(х,у); - задаёт размеры графического окна, где
ширина 600, а высота 240 пикселей.
setPenWidth(5); - задаёт толщину пера 5 пикселей. Это
значение не изменится до тех пор, пока не будет задано новое.
Таким образом, дальше все примитивы рисуются пером такой
толщины. 
setPenColor(clcolor); - задаёт цвет пера для графического
объекта.
setBrushColor(clcolor); - заливает непрерывный объект
заданным цветом , (например окружность, прямоугольник).

Рассмотрим пример 18.1 (с. 89, учебное пособие)
Этапы выполнения задания:
I. Исходные данные: a и b (длины катетов), x и y (координаты вершины прямого угла).
II. Результат: изображение прямоугольного треугольника.
III. Алгоритм решения задачи.
1. Ввод исходных данных.
2. Чтобы изобразить треугольник, нужно выполнить следующие действия:
1) построить линии из точки с координатой (x; y) в точки с координатами
(x + a; y) и (x; y + b);
2) соединить линией точки (x + a; y) и (x; y + b);
3) закрасить треугольник. Для закрашивания треугольника нужно знать координаты какой-либо точки внутри треугольника. Такой точкой в данном случае может быть точка с координатами (x + 2; y + 2).


www.themegallery.com

Рассмотрим пример 18.1 (с. 89, учебное пособие)
uses GraphABC;
var a,b,x,y,x_c, y_c:integer;
begin
writeln('Введите координаты');
read(x,y); writeln (x,' ',y);
writeln('Введите длины катетов');
read(a,b); writeln (a,' ',b);
Line(x,y,x+a,y); Line(x,y,x,y+b);
Line(x+a,y,x,y+b);
//Координаты точки
//Внутри треугольника
x_c := x + 2; y_c := y + 2;
FloodFill(x_c,y_c,clRandom); end.
www.themegallery.com

Рассмотрим пример 18.1 (с. 89, учебное пособие)
www.themegallery.com
 
 
 

Физкультминутка
https://yandex.by/video/preview/?filmId=3798229099284213144&text=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C%20%D1%84%D0%B8%D0%B7%D0%BA%D1%83%D0%BB%D1%8C%D1%82%D0%BC%D0%B8%D0%BD%D1%83%D1%82%D0%BA%D0%B0%20%D0%B4%D0%BB%D1%8F%208%20%D0%BA%D0%BB%D0%B0%D1%81%D1%81%D0%B0%20%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82%D0%B8%D0%BA%D0%B0&noreask=1&path=wizard&parent-reqid=1582685890995300-1734121708002165822400068-sas3-5929&redircnt=1582685911.1
https://yandex.by/video/preview/?filmId=3798229099284213144&text=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+%D1%84%D0%B8%D0%B7%D0%BA%D1%83%D0%BB%D1%8C%D1%82%D0%BC%D0%B8%D0%BD%D1%83%D1%82%D0%BA%D0%B0+%D0%B4%D0%BB%D1%8F+8+%D0%BA%D0%BB%D0%B0%D1%81%D1%81%D0%B0+%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82%D0%B8%D0%BA%D0%B0&noreask=1&path=wizard&parent-reqid=1582685890995300-1734121708002165822400068-sas3-5929&redircnt=1582685911.1

Графические возможности
языка программирования
Составление алгоритмов для работы с графикой

Спасибо за урок!