Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

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

МетодыPSet(x,y), цвет -точкаLine(x1,y1)-(x2,y2), цвет -отрезокLine(x1,y1)-(x2,y2), цвет, B -прямоугольникLine(x1,y1)-(x2,y2), цвет, BF -закрашенный
Графические методы и операторы цикла МетодыPSet(x,y), цвет YOX1000100020001000 твип=2 см2000 Синтаксис оператора ForFor счётчик=нач зн To кон зн Step шагоператоры (тело цикла)Next счётчик Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета Dim x As LongDim ЦветvbBlack-чёрныйvbRed-красныйvbGreen-зелёныйvbYellow-жёлтыйvbBlue-синийvbMagenta-фиолетовыйvbCyan-голубойvbWhite-белый Dim x As LongDim y As LongDrawWidth = 5y = 1000For x Нарисовать «Ковёр из синих кругов» , если х=1000, 1350, 1700,….8000,  у=1000,
Слайды презентации

Слайд 2 Методы
PSet(x,y), цвет

МетодыPSet(x,y), цвет        -точкаLine(x1,y1)-(x2,y2), цвет

-точка
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 Y
O
X
1000
1000
2000
1000 твип=2 см
2000

YOX1000100020001000 твип=2 см2000

Слайд 4 Синтаксис оператора For
For счётчик=нач зн To кон зн

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

Step шаг
операторы (тело цикла)
Next счётчик


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

Нарисовать ряд окружностей: х=500,1000,1500…..5000, у=1000, r=500 синего цвета Dim x As


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-синий
vbMagenta-фиолетовый
vbCyan-голубой
vbWhite-белый

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

Слайд 7 Dim x As Long
Dim y As Long
DrawWidth =

Dim x As LongDim y As LongDrawWidth = 5y = 1000For

5
y = 1000
For x = 1500 To 6000 Step

300
Circle (x, y), 700, vbRed
y = y + 200
Next x

Нарисовать ряд красных окружностей по диагонали, если х=1500, 1800, 2100,….6000, у=1000, 1200, 1400,…..,
R=700


  • Имя файла: graficheskie-metody-i-operatory-tsikla.pptx
  • Количество просмотров: 111
  • Количество скачиваний: 0