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

Написать программу, которая при нажатии на кнопку F1 начинает рисовать в соответствии с заданием, приводимым ниже, а при нажатии на кнопку F2 - рисует график указанной функции, при нажатии правой кнопки мыши - графическое окно очищается.

Ваш ответ необходимо загрузить в данном разделе

Варианты заданий

1. Нарисуйте окружность, центр которой расположен в центре графического окна, а диаметр равен высоте окна.

Указание. Следует воспользоваться свойствами Window.Width, Window.Height и процедурой Circle.

Нарисуйте график функции - sin(x)

2. Нарисуйте диагонали графического окна (процедура Line).

Нарисуйте график функции - cos(x)

3. Нарисуйте два прямоугольника — в левом верхнем и правом нижнем углах графического окна (процедура Rectangle).

Нарисуйте график функции - sin(2x)

4. Напишите процедуру, которая рисует прямоугольник с диагоналями:

procedure RectWithDiags(x, y, width, height: integer);

Здесь x, y – координаты верхнего левого угла прямоугольника; width, height – ширина и высота прямоугольника.

Нарисуйте график функции - cos(2x)

5. Напишите процедуру, которая рисует окружность с красным крестом в центре:

procedure CircleWithCross(x, y, r: integer);

Здесь x, y – координаты центра окружности; r – радиус окружности.

Указание. Для установки цвета пера воспользуйтесь свойством Pen.Color, а для установки его ширины — свойством Pen.Width:

Pen.Color: = Color.Red;

Pen.Width: = 5;

Нарисуйте график функции - x*x

6. Нарисуйте горизонтальный ряд из одинаковых квадратов. Попытайтесь предварительно определить, как изменяются координаты левых верхних углов квадратов, и записать рисование квадратов в цикл:

procedure SquaresRow(x0, y0, N, width, dist: nteger);

Здесь x0, y0 – координаты левого верхнего угла первого квадрата; N – количество квадратов; width – ширина одного квадрата; dist – расстояние между двумя соседними квадратами.

Нарисуйте график функции - x*x*x

7. Напишите процедуру, рисующую N концентрических окружностей (окружностей с общим центром и разными радиусами):

procedure InnerCircles(x, y, minR, step, N: integer);

Здесь x, y – координаты центра всех окружностей; minR – радиус наименьшей окружности; step – величина, на которую отличаются радиусы двух соседних окружностей; N – количество окружностей.

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

Brush.Style: = bsClear;

Можно также рисовать окружности от внешней к внутренней.

Нарисуйте график функции - x*x+2

8. Напишите процедуру FramedTextOut, которая выводит текст в рамке.

Нарисуйте график функции - (x+2)*(x+2)

9. Напишите процедуру TextOutRightBottomCorner, которая выводит заданный текст в правый нижний угол графического окна. Текст должен располагаться в указанном месте независимо от своего размера.

Нарисуйте график функции - tg(x)

10. Напишите процедуру

CharInCircleOut(x, y: integer; c: char),

которая выводит переданный ей символ в центре круга.

Нарисуйте график функции - (2-x)*(2-x)

11. Нарисуйте циферблат с делениями в виде отрезков.

Нарисуйте график функции - 1/x

12. Нарисуйте черный прямоугольник у левого края графического окна и переместите его к правому краю.

Нарисуйте график функции - 1/(x+3)

13. Напишите процедуру, которая выводит заданный текст в центре графического окна.

Нарисуйте график функции - 2*x*x+3

14. Напишите процедуру, которая выводит заданный текст в каждом из четырех углов графического окна.

Нарисуйте график функции - cos(3x)

15. Нарисуйте круг в левом верхнем углу графического окна и переместите его в правый нижний угол. Предварительно рассчитайте, как должны изменяться координаты центра круга, чтобы движение было равномерным.

Нарисуйте график функции - x*x-2