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

Тема: Построить прямоугольник по заданным координатам вершин и закрасить области,ограниченные диагоналями в случайные цвета

  1. #1 Построить прямоугольник по заданным координатам вершин и закрасить области,ограниченные диагоналями в случайные цвета 
    Новичок
    Регистрация
    14.04.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1)построить прямоугольник по заданным координатам вершин и закрасить области,ограниченные диагоналями в случайные цвета.
    2)сформировать движущийся прямоугольник заданного размера,центр которого перемещается попеременно в обоих направлениях вдоль горизонтального отрезка с заданными границами.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Рисование линии: LINE (X1,Y1)-(X2,Y2), C. Здесь X1,Y1 и X2, Y2 - координаты концов линии, C-цвет. Пример: LINE (30, 100)-(120, 150), 10

    Рисование прямоугольной рамки:
    LINE (X1,Y1)-(X2,Y2), C, B. Здесь X1,Y1 и X2,Y2-кординаты концов левой диагонали, C-цвет. Пример: LINE (90, 110)-(140, 170), 10, B

    Рисование закрашенного прямоугольника:
    LINE (X1,Y1)-(X2,Y2), C, BF. Здесь X1,Y1 и X2,Y2-кординаты концов левой диагонали, C-цвет. Пример: LINE (90, 110)-(140, 170), 12, BF

    PAINT (X, Y), C1, C2. Здесь PAINT - оператор закрашивания. X,Y - координаты точки внутри закрашиваемой области, C1 - цвет закрашивания, C2 - цвет линии границы.

    Это так сказать инструменты
    Последний раз редактировалось Dimon012; 21.04.2011 в 07:35.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    14.04.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо большое,но я не особо все равно соображаю к сожалению
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Код :
    x1=10
    y1=10
    x2=20
    y2=20
    screen 7
    cls
    randomize timer
    Line (x1,y1)-(x2,y2),5,B
    Line (x1,y1)-(x2,y2),5
    Paint( ((3*x1+3*x2)/4),((y1+y2)/2) ),(int(rnd*10)),5
    Paint( ((x1+x2)/4),((y1+y2)/2) ),(int(rnd*10)),5
    вот где то так, но проверить я не могу у меня графика не поддерживается
    Последний раз редактировалось Абадябер; 21.04.2011 в 18:19. Причина: Подправил Randomize Timer
    Ответить с цитированием  
     

  5. #5  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    странно странно я проверил у меня работают оба варианта:
    RANDOMIZE TIMER
    RANDOMIZE (TIMER)
    проверено в QuickBASIC
    или ошибка в орфографии?
    Ответить с цитированием  
     

  6. #6  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Вот на вторую задачку

    Код :
    INPUT "Введите размер x прямоугольника ", rx
    INPUT "Введите размер y прямоугольника ", ry
    INPUT "Длина сдвига ", otr
     
    x = rx / 2
    y = ry
     
    SCREEN 12
    FOR i = 0 TO otr
        x1 = x + i - rx / 2
        y1 = y - ry / 2
        x2 = x + i + rx / 2
        y2 = y + ry / 2
        CLS
        LINE (x1, y1)-(x2, y2), 5, B
        t = TIMER
        DO
            a = a + 16
        LOOP WHILE (TIMER - t) < 0.05
    NEXT
    FOR i = otr TO 0 STEP -1
        x1 = x + i - rx / 2
        y1 = y - ry / 2
        x2 = x + i + rx / 2
        y2 = y + ry / 2
        CLS
        LINE (x1, y1)-(x2, y2), 5, B
        t = TIMER
        DO
            a = a + 16
        LOOP WHILE (TIMER - t) < 0.05
    NEXT

    лентяи...
    Последний раз редактировалось Dimon012; 22.04.2011 в 07:36.
    Ответить с цитированием  
     

  7. #7  
    Новичок
    Регистрация
    14.04.2011
    Сообщений
    10
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    тут не лень виновата а другие обстоятельства
    спасибо большое
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Определение цвета пикселя
    от Стас в разделе .NET
    Ответов: 0
    Последнее сообщение: 19.11.2012, 12:50
  2. Ответов: 0
    Последнее сообщение: 06.10.2012, 19:21
  3. Ответов: 0
    Последнее сообщение: 20.05.2012, 17:20
  4. Ответов: 2
    Последнее сообщение: 27.05.2011, 00:03
  5. Изменение цвета текста в SCREEN 1
    от SMB в разделе QBasic
    Ответов: 3
    Последнее сообщение: 21.11.2010, 18:03
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •