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

Карталинское Веб Общение
Текущее время: 29 мар 2024, 03:33


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




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

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Жаль на работе, и не могу проверить правильность своей идеи. Оператор GOTO заменить циклом DO LOOP UNTIL
PRINT " 1 uroven, ugadaite chislo ot 1 do 10"
RANDOMIZE TIMER
d = FIX(RND * 10)
PRINT d
DO
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"
LOOP UNTIL c = d

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


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

Сообщения: 16532
Откуда: Карталы
Благодарил (а): 391 раз.
Поблагодарили: 864 раз.
Пол: Муж
Редиска то видимо тот же REPEAT по бейсиковски. Немного бы исправил.

PRINT " 1 uroven, ugadaite chislo ot 1 do 10"
RANDOMIZE TIMER
d = FIX(RND * 10)
PRINT d
DO
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
c = a + b
IF c > d THEN PRINT "menshe"
IF c < d THEN PRINT "bolshe"
LOOP UNTIL c = d
PRINT "verno"

Зачем лишние условия.


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

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Ясно, спасибо большое. Просто я информацию про REPERAT понятную мне не нашел, а нашел DO LOOP UNTIL его и решил использовать. Осталось разобраться как сделать так чтобы программа можно было завершить в любой момент введя в переменную какое либо значение. Думаю использовать IF THEN ELSE и END

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Редиска
Цикл Do...Until выполняется до тех пор пока выражение ложно, то есть оно уже должно содержать условие, а в это условие достаточно добавить условие используя оператор OR проверку какой нибудь переменной, но придётся её указывать.

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


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

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Amigo Вот это условие разве не подходит LOOP UNTIL c = d ? Загадывается число d и если c = d то цикл должен завершиться

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


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

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Сделал чтобы игра закрывалась раньше своего окончания при вводе "666".
Как сделать чтобы вводить можно было не число, а слово, и программа закрывалась, пытался в этой строке
INPUT "vvedite 1 chislo ", a
сделать INPUT "vvedite 1 chislo ", (a) OR (a$)
Или пробовал сделать чтобы a = a$
все время выдает ошибку.

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


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

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
Также хочется чтобы после ввода "666" выводилась надпись PRINT "Spasibo za vnimanie"

PRINT " 1 uroven, ugadaite chislo ot 1 do 10"
RANDOMIZE TIMER
d = FIX(RND * 10)
PRINT d
DO
INPUT "vvedite 1 chislo ", a
IF a = 666 THEN END
IF a = 666 THEN PRINT "Spasibo za vnimanie"
INPUT "vvedite 2 chislo ", b
IF b = 666 THEN END
IF b = 666 THEN PRINT "Spasibo za vnimanie"
c = a + b
IF c > d THEN PRINT "menshe"
IF c < d THEN PRINT "bolshe"
LOOP UNTIL c = d
PRINT "verno"

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


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

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

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Редиска
Тебе это по учёбе нужно? Если нет, то пробуй на автоите, могу на все вопросы ответить, а тут мне тоже поднимать литературу надо. Я же не знаю как там переменные указываются, нужно ли указывать тип, а учить лень. Я лучше питон поучу, там хотя бы на любой OS работает или дельфи...

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


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

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

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Редиска
Качай автоит. Вот к нему обновлённая справка

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


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

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

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Вобщем то можешь и на работе попробовать, версия почти портабельная. Регистрация удаляется reg-файлом в комплекте. Можно даже не регистрировать в контекстное меню, но тогда файл-скрипт придётся кидать на интерпретатор вручную.
Переменные могут содержать любой тип данных, смотри тему

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


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

Сообщения: 1160
Откуда: Оттуда
Благодарил (а): 31 раз.
Поблагодарили: 14 раз.
Пол: Муж
[quote="Редиска"]Также хочется чтобы после ввода "666" выводилась надпись PRINT "Spasibo za vnimanie"quote]
Нашел решение проблеммы сделал вместо
IF a = 666 THEN END
IF a = 666 THEN PRINT "Spasibo za vnimanie"
вот так
IF a = 666 THEN PRINT "Spasibo za vnimanie": END
Вроде работает

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
У тебя как я понимаю всё делается в консоли, я не любитель консоли, мне больше нравится gui с поддержкой ком-строки.

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


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

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


Вложения:
Комментарий к файлу: Игра больше меньше
FDF.txt [4.25 КБ]
Скачиваний: 287

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

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

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

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Редиска
На автоите это код выглядел бы так
Цитата:
If $a = 666 Then
MsgBox(0, 'Сообщение', 'Спасибо за внимание')
Exit
EndIf


Цитата:
Вот это для меня несовсем понятные слова.

консоль это чёрное окно с буквами (как bat-файл), а gui это обычное окно любой программы, например ACDSee или Nero. Переводится как графический интерфейс. А консоль - текстовая командная строка. Редактируется конечно же в блокноте, но не в виндовом, а к примеру в Notepad++ или SciTE с поддержкой подцветки, которая помогает воспринимать код.

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


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

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Скачай утильку отсюда, и можешь попробовать скрипты-примеры в действии.

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


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

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


Вложения:
IGRA.txt [5.14 КБ]
Скачиваний: 226

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


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


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

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


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

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