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

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

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





  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. Нарушение авторских прав; Мы поможем в написании вашей работы!




Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

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

Признаки классификации безопасности Можно выделить следующие признаки классификации безопасности. 1. По признаку масштабности принято различать следующие относительно самостоятельные геополитические уровни и виды безопасности. 1.1. Международная безопасность (глобальная и...

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

ТЕРМОДИНАМИКА БИОЛОГИЧЕСКИХ СИСТЕМ. 1. Особенности термодинамического метода изучения биологических систем. Основные понятия термодинамики. Термодинамикой называется раздел физики...

Травматическая окклюзия и ее клинические признаки При пародонтите и парадонтозе резистентность тканей пародонта падает...

Подкожное введение сывороток по методу Безредки. С целью предупреждения развития анафилактического шока и других аллергических реак­ций при введении иммунных сывороток используют метод Безредки для определения реакции больного на введение сыворотки...

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