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

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

  1. D1em

    D1em Гость

    дали задание......чёт я его не догнал.......как то криво выходит, подскажите плиз...само задание на картинке __________.jpg

    Код (C++):
    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. limbra
    Ответов:
    3
    Просмотров:
    44
  2. NylevoiChelovek
    Ответов:
    4
    Просмотров:
    101
  3. Ruska132
    Ответов:
    34
    Просмотров:
    270
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    147
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    63

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