Нарисовать концентрические окружности в паскале

GraphABC ◊

Т очка, отрезок, окружность, прямоугольник Р и суем линии Рисуем окружности Подписываем рисунки Маленькие картины Составление алгоритмлв. Часть1 Часть 2 Часть 3 Часть 4 Часть 5 Более сложные программы

Пример 1. Нарисовать ряд окружностей радиуса 10 пикселей вдоль верхнего края экрана.

Этапы выполнения задания.

I. Результат работы программы не зависит от исходных данных

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

III. Алгоритм решения задачи.

1. Определение положения первой окружности. Окружность задается радиусом и координатами центра. Радиус r=10. Первую окружность расположим в верхнем левом углу. Координаты центра – x=11, y=11.

2. Положение любой другой окружности, удовлетворяющей условию задачи, будет определяться координатой x. Поэтому в цикле будем изменять значение координаты x. Каждое новое значение будет на 20 больше предыдущего.

3. Цикл должен завершиться, когда значение координаты x станет большим, чем горизонтальный размер экрана (например, 800 пикселей).

IV . Описание переменных:

Переменные x, y, r – integer.

Можешь загрузить! Пример 1_1

VI . Тестирование программы:

1 . З апустите программу, проверьте, результат должен быть следующим:

2. Окружности нарисованы не до конца, поэтому увеличьте размер окна вывода.

3. Почему все окружности рисуются черным цветом? Внесите изменения в программу так, что бы все окружности были красными.

4 . Добавьте в программу переменную c, для изменения цвета окружностей в цикле. Начальное значение переменной с=1, в теле цикла вписать команду SetPenColor(c). Для изменения цвета в теле цикла (после изменения значения координаты x) нужно добавить команду: c:=c+1;

Можешь загрузить! Пример 1_2

5. Цвет окружностей можно задавать случайным образом. Для этого значение переменной c нужно задать следующим образом:

В начале программы нужно вписать команду randomize; для настройки датчика случайных чисел.

6. Какие изменения нужно внести в программу, чтобы окружности рисовались вдоль левого края экрана?

5*. Какие изменения нужно внести в программу, что бы на экране рисовались концентрические окружности, с центром в середине экрана?

Пример 2. Нарисовать на экране k разноцветных кругов, с радиусом 5 пикселей. Расположение кругов определяется случайным образом. Те круги, для которых координата x > y , закрасить синим цветом, а остальные желтым.

Этапы выполнения задания.

I. Определение исходных данных: переменная k(количество кругов).

II. Определение результатов: рисунок, отображающий k кругов.

III. Алгоритм решения задачи.

2. Подсчет кругов будем осуществлять с помощью цикла for. Переменная цикла n будет изменяться от 1 до k.

3. В цикле выполняем следующие действия:

а) Случайным образом получаем значения x и y.

б) С помощью условного оператора if будем проверять условие x>y. В зависимости от истинности условия установим синий или желтый цвет заливки круга.

в) Нарисуем круг.

IV . Описание переменных:

Переменные x, y (координаты центра круга), с (цвет), n, k – integer.

writeln(‘kol-vo krugov’); readln(k);

if x>y then c:=clblue else c:=clred;

Можешь загрузить! Пример 2

VI . Тестирование программы:

1. Проверьте работу программы для следующих значений k: 10, 100, 1000

2. Как располагаются кружки на экране?

3. Внесите в программу изменения так, чтобы синие кружки располагались слева, а желтые справа.

4. Какие алгоритмические структуры использовались при написании данной программы?

Видео:Рисуем в среде программирования PascalСкачать

Графика Pascal

В Pascal ABC для работы с графикой отвечает модуль GraphABC. Для его подключения применяется следующий код:

Система координат в Pascal соответствует экранной системе координат. Вот как она выглядит:

Видео:Как сделать игру Теннис на ПаскалеСкачать

Как управлять цветом

Чтобы использовать цвет, нужно применять его инструменту перо:

Затем можно использовать процедуры для рисования различных геометрических фигур.

Видео:08. Pascal. Продолжаем рисовать с помощью модуля GraphABC. Новые командыСкачать

Основные процедуры (команды)

К примеру, цвет линий на экране можно задать следующим образом:

Видео:Изображение окружности в перспективе. Эллипс.Скачать

Установка цвета фона

Для того чтобы установить цвет фона всему экрану, применяется следующая процедура:

Внимание! Если она не вызвана, то экран будет черным.

Видео:Вычисление площади круга и длинны окружности по заданному радиусу в Паскаль с применением константыСкачать

Точки, отрезки и ломаные

В Pascal для отображения точки используется процедура:

SetPixel(x,y,color) — Закрашивает один пиксел с координатами (x,y) цветом color

Для рисования линии применяется:

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

Для рисования ломаных линий применяются следующие процедуры: MoveTo (x1, y1) и LineTo (x2, y2).
Процедуры работают вместе: MoveTo передвигает курсор в необходимую точку, а процедура LineTo рисует линию с данной точки до точки, определенной параметром этой процедуры.

usesGraphABC;
begin
…
SetPenColor(clblue);
MoveTo(x1, y1);
LineTo(x2, y2);
LineTo(x3, y3);
LineTo(x4, y4);
LineTo(x5, y5);
end.

Задание. Нарисовать квадрат и равносторонний треугольник с помощью SetPenColor(), LineTo (x2, y2) и MoveTo (x1, y1).

Для установки размеров графического окна применяется процедура

Видео:Математика это не ИсламСкачать

Рисование фигур

Прямоугольник в Pascal рисуется:

Rectangle(x1,y1,x2,y2) — рисует прямоугольник с координатами противоположных вершин (x1,y1) и (x2,y2).

Фигуры с заливкой:

usesGraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.

Треугольник рисуется процедурами:

usesGraphABC;
begin
setpenwidth(20);
setpencolor(clred);
moveTo(300,100);
lineTo(500,300);
lineto(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
end.

С помощью данной процедуры можно нарисовать окружность:

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

Дуга окружности

Arc(x,y,r,a1,a2) — позволяет нарисовать дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Задача 1: «Лягушка»

Задача 2: «Корона»

Видео:Графика в PascalСкачать

Функция random для использования окраски

SetPenColor (rgb(random(256), random(256), random(256))); — выбирает рандомное число из 256-цветной палитры для цветов: красного, зеленого и синего.

Задача 3: Нарисовать горизонтальный ряд окружностей радиусом 10 на расстоянии 100 от верхнего края экрана и с такими горизонтальными координатами 50, 80, 110, 140, … , 290.
* круги должны быть раскрашены случайным цветом.

Задача 4: «Круги на воде».

Условие: Нарисуйте несколько десятков концентрических окружностей (окружностей разного радиуса с общим центром).

Задача 5: Воспроизвести изображение с помощью приложения:

Видео:Паскаль Рисую домСкачать

Штриховка

Нарисовать штриховку на Pascal можно, применяя процедуры рисования прямоугольника и линии:

В результате получится следующий код:

usesgraphABC;
var i, x1, x2, y1, y2, N:integer;
h, x:real;
begin
x1 :=100; y1 :=100;
x2 :=300; y2 :=200;
N :=10;
Rectangle(x1, y1, x2, y2);
h :=(x2 — x1)/(N +1);
x := x1 + h;
for i:=1to N dobegin
Line(round(x), y1,round(x), y2);
x := x + h;
end;
end.

Видео:2. Построения с помощью циркуля и линейки.Скачать

Анимация в Паскале

Анимация в Pascalсостоит в том, что первым рисуется фигура цветным инструментом, после чего с такими же координатами рисуется та же фигура белым цветом. Затем происходит сдвиг фигуры. И так действия повторяются.

Воспроизвести движение круга по горизонтали. Пример:

Задача 6: Создать анимацию движения квадрата по заданной траектории:

А как у вас обстоят дела с графикой в Pascal? Поделитесь своим опытом, оставив комментарий.

💥 Видео

Построение шестнадцатиугольника циркулемСкачать

Длина окружности. Площадь круга. 6 класс.Скачать

рисование в паскалеСкачать

Урок №2 (Квадрат и круг) PascalABCProjectСкачать

Нахождение длины окружности и площади круга на ПаскальСкачать

Как нарисовать линию на паскалеСкачать

Как нарисовать окружность вращениеСкачать

Как нарисовать правильный пятиугольник | Видеоурок MATHANIMATIONСкачать