1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

помогите с графическим режимом в турбо бейсике

Тема в разделе "Вопросы новичков и не только", создана пользователем D1em, 10 дек 2010.

  1. D1em

    D1em Гость

    Репутация:
    0
    дали задание......чёт я его не догнал.......как то криво выходит, подскажите плиз...само задание на картинке помогите с графическим режимом в турбо бейсике

    Код:
    screen 12
    input "DBu}|{eHue 5 yroJIbHuKa r=";r
    do
    if x<160 then
    dx=x+10
    end if
    x=dx
    y=dy
    if x=160 then
    dx=x
    end if
    if x=160 then
    dy=y+10
    end if
    if y=240 then
    dy=y
    end if
    if y=240 then
    dx=x+10
    end if
    if x=320 then
    dx=x
    end if
    if x=320 then
    dy=y-10
    end if
    if x<320 then
    dx=x+10
    end if
    x=dx
    y=dy
    if x=480 then
    dx=x
    end if
    if x=480 then
    dy=y+10
    end if
    
    a=(a/2)/sin(6.28/(5*2))
    x1=x+R
    y1=y
    for al=0 to 6.28 step 6.28/5
    line (x1,y1)-(x+R*cos(al),y+R*sin(al)),4
    x1=x+R*cos(al)
    y1=y+R*sin(al)
    next al
    delay 0.3
    cls
    loop while inkey$=""
     
Загрузка...
Похожие Темы - помогите графическим режимом
  1. ~localhost
    Ответов:
    0
    Просмотров:
    30
  2. citizenfour
    Ответов:
    1
    Просмотров:
    67
  3. Tayrus
    Ответов:
    1
    Просмотров:
    77
  4. Lcf11
    Ответов:
    2
    Просмотров:
    82
  5. Tayrus
    Ответов:
    3
    Просмотров:
    107

Поделиться этой страницей