PPt4Web Хостинг презентаций

Главная / Информатика / Графические методы и операторы цикла
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

Чтобы скачать данную презентацию, порекомендуйте, пожалуйста, её своим друзьям в любой соц. сети.

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Графические методы и операторы цикла


Скачать эту презентацию

Презентация на тему: Графические методы и операторы цикла


Скачать эту презентацию



№ слайда 1 Графические методы и операторы цикла
Описание слайда:

Графические методы и операторы цикла

№ слайда 2 Методы PSet(x,y), цвет -точка Line(x1,y1)-(x2,y2), цвет -отрезок Line(x1,y1)-(x2
Описание слайда:

Методы PSet(x,y), цвет -точка Line(x1,y1)-(x2,y2), цвет -отрезок Line(x1,y1)-(x2,y2), цвет, B -прямоугольник Line(x1,y1)-(x2,y2), цвет, BF -закрашенный прямоугольник Circle(x,y),r,цвет -окружность Circle(x,y),r,цвет , , , k -эллипс Сls -очистка DrawWidth=3 -толщина линий

№ слайда 3
Описание слайда:

№ слайда 4 Синтаксис оператора For For счётчик=нач зн To кон зн Step шаг операторы (тело ци
Описание слайда:

Синтаксис оператора For For счётчик=нач зн To кон зн Step шаг операторы (тело цикла) Next счётчик

№ слайда 5 Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета D
Описание слайда:

Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета Dim x As Long Dim y As Long Dim r As Long DrawWidth = 5 For x = 500 To 5000 Step 500 Circle (x, 1000), 500, vbBlue Next x

№ слайда 6 Цвет vbBlack-чёрный vbRed-красный vbGreen-зелёный vbYellow-жёлтый vbBlue-синий v
Описание слайда:

Цвет vbBlack-чёрный vbRed-красный vbGreen-зелёный vbYellow-жёлтый vbBlue-синий vbMagenta-фиолетовый vbCyan-голубой vbWhite-белый

№ слайда 7 Нарисовать ряд красных окружностей по диагонали, если х=1500, 1800, 2100,….6000,
Описание слайда:

Нарисовать ряд красных окружностей по диагонали, если х=1500, 1800, 2100,….6000, у=1000, 1200, 1400,….., R=700 Dim x As Long Dim y As Long DrawWidth = 5 y = 1000 For x = 1500 To 6000 Step 300 Circle (x, y), 700, vbRed y = y + 200 Next x

№ слайда 8 Нарисовать «Ковёр из синих кругов» , если х=1000, 1350, 1700,….8000, у=1000, 135
Описание слайда:

Нарисовать «Ковёр из синих кругов» , если х=1000, 1350, 1700,….8000, у=1000, 1350, 1700,…..6000, R=200 Dim x As Long Dim y As Long DrawWidth = 2 For x = 1000 To 8000 Step 250 For y = 1000 To 6000 Step 250 Circle (x, y), 200, vbBlue Next y Next x

Скачать эту презентацию


Презентации по предмету
Презентации из категории
Лучшее на fresher.ru