Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2009, 09:41   #1
IndividBezLica
 
Регистрация: 25.05.2009
Сообщений: 4
По умолчанию Исправить код

задача на Qbasic
Железнодорожный сортировочный узел устроен така как показанно на рисунке. На правой стороне расположены вагоны двух типов черные и белые по n=5 штук каждых.тупик вмещает все 2*n вагонов. Пользуясь двумя сортировочными операциями В, ИЗ, МИМО собрать вагоны на левой стороне чтобы они чередовались. начальное положение задавать генератором случайных чисел.

<--мимо
==============\=/========чббчбчч (ч=черный б=белый)
................ из \ ...|| / в
..........................||
..........................||





Код:
SCREEN 1
LINE (10, 20)-(310, 20), 1
LINE (10, 24)-(310, 24), 1
LINE (154, 20)-(158, 24), 1
LINE (162, 24)-(166, 20), 1
LINE (158, 24)-(158, 180), 1
LINE (162, 24)-(162, 180), 1
DIM a(10, 1)
DIM b(10, 1)
k = 304
n = 0



RANDOMIZE TIMER

FOR i = 1 TO 10
b(i, 1) = RND * 100
IF b(i, 1) > 50 THEN a(i, 1) = 1 ELSE a(i, 1) = 2
NEXT i

FOR j = 1 TO 10
LINE (k, 19)-(k + 6, 26), a(j, 1), BF
k = k - 8
NEXT j
q = 157
c = 10


IF INKEY$ = chr(a) THEN
FOR l = k TO q STEP -1
LINE (l, 19)-(l + 6, 26), a(c, 1), BF

PLAY "p60"
NEXT l
h = 180
FOR z = 26 TO h
LINE (q, h - 6)-(q, h), a(c, 1), BF
PLAY "p60"
NEXT z
LINE (k, 19)-(k + 6, 26), 0, BF
c = c - 1
h = h - 8
k = k + 8
END IF
b = 10

IF a$ = "065" THEN
LINE (k, 19)-(k + 6, 26), a(c, 1), BF: LINE (b, 19)-(b + 6, 26), a(c, 1), BF
PLAY "p60"
LINE (k, 19)-(k + 6, 26), 0, BF
b = b + 8
c = c - 1
END IF

IF a$ = "087" THEN
LINE (q, h)-(q, h - 6), a(c, 1), BF: LINE (q, 19)-(q, 26), a(c, 1), BF
PLAY "p60"
LINE (q, 19)-(q, 26), a(c, 1), BF: LINE (b, 19)-(b, 26), a(c, 1), BF
PLAY "p 60"
LINE (q, h)-(q, h - 6), 0, BF
END IF

Последний раз редактировалось Stilet; 02.06.2009 в 11:07.
IndividBezLica вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите исправить код lider24816 Помощь студентам 2 24.05.2009 18:12
помогите исправить код в задаче _grusha_ Помощь студентам 11 11.05.2009 22:05
Помогите исправить код Grizzzli Помощь студентам 3 14.12.2008 19:26
Помогите исправить код Tanuska___:) БД в Delphi 4 07.08.2008 17:40
Помогите исправить код student_63 Помощь студентам 5 13.12.2007 18:20