Нужна помощь срочно! QBasic
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Нужна помощь срочно! QBasic - 2006-11-25 18:37:54.043333
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
Народ выручайте, у меня завал по нему , нужно задачу решить в понедельник здать иначе отчислят… помогите а? вообщем вот условия задачи
Проверить принадлежит ли точка (1,5;2) закрашеной области
y=3
y=x^3 гипербола
вот такую прогу нужно сделать в q бейсике, а я не знаю как геперболу там задать даже… помогите кто нибудь SOS SOS SOS
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-26 10:54:26.120000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: j4gu4r
y=x^3 гипербола
между прочим, это не гипербола.
ты сначала на бумажке попробуй решить задачу, а потом за программу берись.
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-26 11:36:05.606666
|
|
|
-=lebed=-
Сообщений: 1511
Оценки: 0
Присоединился: 2006-04-17 14:25:19
|
quote:
ORIGINAL: j4gu4r
Народ выручайте, у меня завал по нему , нужно задачу решить в понедельник здать иначе отчислят… помогите а? вообщем вот условия задачи
Проверить принадлежит ли точка (1,5;2) закрашеной области
y=3
y=x^3 гипербола
вот такую прогу нужно сделать в q бейсике, а я не знаю как геперболу там задать даже… помогите кто нибудь SOS SOS SOS
5 PLOT (1,5;2)
10 FOR X=-10 to 10 STEP 0,5
20 Y=X^3
30 PLOT (X;Y)
40 NEXT X
Рисуй график этим кодом, и смотри…
Хочешь закрасить тогда
35 PLOT (X;3)
36 LINE (X;Y)-(X;3)
Если увидишь точку отдельно значит не принадлежит, если не увидишь значит принадлежит…
P.S. точка (1,5;2) Y=1,5^3=3,375 - не принадлежит ИМХО не принадлежит
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-26 18:12:39.170000
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
Thank you very VERY MUCH!!!!!!!!!!!!!!!!!!!!!!!!!! не забуду
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-27 18:48:01.386666
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
Блин все равно не получается… задача глюкнутая какая о получается
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-27 20:56:37.560000
|
|
|
-=lebed=-
Сообщений: 1511
Оценки: 0
Присоединился: 2006-04-17 14:25:19
|
quote:
ORIGINAL: j4gu4r
Блин все равно не получается… задача глюкнутая какая о получается
Это же система двух кривых (кстати одна из них прямая параллельная оси х) ну и чего тут сложного?
Область то закрасил на экране? Красиво получилось? Осталось только точку нарисовать и выяснить попадает ли она внутрь закрашенной области или нет. А Снайч как ты думаешь? Попадает?
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-28 00:28:00.233333
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
Ужос ! Люди ! Вешайтесь ! Что за ужос на форуме ? Если каждый 2-ешник, будет обращаться с такими задачами, темболее на ВАСИКЕ, то что будет с контингеном…
З.Ы. Сори за офтоп…
З.З.Ы. Всётаки пожалею и расскажу алгоритм ) Прогу за тя писать небуду !
организуеш ввод с клавы 2-х переменных х и у;
и тут мой генератор алгоритмов повис… патамушо ниправильное задание !
ищем почему… а потомушо во первых у=х в степени н это парабола… и х должон быть чОтным !!!!!!!
иначе никакой замкнутой области небудит… предположим что афтар этой задачи - обкуренный препад и ты учишся в ПТУ…
тогда имеем вместо "y=x^3 гипербола" формулу y=x^2 парабола…
думаем башкой и продожаем алгоритьм:
если введённое с клавы число У меньше (потомучто эта парабола смотрит уверх) 3, то продолжаем выполнять алгоритьм, иначе идём на канец и говорим что не лижыт;
затем введённые х и у подставим в уравнение кривой y=x^2, и если у>x^2 то эта введёная точка (её координаты) лижыт в области;
ну ребят… больше ничем помоч немогу, кончается фантазия… Извиняюсь за ошибки, допускал специально чтоб дать понять как это дыбильно…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-28 00:33:42.106666
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
а глюк в той проге - отрицательные координаты…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-28 02:18:48.576666
|
|
|
-=lebed=-
Сообщений: 1511
Оценки: 0
Присоединился: 2006-04-17 14:25:19
|
quote:
ORIGINAL: T
а глюк в той проге - отрицательные координаты…
добавь константы смещения в зависимости от разрешения, например + 320 к оси Х +240 к оси Y
ПАДСТУЛОМ!:D
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-28 22:10:52.296666
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
и болше нечего добавить ? А ведь я так тарался (… АФТАР ты де !?!?!? Написал прогу ??????
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-30 18:29:45.330000
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
написал написал с горем пополам, а то что отриуательные это фигня, все получилось и точка принадлежит! тут дело теперь в другом, еще задача есть сыть ее такая: Из файла 1.txt вывести в файл 2.txt символы, являющиеся буквами английского алфавита (количество символов в файле заранее неопределенно). короче все сделал вот ока не получается почему то такая хрень, не записывает он в второй txt буквы, массив какого типа нужно задавать? DIM (A-Z) AS STRING такой? и опероторы проверки условия тоже что то не то сделал, может подскажет кто? буду очень благодарен:)
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-11-30 22:49:13.030000
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
выложи код… погорим.
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-01 08:17:05.670000
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
вот тока в этом варианте ось одна не прощитана кажется точно не помню я уже другими озадачен
10 SCREEN 12
20 FOR i = -4 TO 4 STEP .01
30 x = i * 200 / 8
40 x = 100 - x
50 y = i ^ 3
60 y = y * 400 / 128
70 y = 200 + y
80 PSET (x, y), 3
90 NEXT i
100 y = 200 - 32 * 400 / 128
110 LINE (0, y)-(200, y), 3
120 x = 100 + (-1) * 200 / 8
130 LINE (x, 0)-(x, 400), 3
140 x = 100 + 1 * 200 / 8
150 y = 200 - 28 * 400 / 128
160 PAINT (x, y), 3
390 LINE (0, 200)-(200, 200), 15
410 LINE (190, 190)-(200, 200), 15
420 LINE (190, 210)-(200, 200), 15
450 LINE (100, 0)-(100, 400), 15
470 LINE (90, 10)-(100, 0), 15
480 LINE (110, 10)-(100, 0), 15
490 LOCATE 14, 12: PRINT "0"
500 LOCATE 14, 23: PRINT "x"
510 LOCATE 2, 12: PRINT "y"
520 LOCATE 2, 26: PRINT "y=x^3"
530 LOCATE 6, 2: PRINT "y=32"
540 LOCATE 20, 6: PRINT "x=-1"
560 x = 100 + 1 * 200 / 8
570 y = 200 - 28 * 400 / 128
580 CIRCLE (x, y), 2, 15
590 PAINT (x, y), 15
600 LOCATE 9, 14: PRINT "(1;28)"
610 LOCATE 9, 35: PRINT "GRAFICHESKOE RESHENIE SISTEMI:"
620 LOCATE 10, 42: PRINT "/"
630 LOCATE 11, 41: PRINT "| y<=32"
640 LOCATE 12, 40: PRINT "/"
650 LOCATE 13, 39: PRINT "- x=>-1"
660 LOCATE 14, 40: PRINT "\"
670 LOCATE 15, 41: PRINT "| y>=x^3"
680 LOCATE 16, 42: PRINT "\"
690 END
тока понять не могу нафиг он тебе нужен то?
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-01 08:20:24.516666
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
а блин Sorry затупил я гиперболу выкинул, вот вообщем на ту задачу с буквами код который смог, блян кодировка в блокноте не та получается вообщем попозже чуть выкину
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-01 15:27:33.186666
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
отож… давай кидай )
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-04 16:37:53.423333
|
|
|
Jedies
Сообщений: 2
Оценки: 0
Присоединился: 2006-12-04 16:35:31.110000
|
Здраствуйте все!
Выручайте люди вот задачку над решить очень
сочетание цикла и ветвление.
Даны натуральные числа n действительные числа x1 … xn все члены меньше двух, заменить нулями кроме того получить сумму членов принадлежащих отрезку (3 ;7 ) а также чисто таких членов
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-04 17:24:33
|
|
|
-=lebed=-
Сообщений: 1511
Оценки: 0
Присоединился: 2006-04-17 14:25:19
|
Сами думать не хотим,
Мы на Ксакепе тусим!
Пусть задачки нам решают
Думать лень, никто не знает?!
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-04 19:18:01.216666
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: Jedies
Здраствуйте все!
Выручайте люди вот задачку над решить очень
сочетание цикла и ветвление.
Даны натуральные числа n действительные числа x1 … xn все члены меньше двух, заменить нулями кроме того получить сумму членов принадлежащих отрезку (3 ;7 ) а также чисто таких членов
5wmz… хотя нет, пупкин всё равно цену собъёт, так что 4wmz
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-04 19:49:07.513333
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
Отыменно… за что тебя выручать ? Эт даже не комунизьм… Пришол, ничё не дал, и получил…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-04 21:23:16.263333
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: T
Отыменно… за что тебя выручать ? Эт даже не комунизьм…
в коммунизме, между прочим, тоже тунеядцев гоняли метлой ;)
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-05 00:05:37.593333
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
отож… жаль что тут метла - только пупкин :D
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-05 16:55:19.700000
|
|
|
Jedies
Сообщений: 2
Оценки: 0
Присоединился: 2006-12-04 16:35:31.110000
|
да не, в другом проблема, я б решил еслиб мы это изучали, просто девушка мне понравилась, договорились с ней на свиданку еси задачку решу)) помогите плиз :D
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-05 17:25:23.436666
|
|
|
-=lebed=-
Сообщений: 1511
Оценки: 0
Присоединился: 2006-04-17 14:25:19
|
quote:
ORIGINAL: Jedies
да не, в другом проблема, я б решил еслиб мы это изучали, просто девушка мне понравилась, договорились с ней на свиданку еси задачку решу)) помогите плиз :D
А когда договоришся на ибалку и она за это попросит ещё чё-нибудь решить снова на Ксакеп поёдёшь? ИМХО эта девушка не для тебя… или учи то что и она…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-05 18:16:49.330000
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
ну по этому видно для чего ты ей нужен ! Чтоб задачки решать посылай её нах !
З.Ы. Моя никогда не напрягает по такому поводу ) я сам помогаю )… а чтоб такие условия ставить… так то ваще…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-05 22:09:23.166666
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: Jedies
да не, в другом проблема, я б решил еслиб мы это изучали, просто девушка мне понравилась, договорились с ней на свиданку еси задачку решу)) помогите плиз :D
гыгы. трогательная история. когда мне приспичило вычислить окошко девушки по фотографии на которой из её окна (как я предполагал) была видна стенка дома с тенью от солнца, я не поленился изучить астрономию в достаточной мере, чтобы посчитать возможна-ль такая тень именно на той стенке которая была основной кандидатурой на роль вида из окна моей девушки. даже компас купил чтоб точно направление стенки вымерять. я сам себе моск ломал об геометрию высчитывая все углы, после сбора всех необходимых данных: направление стенки, угол наклона земной оси к плоскости эклиптики, широту питера и ширину карниза, который должен был эту тень отбрасывать. причём никто и ничего мне не обещал взамен. просто мне было интересно.
так что придумай другую историю, эта не катит.
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-06 03:02:25.366666
|
|
|
xenomorf
Сообщений: 406
Оценки: 0
Присоединился: 2005-05-20 00:34:59
|
Гы… =)
Сразу впомнил рассказ от r0id'а в ][akepе за сентябрь (№93), раздел units…
Называется : gorod xakerov /
P.S. Неужели этот язык до сих пор изучают???
У нас даже в школах, вот уже 5-6 лет как на Pascal все преподы
переквалифицировались… =)
А в универе сразу с C/C++ и ASM начинал…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-06 10:07:22.043333
|
|
|
Pupkin-Zade
Сообщений: 9398
Оценки: 1489
Присоединился: 2004-03-10 13:54:16
|
quote:
ORIGINAL: rgo
гыгы. трогательная история. когда мне приспичило вычислить окошко девушки по фотографии на которой из её окна (как я предполагал) была видна стенка дома с тенью от солнца, я не поленился изучить астрономию в достаточной мере, чтобы посчитать возможна-ль такая тень именно на той стенке которая была основной кандидатурой на роль вида из окна моей девушки. даже компас купил чтоб точно направление стенки вымерять. я сам себе моск ломал об геометрию высчитывая все углы, после сбора всех необходимых данных: направление стенки, угол наклона земной оси к плоскости эклиптики, широту питера и ширину карниза, который должен был эту тень отбрасывать. причём никто и ничего мне не обещал взамен. просто мне было интересно.
так что придумай другую историю, эта не катит.
Еще больше зауважал ;)
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-07 07:39:58.546666
|
|
|
xenomorf
Сообщений: 406
Оценки: 0
Присоединился: 2005-05-20 00:34:59
|
quote:
гыгы. трогательная история. когда мне приспичило вычислить окошко девушки по фотографии на которой из её окна (как я предполагал) была видна стенка дома с тенью от солнца, я не поленился изучить астрономию в достаточной мере, чтобы посчитать возможна-ль такая тень именно на той стенке которая была основной кандидатурой на роль вида из окна моей девушки. даже компас купил чтоб точно направление стенки вымерять. я сам себе моск ломал об геометрию высчитывая все углы, после сбора всех необходимых данных: направление стенки, угол наклона земной оси к плоскости эклиптики, широту питера и ширину карниза, который должен был эту тень отбрасывать. причём никто и ничего мне не обещал взамен. просто мне было интересно.
так что придумай другую историю, эта не катит.
Хм… Я так (!)почти, каждую проблему решаю…
Долго! Геморно! Но зато, меня врядли кто здесь поймёт, какой кайф
испытываешь от того что ты это САМ сделал!!! Даже с
обкурко-алко-нарко-эйфорией и рядом не стояло! Это гораздо круче - когда сам
до этого допёр! =)
А ещё огромный опыт и знания получил!
Молодец чел!
Огромный RESPEKT тебе!!!
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-09 18:41:06.530000
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
Здрасте всем, вот вообщем у меня задачка есть, почти написал только вот что то упустил, может ткнете пальцем на ошибку, вот у словия и код:
Из файла 1.txt вывести в файл 2.txt символы, являющиеся буквами английского алфавита (количество символов в файле заранее неопределенно).
10 cls
20 open “1.txt” for input as #1
30 open “2.txt” for output as #2
40 do until eof(1)
50 input #1, x$
60 if x = (a-z) then print #2, x$
70 loop
80 close #1
90 close #2
100 end
заранее спасибо:)
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-09 19:41:59.640000
|
|
|
TheFeaR
Сообщений: 1923
Оценки: 0
Присоединился: 2006-01-25 18:16:33
|
quote:
ORIGINAL: j4gu4r
60 if x = (a-z) then print #2, x$
я бэйсик уже забыл ( и слава богу) что ты тут пытаешься сделать? присвоить или сравнить?
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-09 19:50:16.920000
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
[left]ну мне нужна из 1 txt переписать все английские буквы в 2 txt, но чтобы не переписывал цифры и другие символы, вот это не получается, он видит что есть что то английское и переписывает все подрят[/left]
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-10 00:44:20.436666
|
|
|
T
Сообщений: 1100
Оценки: 0
Присоединился: 2006-01-14 00:15:36
|
кароче !!!!!!! там есть функция возврата кода символа ! ЦэАшЭр вроде, вот смари какие коды англ букв, п кодам и проверяй…
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-10 00:58:07.860000
|
|
|
__alex__
Сообщений: 85
Оценки: 0
Присоединился: 2005-02-19 16:52:10
|
Мдяяя….. if x = (a-z) then print #2, x$ говоришь?)))))) ищи здесь проблему. По-моему, в Бейсике есть оператор такой, иль функция MID$ Без неё тут никак!
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-10 07:59:29.483333
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
да я уже понял что там прблема, но ккая, точно чего то не хватает а вот чего понять не могу… может есть еще какие мысли?
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-12 19:17:04.500000
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
народ ну не поверю что никто не знает где ошибка… ну Вам ведб не долго посмотрите а?
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-12 21:29:39.376666
|
|
|
kogemrka
Сообщений: 89
Оценки: 0
Присоединился: 2006-12-06 21:03:36.250000
|
if x = (a-z) - такая конструкция невозможна.
Бери из таблицы ascii символов коды английского алфавита (самый нижний и самый вверхний), самому мне искать лень.
не вникал в текст вышеперечисленных прог, но показыва. как надо делать.
делаешь цикл, в котором нужно перебирать все символы из строки, затем проверяшь.
if ASC(MID$(строка, номер символа, 1)) >= нижняя граница англ. алфавита and ASC(MID$(строка, номер символа, 1)) <= верхняя граница англ. алфавита then выводим символ.
Если что непонятно, пиши, я по qbasic`у более менее понимаю, ибо хоть на практике не использую, на всех олимпиадах пишу на нём.
Вообще - пиши на icq 274290875 или на kogemrka@gmail.com я за символическую сумму (1 wmz и меньше, или кружка пива, или как договоримся, или вообще бесплатно.) решу часть твоих задач (в которых разберусь)
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-12 21:31:56.173333
|
|
|
kogemrka
Сообщений: 89
Оценки: 0
Присоединился: 2006-12-06 21:03:36.250000
|
Щас решение твоей задачи выложить не смогу, ибо спать хочу и котелок не варит, завтра отпишусь.
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-13 18:37:23.296666
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
я тебе в аську стукнул
|
|
|
|
|
RE: Нужна помощь срочно! QBasic - 2006-12-13 19:46:38.283333
|
|
|
j4gu4r
Сообщений: 77
Оценки: 0
Присоединился: 2005-08-31 18:22:16
|
Вот код
DECLARE SUB day ()
DECLARE SUB time ()
DECLARE SUB money ()
10 TYPE jd
name AS STRING * 11
day AS STRING * 15
time AS STRING * 5
money AS SINGLE
END TYPE
20 DIM SHARED town(10) AS jd
30 OPEN "2.txt" FOR INPUT AS #1
40 FOR i = 1 TO 3
50 INPUT #1, town (i).name, town (i). day, town (i). time, town (i).money
60 NEXT i
70 DIM m$(10)
80 CLS
90 m$(1) = "день недели"
100 m$(2) = "время отправления"
110 m$(3) = "стоимость билета"
120 m$(4) = "выход"
130 k = 4
140 x0 = 30
150 y0 = 11
160 np = 1
170 WHILE 1 = 1
180 FOR i = 1 TO k
190 LOCATE (i + y0 - 1), x0: PRINT m$(i)
200 NEXT i
210 WHILE 2 = 2
220 COLOR 0, 7
230 LOCATE (y0 + np - 1), x0: PRINT m$(np)
240 a$ = INKEY$
250 IF a$ = "" THEN GOTO 230
260 COLOR 7, 0
270 LOCATE (y0 + np - 1), x0: PRINT m$(np)
280 c1$ = MID$(a$, 1, 1)
290 c2$ = MID$(a$, 2, 1)
300 c0$ = CHR$(0)
310 IF c1$ = c0$ AND c2$ = "H" AND np > 1 THEN np = np - 1
320 IF c1$ = c0$ AND c2$ = "P" THEN np = np + 1
330 IF a$ = CHR$(13) THEN GOTO 350
340 IF np > k THEN np = 1
350 WEND
360 CLS
370 IF np = 1 THEN CALL day
380 IF np = 2 THEN CALL time
390 IF np = 3 THEN CALL money
400 IF np = 4 THEN GOTO 760
410 CLS
420 WEND
430 SUB day
440 LOCATE 10, 11: PRINT "№/п"
450 LOCATE 10, 20: PRINT "город"
460 LOCATE 10, 40: PRINT "день недели"
470 FOR i = 1 TO 3
480 LOCATE 11 + i, 11: PRINT i
490 LOCATE 11 + i, 20: PRINT town (i).name
500 LOCATE 11 + i, 40: PRINT town (i).day
510 NEXT i
520 LOCATE 2, 1: PRINT "нажмите любую клавишу": SLEEP 0
530 END SUB
540 SUB money
550 LOCATE 10, 11: PRINT "№/п"
560 LOCATE 10, 20: PRINT "город"
570 LOCATE 10, 40: PRINT "стоимость билета"
580 FOR i = 1 TO 4
590 LOCATE 11 + i, 11: PRINT i
600 LOCATE 11 + i, 20: PRINT town (i).name
610 LOCATE 11 + i, 40: PRINT town (i).money
620 NEXT i
630 LOCATE 2, 1: PRINT "нажмите любую клавишу": SLEEP 0
640 END SUB
650 SUB time
660 LOCATE 10, 11: PRINT "№/п"
670 LOCATE 10, 20: PRINT "город"
680 LOCATE 10, 40: PRINT "время отправления"
690 FOR i = 1 TO 4
700 LOCATE 11 + i, 11: PRINT i
710 LOCATE 11 + i, 20: PRINT town (i).name
720 LOCATE 11 + i, 40: PRINT town (i).place
730 NEXT i
740 LOCATE 2, 1: PRINT "нажмите любую клавишу": SLEEP 0
750 END SUB
760 END
|
|
|
|
|
|
