0 
0 
#1
09.02.2002 13:38
0 #1- ZyXEL
- Участник
- Откуда: Moscow, Russia
- Зарегистрирован: 23.06.2001
- Сообщений: 194
-------
Нужен QBASIC
Возникла у меня одна просьба: у кого-нибудь есть QBASIC 4.5 или QBASIC 7.1 (неважно, русский или анг.)?
Просто у меня они есть, но в 4.5 в окне пользователя не печатается русская буква "р", а в 7.1 всё работает, но недостёт каких-то файлов для создания *.exe
У кого есть - напишите, а у кого нет - посоветуйте :-)
Неактивен
0 0 #2
06.06.2006 01:03
0 #2- nake
- Участник
- Зарегистрирован: 04.06.2006
- Сообщений: 2
Re: Нужен QBASIC
Здравствуйте! 
Вот в этом коде надо исправить 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
Неактивен
0 0 #3
07.06.2006 11:43
0 #3- nake
- Участник
- Зарегистрирован: 04.06.2006
- Сообщений: 2
Re: Нужен QBASIC
Уже не надо!
REM 9
Y = 50
FOR X = 0 TO 320 STEP 1
LINE (X, Y)-(X + 50, Y - 50), 2
FOR T = 1 TO 10000
NEXT T
LINE (X, Y)-(X + 50, Y - 50), 0
Y = Y + .625
NEXT X
Неактивен