Важная информация
Показано с 1 по 3 из 3

Тема: Графика

  1. #1 Графика 
    Новичок
    Регистрация
    04.05.2011
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1. Нарисовать движение квадрата со стороной 20 по «второстепенной» диагонали экрана.

    2. Изобразить круг c R=8, движущийся по параболе y=2x2-3x+1.

    3. Построить графики функций y=sin(x) и y=x3-x2+x-1.

    4. Изобразить движение круга с R=10 по периметру экрана.

    5. Изобразить квадрат со стороной 10 движущийся по кругу с R 200.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,535
    Сказал(а) спасибо
    126
    Поблагодарили 432 раз(а) в 293 сообщениях
    Записей в блоге
    6
    Первое:
    Код qbasic:
    SCREEN 1
    FOR i = 1 TO 320
    LINE (i - 10, (320 - i) * 2 / 3.2 - 10)-(i + 10, (320 - i) * 2 / 3.2 + 10), 1, B
    FOR j = 1 TO 10000
    NEXT j
    LINE (i - 10, (320 - i) * 2 / 3.2 - 10)-(i + 10, (320 - i) * 2 / 3.2 + 10), 0, B
    NEXT i

    Второе:
    Код qbasic:
    SCREEN 1
    FOR i = -6 TO 6 STEP .01
    CIRCLE ((i + 6) * 20, 100 - (2 * i * i + 3 * i + 1) + 20), 8, 1
    FOR j = 1 TO 1000
    NEXT j
    CIRCLE ((i + 6) * 20, 100 - (2 * i * i + 3 * i + 1) + 20), 8, 0
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,535
    Сказал(а) спасибо
    126
    Поблагодарили 432 раз(а) в 293 сообщениях
    Записей в блоге
    6
    третие:
    Код qbasic:
    SCREEN 1
    FOR i = -6 TO 6 STEP .01
    PSET ((i * 51), SIN(i) * 60 + 120), 1
    PSET ((i * 10) + 100, 100 + i * i * i + i * i + i + 1)
    NEXT i



    четвёртое:
    Код qbasic:
    SCREEN 1
    FOR i = 1 TO 320
    LINE (i - 10, -10)-(i + 10, 10), 1, B
    FOR j = 1 TO 10000
    NEXT j
    LINE (i - 10, -10)-(i + 10, 10), 0, B
    NEXT i
    FOR i = 1 TO 200
    LINE (310, i - 10)-(330, i + 10), 1, B
    FOR j = 1 TO 10000
    NEXT j
    LINE (310, i - 10)-(330, i + 10), 0, B
    NEXT i
    FOR i = 320 TO 0 STEP -1
    LINE (i - 10, 190)-(i + 10, 210), 1, B
    FOR j = 1 TO 10000
    NEXT j
    LINE (i - 10, 190)-(i + 10, 210), 0, B
    NEXT i
    FOR i = 200 TO 0 STEP -1
    LINE (-10, i - 10)-(10, i + 10), 1, B
    FOR j = 1 TO 10000
    NEXT j
    LINE (-10, i - 10)-(10, i + 10), 0, B
    NEXT i




    пятое:
    Код qbasic:
    SCREEN 1
    FOR i = 1 TO 20 STEP .01
    CIRCLE (SIN(i) * 100 + 100, COS(i) * 100 + 100), 8, 1
    FOR j = 1 TO 1000
    NEXT j
    CIRCLE (SIN(i) * 100 + 100, COS(i) * 100 + 100), 8, 0
    NEXT i
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. 2D/3D Графика. Игры.
    от handrix в разделе Общие вопросы программирования
    Ответов: 5
    Последнее сообщение: 13.09.2012, 20:23
  2. Графика на Бейсике
    от >Quiet Snow< в разделе Basic
    Ответов: 16
    Последнее сообщение: 28.06.2011, 19:18
  3. Графика
    от >Quiet Snow< в разделе Turbo Pascal
    Ответов: 5
    Последнее сообщение: 12.06.2011, 16:07
  4. Графика в TurboC
    от pingvin в разделе C/C++
    Ответов: 3
    Последнее сообщение: 02.03.2011, 13:25
  5. Графика в ассемблере
    от Potap в разделе Assembler
    Ответов: 3
    Последнее сообщение: 21.01.2011, 13:42
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •