Forum.iFiction.Ru

У меня на винте лежит QB 4.5 (по-моему) и все пашет превосходно (под Win95,98).

Переходи лучше на visual basic... команды там практически теже... хош могу научить...

Eden написал:

Переходи лучше на visual basic... команды там практически теже... хош могу научить...

Слыш пришли чего нибудь на мыло
Какие нибудь команды

Retran написал:

О ужас!!! Кто-то еще на ВАСИКЕ пишет
Учите лучше Паскаль или Си...

...Или на специальном языке. Система Inform, по-моему, очень хорошо организована для создания полноценного IF.

Retran написал:

Inform - он, наверное, самая лучшая система для создания IF, но англоязычного IF и под русский его никак не переделаешь вроде... А мы тут занимаемся созданием именно русских IF... Так что Inform не подходит...

Ничего, уже пишется система, которая возможно заменит собой Inform среди русских IF`еров. (по крайней мере, я на это надеюсь). Вот информация по этому поводу: http://toysoft.narod.ru/ifml2.0.htm

WildWizard написал:

Ничего, уже написана и проходит последнии стадии бета тестинга система, которая заменит Inform для русских IFеров (во всяком случае для меня).
Называется Hydra

Она на русском языке? Можешь привести пару примеров?

2RealSonic
Hydra создавалась для русского языка. Написана на Python.
https://forum.ifiction.ru/viewtopic.php?id=558
Хотя там довольно старая, в основном, информация. Но если будут вопросы - спрашивайте.

WildWizard написал:

2RealSonic
Hydra создавалась для русского языка. Написана на Python.
https://forum.ifiction.ru/viewtopic.php?id=558
Хотя там довольно старая, в основном, информация. Но если будут вопросы - спрашивайте.

Хорошо. Я как раз задумываю написать историю, выбираю платформу. Так что, если она мне понравится - ждите шквала вопросов. 

2Беатрисс. С подобными вопросами лучше обращаться на http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi

FILES FAQ (взято из эхи RU.DOS.BASIC)
Где найти QBASIC, QuickBASIC и PDS?
——————————————————————————————
>Q: Где можно найти QBASIC, QuickBASIC, PDS, ASIC?
- Anton Bogachenkov (2:5020/937):
  .www
  И еще, там же лежит QuickBASIC (c QB45_1.zip до QB45_5.zip) и QBASIC.ZIP
- Andrew Shelkovenko (2:5030/1186.41):
  http://diakin.narod.ru - в pазделе ссылки, софт
  Заархивированные директории, без инсталлятора :-(
- Alex Mironov (2:5020/400)
  Ещё PDS доступен здесь: http://stalk.webjump.com/files/qb71.rar.
  Сервер бывает перегружен
- Anton Samsonov (2:5020/2123)
  ASIC можно взять здесь:
  http://avsco.nm.ru/asic400.rar (200К аpхив, 500К - исходный pазмеp)
- Maxim Shmelev (2:5020/1721.43)
  http://qbasic4u.chat.ru/qbasic45.exe (самораспаковывающийся zip-архив)
- Gregory Zeldner (2:5020/1967) Freq: (00:00-05:30 MSK)
  PDS:                          BC7_*.ZIP
  QuickBASIC:                   QB45_*.ZIP
  QBASIC:                       QBASIC@.ZIP
  PCX Programmer ToolKit 3.51:  PCX*.ZIP
- Aleksej R. Serdyukov (2:5020/1042.42)
  DelSoft BBS, FREQ - (17:00-19:00 MSK):
  PDS v7.1         - PDS71_D?.* (1-5) - installer
  QB v4.5          - QB45.* - installer
  IBM DOS QBASIC   - IDQBASIC.*
  MoonRock         - MOON050.* (v0.50), MRSRC017.* (исходники v0.17)
  ASIC v4.00       - ASIC400.* - installer
  Turbo BASIC v1.0 - TURBAS10.*
[Если кто-нибудь хочет выкладывать эти программы для свободного доступа -
напишите об этом мне, я пополню список ]
> Q: Скачал дистрибутивный комплект PDS, развернул содержимое на диск,
> а инсталлятор все равно ищет файлы на дискетке. Как его переубедить?   
A: Используя команду SUBST, надо присвоить букву A: или B: директории,
откуда идет инсталляция.  апример, если файлы лежат C:INSTALL:
SUBST A: C:INSTALL
после чего, перейдя на "виртуальный" диск A: запустить инсталлятор.
 
> Q: Какие существуют конференции со сходной тематикой?
A: Таких конференций в Fido,  кроме RU.DOS.BASIC,  всего три. Это
международные конференции BASIC7 (посвященная обсуждению  PDS)  и
QUIK_BAS  (QuickBASIC), а также RU.BASIC.
   В  Internet'е  много полезной информации можно почерпнуть на
страничке Aндрея Колесова:
   http://www.visual.2000.ru/develop/basicdos/index.htm

Беатрисс написал:

:-[
в qbasice распечатать все символы и соответствующие им коды от 32 до 255. обеспечить постраничную печать.

А лучше так:
CLS
FOR i=32 TO 255
a$=CHR$(i)
PRINT a$;" ";
NEXT
Учись студент!!!

люди, учите Python - он проще бэйсика, а возможностей будет побольше

a = [1, 3, 4, 5, 7, 2, 4, 1, 6, 7, 5, 10, 34, 4, 6, 5]
c = 4
d = 9
n = []
for i in a:
      if i >= c and i <= d:
            n.append(i)
a = n
print a

А что конкретно? Какое управление? Что ты имеешь в виду?

Здравствуйте!
Вот в этом коде надо исправить REM 9, чтобы наклонная прямая двигалась из левого в правый угол (экран 320 (по горизонтали) на 200 (по вертикали))

См рисунок

SCREEN 7
COLOR 2, 14

REM 1
FOR X = 160 TO 320 STEP 3
PSET (X, 100), 2
FOR T = 1 TO 100000
NEXT T
PSET (X, 100), 0
NEXT X

REM 2
FOR X = 320 TO 160 STEP -3
PSET (X, 100), 2
FOR T = 1 TO 100000
NEXT T
PSET (X, 100), 0
NEXT X

REM 3
FOR Y = 100 TO 200 STEP 3
PSET (160, Y), 2
FOR T = 1 TO 100000
NEXT T
PSET (160, Y), 0
NEXT Y

REM 4
FOR Y = 200 TO 100 STEP -3
PSET (160, Y), 2
FOR T = 1 TO 100000
NEXT T
PSET (160, Y), 0
NEXT Y

REM 5
FOR X = 160 TO 320 STEP 1
LINE (X, 100)-(X + 40, 60), 2
FOR T = 1 TO 10000
NEXT T
LINE (X, 100)-(X + 40, 60), 0
NEXT X

REM 6
FOR X = 320 TO 180 STEP -1
LINE (X - 40, 60)-(X, 100), 2, BF
FOR T = 1 TO 10000
NEXT T
LINE (X - 40, 60)-(X, 100), 0, BF
NEXT X

REM 7
FOR Y = 100 TO 200 STEP 1
CIRCLE (160, Y), 30, 2
FOR T = 1 TO 10000
NEXT T
CIRCLE (160, Y), 30, 0
NEXT Y

REM 8
FOR Y = 200 TO 100 STEP -1
CIRCLE (160, Y), 30, 2, 170 * 3.14 / 180, 10 * 3.14 / 180
FOR T = 1 TO 10000

REM 9
FOR Y = 50 TO 200 STEP 1
LINE (0, Y)-(50, Y - 50), 2
FOR T = 1 TO 10000
NEXT T
LINE (0, Y)-(50, Y - 50), 2
NEXT Y

Ханойские башни, qbasic ... помогите исправить...

я знаю что у меня в днк ошибка....
и что я бейсик последний раз видел сто лет назад...

племянник попросил помочь...

главное....

мне сама прога надо а не как быстрее ее пройти...

с Уважением...

demettriss


10 SCREEN 7
16 o = 170
17 r(1) = 80
18 r(2) = 160
19 r(3) = 240
20 LOCATE 24, 1: INPUT " number of disks ", m

25 DIM a(m, 3)
26 FOR w = 2 TO 3
27 FOR e = 1 TO m
28 a(e, w) = 0
29 NEXT e
30 NEXT w


40 FOR z = 1 TO m

60 a(z, 1) = z

70 NEXT z
73 f = 0
75 CLS
80 LINE (78, o)-(82, 10), 15, B
90 LINE (158, o)-(162, 10), 15, B
100 LINE (238, o)-(242, 10), 15, B
110 LINE (2, o)-(318, 175), 15, B
120 FOR q = 1 TO 3
130 FOR i = 1 TO m
132 c = i
133 IF c >= 15 THEN c = c - 1
134 IF c <= 1 THEN c = 15
135 IF c >= 2 AND c <= 14 THEN GOTO 137 ELSE GOTO 133
137 t = m - i + 1

145 IF m = i THEN k = m AND t = m
150 k = a(t, q)
155 k = k + 5
160 x1 = r(q) - k
170 x2 = r(q) + k
180 o1 = o - 5 * (i - 1)
190 y1 = o1
200 y2 = o1 - 5

215 IF a(t, q) = 0 THEN GOTO 220
210 LINE (x1, y1)-(x2, y2), c, BF
220 NEXT i
230 NEXT q



290 IF f = 1 THEN GOTO 335

300 LOCATE 24, 1: INPUT " from what ", a%
310 CLS
320 IF a% > 3 OR a% < 1 THEN GOTO 345
325 f = f + 1
330 GOTO 75
335 LOCATE 24, 1: INPUT " on what ", b%
337 IF b% > 3 OR b% < 1 OR a% = b% THEN GOTO 345 ELSE GOTO 360

345 CLS
346 LOCATE 15, 5: INPUT "not the correct value", d
347 IF f = 1 THEN GOTO 75
355 GOTO 75


360 z1 = a%
370 z2 = b%
380 xyz = a(1, z1)

390 IF a% = j THEN a% = a(1, j)
400 IF b% = j THEN b% = a(1, j)

450 IF b% = 0 THEN GOTO 510

500 IF a% > b% THEN LOCATE 15, 1: INPUT "not the correct value. A%>B%", j ELSE GOTO 510
505 GOTO 73

510 m1 = m - 1
520 k1 = a(1, z1)
525 a(1, z1) = 0
530 FOR i = 1 TO m1
540 i1 = i + 1
560 SWAP a(i, z1), a(i1, z1)
570 NEXT i

600 s1 = m
610 m1 = m - 1
620 FOR i = 1 TO m1
630 s2 = s1 - 1
640 SWAP a(s1, z2), a(s2, z2)
650 s1 = s2
660 NEXT i
666 a(1, z2) = xyz
700 h = a(m, 2)
710 u = a(m, 3)
720 IF h > 0 OR u > 0 THEN GOTO 750 ELSE GOTO 73

750 LOCATE 15, 15: PRINT " W I N ! "