Карталинский форум

Карталинское Веб Общение
Текущее время: 28 мар 2024, 15:36


Часовой пояс: UTC + 5 часов [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 47 ]  На страницу 1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 04 июн 2011, 10:48 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Суть дела в следующем. Прохожу видеоурок в котором показывается как выводится случайное число от 0 до 100 в компиляторе QuickBASIC. На видеоуроке пишется программа
cls
randomize timer
print fix<rnd * 100>
Я же каждый знак переписываю в свой компилятор (взятый с этого же обучающего диска), и в результате у меня выдает ошибку. В чем может быть проблемма?

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 04 июн 2011, 10:50 
Не в сети
Пьянь
Пьянь
Аватара пользователя

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Ошибка то как звучит?
<rnd * 100> Вот это пробовал писать как (rnd * 100)? Хотя в этой компиляторе ни разу не работал, но ошибку выложи, попробуем разобраться.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 04 июн 2011, 10:57 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Выделяется часть кода - <rn И ошибка - ожидается: <
При замене угловых скобок на круглые все работает нормально. У меня была еще одна подобная ошибка с угловыми скобками, при замене на круглые все работает нормально. Если есть возможность скажите в двух словах из-за чего так получается?

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 04 июн 2011, 11:04 
Не в сети
Пьянь
Пьянь
Аватара пользователя

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Редиска писал(а):
При замене угловых скобок на круглые все работает нормально. У меня была еще одна подобная ошибка с угловыми скобками, при замене на круглые все работает нормально. Если есть возможность скажите в двух словах из-за чего так получается?

Это не угловые скобки, это знаки больше и меньше. Т.е. по сути в этом примере ты сравниваешь функцию с ее данными а потом вообще оставляешь не обозначив значения.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 04 июн 2011, 11:07 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Теперь ясно видимо в видео не очень качественно, или еще почему то, прорисовали скобки. Flat большое спасибо за помощь. Тему пока не закрывайте, так как еще кучу вопросов буду задавать.

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 15:55 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Вроде типа калькулятор. Можно его сократить в QBasic?

input "vvedite pervoe chislo ", a
input "vvedite vtoroe chislo ", b
c = a + b
print "1 chislo + 2 chislo ", c
input "umnozhaem poluchennoe chislo na vashe chislo ", d
e = c * d
print e

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 17:20 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
CLS
e1:
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
c = a + b
IF c = 5 THEN PRINT "hello"
IF c > 5 THEN PRINT "erorr"
IF c < 5 THEN PRINT "erorr"
IF c > 5 THEN GOTO e1
IF c < 5 THEN GOTO e1
Как сделать чтобы тут "с" не равнялась 5, а рандомно( постоянно ), менялась?

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 17:35 
Не в сети
Пьянь
Пьянь
Аватара пользователя

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Редиска в паскал функция RANDOM есть. c=random(100) но хз как у тебя.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 18:18 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Редиска
даже не зная языка, у тебя смысл такой
1. указывается метка e1: к которой происходит возврат при ошибки судя по условию последних 4-х строк
2. Вводятся данные а и б и складываются, в переменную с, которая проверяется, и только при 5 вывод хэлоу и выход, иначе еррор и возврат к метке e1:
в автоите тоже c=random(100), смотри в справке функции и параметры.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 18:20 
Не в сети
Пьянь
Пьянь
Аватара пользователя

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Amigo писал(а):
Редиска
даже не зная языка, у тебя смысл такой
1. указывается метка e1: к которой происходит возврат при ошибки судя по условию последних 4-х строк
2. Вводятся данные а и б и складываются, в переменную с, которая проверяется, и только при 5 вывод хэлоу и выход, иначе еррор и возврат к метке e1:
в автоите тоже c=random(100), смотри в справке функции и параметры.

:ROFL: вот я тупанул, вопроса не понял :D


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 21:34 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Flat Amigo это я неправильно сформулировал вопрос. Спасибо за подсказку оператора. Буду пробовать.

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 22:11 
Не в сети
Администратор
Администратор
Аватара пользователя

Сообщения: 5093
Откуда: Карталинец
Благодарил (а): 99 раз.
Поблагодарили: 151 раз.
Пол: Муж
выход с проги будет при c=5

_________________
ИзображениеС уважением Evgmed!
ИзображениеИзображение
Изображение

Skype: kartaly.ru


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 28 июл 2011, 23:46 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Я хочу сделать нечто типа игры больше меньше, но пока что сображалки хватает только на это, буду дальше пытаться приблизится к желаемому.

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 00:14 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Вроде бы получилось

CLS
e1:
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
c = a + b
RANDOMIZE TIMER
d = FIX(RND * 100)
PRINT d
IF c = d THEN PRINT "hello"
IF c > d THEN PRINT "erorr"
IF c < d THEN PRINT "erorr"
IF c > d THEN GOTO e1
IF c < d THEN GOTO e1

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 00:17 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Это более простой вариант, когда ответ знаешь заранее

CLS
e1:
RANDOMIZE TIMER
d = FIX(RND * 100)
PRINT d
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
c = a + b
IF c = d THEN PRINT "hello"
IF c > d THEN PRINT "erorr"
IF c < d THEN PRINT "erorr"
IF c > d THEN GOTO e1
IF c < d THEN GOTO e1

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 06:29 
Не в сети
Пьянь
Пьянь
Аватара пользователя

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Редиска писал(а):
IF c > d THEN PRINT "erorr"
IF c < d THEN PRINT "erorr"

Вот такая запись не проканает?
IF (c < d) OR (c > d) THEN PRINT "erorr"

А вместо GOTO лучше использовать цикл, на пример REPEAT, удобнее.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 10:17 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
IF (c < d) OR (c > d) THEN PRINT "erorr" про этот вариант я как-то забыл.
А про цикл REPEAT плохо знаю, поэтому сделал как могу. Но все равно большое спасибо. Сейчас внесу еще пару изменений и возьмусь за REPEAT

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 14:04 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Сделал больше похоже на игру. Состоит теперь из 10 уровней, вот приветсвие и 1 уровень.

CLS
PRINT "Zdravstvuite, vas privetstvuet igra ;Bolshe, menshe; . Programma zagadaet chislo, a vam neobhodimo ego ugadat. Vi vvodite 2 chisla, programma ih skladivaet i esli vi ugadali, to vi pereidete na sleduyshii uroven. Esli summa vashih chisel budet bolshe ili menshe zagadannogo, to programma vam ob etom soobshit i vam budet neobhodimo zanovo vvesti 2 chisla. Priyatnoi igri"
m1:
PRINT " 1 uroven, ugadaite chislo ot 1 do 10"
RANDOMIZE TIMER
d = FIX(RND * 10)
PRINT d
e1:
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
c = a + b
IF c = d THEN PRINT "verno"
IF c > d THEN PRINT "menshe"
IF c < d THEN PRINT "bolshe"
IF (c > d) OR (c < d) THEN GOTO e1
IF c = d THEN GOTO f1
f1:
PRINT " 2 uroven, ugadaite chislo ot 1 do 20"

В прикрепленном файле полностью вся программа. Вариант еще не окончательный, хочу добавить еще пару моментов.


Вложения:
Комментарий к файлу: Здесь полная версия игры. Все 10 уровней.
FDF.txt [3.62 КБ]
Скачиваний: 279

_________________
Все имеет конец. И это пройдет!
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 14:55 
Не в сети
Пьянь
Пьянь
Аватара пользователя

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Редиска писал(а):
IF c = d THEN GOTO f1
f1:


Эти строки можно просто убрать и будет так же. Они лишние.
А еще я не очень понимаю зачем складывать два числа. Если ты просишь угадать число, то его и спрашивай. Т.е. типо такого.

CLS
PRINT "Zdravstvuite, vas privetstvuet igra ;Bolshe, menshe; . Programma zagadaet chislo, a vam neobhodimo ego ugadat. Vi vvodite 2 chisla, programma ih skladivaet i esli vi ugadali, to vi pereidete na sleduyshii uroven. Esli summa vashih chisel budet bolshe ili menshe zagadannogo, to programma vam ob etom soobshit i vam budet neobhodimo zanovo vvesti 2 chisla. Priyatnoi igri"
PRINT " 1 uroven, ugadaite chislo ot 1 do 10"
RANDOMIZE TIMER
d = FIX(RND * 10)
PRINT d
e1:
INPUT "vvedite chislo ", c
IF c = d THEN PRINT "verno"
IF c > d THEN PRINT "menshe"
IF c < d THEN PRINT "bolshe"
IF (c > d) OR (c < d) THEN GOTO e1
PRINT " 2 uroven, ugadaite chislo ot 1 do 20"

m1: Вообще не используется, убрать.
Ну и GOTO, не тот то оператор, который стоит использовать, я б его из программы обучения даже исключил, используй циклы, хоть FOR, но циклы.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Непонятная ошибка.
Непрочитанное сообщениеДобавлено: 29 июл 2011, 15:07 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Flat GOTO использую пока что незнаю циклы. Два числа складываю т.к. начинал с этого и считаю это типа фишкой программы. Строки IF c = d THEN GOTO f1
f1:
Действительно оказалось что они лишние, спасибо за подсказку.
m1: используется, в самом конце, когда пройден 10 уровень, программа предлагает начать заново

PRINT " 10 uroven, ugadaite chislo ot 1 do 100"
RANDOMIZE TIMER
d = FIX(RND * 100)
PRINT d
h1:
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
c = a + b
IF c = d THEN PRINT "verno"
IF c > d THEN PRINT "menshe"
IF c < d THEN PRINT "bolshe"
IF (c > d) OR (c < d) THEN GOTO h1
IF c = d THEN INPUT "Pozdravlyay vi proshli vsy igru. Esli hotite nachat zanovo, to nazhmite 1. ", z
IF z = 1 THEN GOTO m1

Спасибо большое за подсказки. Сейчас хочу реализовать возможность прекращения программы до ее окончания с помощью оператора END Затем возьмусь за циклы

_________________
Все имеет конец. И это пройдет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 47 ]  На страницу 1, 2, 3  След.   | Активные темы |  


Часовой пояс: UTC + 5 часов [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © phpBB Group
ѥ골񦲳񲯢 ԰᪗eb