9-е классы

Сегодня - повторение темы "Подпрограммы" и "Циклы"
Мы рисовали узор из треугольников по периметру экрана.
Подпрограмма Sub triangle рисует треугольник.
Мы вызываем ее в цикле, так чтобы происходило рисование от края до края.
Таких циклов четыре (по всем четырем краям экрана).

В программе, показанной ниже, явно устанавливаются размеры графического окна (755 и 590), а в цикле 21 повторение по вертикали и 30 повторений по горизонтали. Эти цифры подобраны специально чтобы треугольники покрывали ровно требуемую длину.


ЗАДАНИЯ
1. В строках 3 и 4 ВМЕСТО имеющихся строк получайте размеры экрана командами
w = GraphicsWIndow.Width
h = GraphicsWindow.Height


2. В подпрограмме triange использовать переменную типа storona вместо явно заданного значения 30. Ее значение надо задать в начале программы.

3. В циклах вместо 21 и 30 поставить значение, зависящее от размера треугольника и от чисел w, h и storona
например For i = 1 To w/storona

(то есть мы делим ширину экрана или высоту на длину стороны треугольника)

☞В строках 34, 44, 55 нужны не конкретные числа 727 или 755, а отступы от краев экрана, например w-storona.

4. Создать еще одну подпрограмму Square которая рисует квадрат, а не треугольник

5. Изменить программу так, чтобы рисовался узор из треугольников вперемешку с квадратами.

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

7. По центру экрана обязательно сделайте надпись со своей фамилией и именем

8. Опубликуйте программу и пришлите ссылку вида http://smallbasic.com/program/?YGDYGD по адресу 328gos@gmail.com