Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Следующая процедура рисует концентрические окружности с заданным центром, радиусом, густотой и цветом. Это параметры процедуры.





  SUB konring (x, y, raadius, tihedus, varv) FOR i = 1 TO raadius STEP tihedus CIRCLE (x, y), i, varv NEXT i END SUB

 

Используем эту процедуру в следующей программе:

    SCREEN 12 CALL konring(320, 240, 100, 30, 2) CALL konring(100, 150, 40, 2, 4)

 

Используя следующую основную программу и процедуру konring, создадим рисунок обоев:

 

SCREEN 12 FOR x = 0 TO 640 STEP 40 FOR y = 0 TO 480 STEP 40 CALL konring(x, y, 40, 10, 9) NEXT y NEXT x

 

 

Рассмотрим ещё одну программу:

 

DECLARE SUB ScreenSaver1 () DECLARE SUB ScreenSaver2 () DECLARE SUB ScreenSaver3 () DO SCREEN 0 'текстовый экран CLS PRINT " Выбери screensaver? [1-3]" PRINT " (для прерывания введи другую цифру)" INPUT Valik$ SELECT CASE Valik$ CASE "1" ScreenSaver1 CASE "2" ScreenSaver2 CASE "3" ScreenSaver3 CASE ELSE END END SELECT LOOP   SUB ScreenSaver1   SCREEN 12 'Включаем графический экран DO x = INT(RND * 639) 'Генерируем координату x. y = INT(RND * 479) 'Генерируем координату y rad = INT(RND * 150) + 10 ' Генерируем радиус col = INT(RND * 15) + 1 'Генерируем цвет CIRCLE (x, y), rad, col 'Рисуем круг LOOP UNTIL INKEY$ <> ""   END SUB   SUB ScreenSaver2   SCREEN 12 'Включаем графический экран DO x = INT(RND * 639) 'Генерируем координату x. y = INT(RND * 479) 'Генерируем координату y rad = INT(RND * 150) + 10 'Генерируем радиус FOR r = 1 TO rad col = INT(RND * 15) + 1 'Генерируем цвет CIRCLE (x, y), r, col 'Рисуем круг NEXT LOOP UNTIL INKEY$ <> ""   END SUB   SUB ScreenSaver3   SCREEN 12 DO x = INT(RND * 639) y = INT(RND * 479) rad = INT(RND * 150) + 10 col = INT(RND * 15) + 1 FOR r = rad TO rad - 10 STEP -2 CIRCLE (x, y), r, col NEXT LOOP UNTIL INKEY$ <> ""   END SUB

 

 







Дата добавления: 2015-09-07; просмотров: 344. Нарушение авторских прав; Мы поможем в написании вашей работы!




Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...


Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...


Логические цифровые микросхемы Более сложные элементы цифровой схемотехники (триггеры, мультиплексоры, декодеры и т.д.) не имеют...

Задержки и неисправности пистолета Макарова 1.Что может произойти при стрельбе из пистолета, если загрязнятся пазы на рамке...

Вопрос. Отличие деятельности человека от поведения животных главные отличия деятельности человека от активности животных сводятся к следующему: 1...

Расчет концентрации титрованных растворов с помощью поправочного коэффициента При выполнении серийных анализов ГОСТ или ведомственная инструкция обычно предусматривают применение раствора заданной концентрации или заданного титра...

Прием и регистрация больных Пути госпитализации больных в стационар могут быть различны. В цен­тральное приемное отделение больные могут быть доставлены: 1) машиной скорой медицинской помощи в случае возникновения остро­го или обострения хронического заболевания...

ПУНКЦИЯ И КАТЕТЕРИЗАЦИЯ ПОДКЛЮЧИЧНОЙ ВЕНЫ   Пункцию и катетеризацию подключичной вены обычно производит хирург или анестезиолог, иногда — специально обученный терапевт...

Ситуация 26. ПРОВЕРЕНО МИНЗДРАВОМ   Станислав Свердлов закончил российско-американский факультет менеджмента Томского государственного университета...

Studopedia.info - Студопедия - 2014-2025 год . (0.01 сек.) русская версия | украинская версия