Помогите составить программу для QBasic!!

Question

Помогите составить программу для QBasic!!

люба Хомутова Ученик (144), закрыт 6 лет назад

Компьютер загадывает число от 1 до 10. Человек должен угадать с 3 раз. Если угощал то пишется сообщение " Вы победили", если нет, то пишется сообщение " заданное число меньше" или наоборот " заданное число больше".

Answer 1

на qbasic сложно, ща попробовал заморочиться не получается сходу...

1. функция RND, присваиваем массив от 1 до 10
2. несколько переменных. Чтото мы получили. Х, допустим.
3. Допустим Х=3.
4. Попытка .. INPUT X;
5. вводим 6, в переменную X, а в переменную Y добавляем 1, где ...дальше можно на ассемблере

al, ah, там cmp, счетчик в cx, на асме вообще сполпинка написать

Answer 2

for i=1 to 3
input a
if z=a then
print "Угадали"
else
if z<a then
print "Меньше"
else "Больше"
endif
endif
next

Answer 3

RANDOMIZE TIMER
x = INT(10 * RND) + 1
PRINT "Угадай число с 3 попыток"
FOR i = 1 TO 3
PRINT i; "-я попытка ."
INPUT y
IF x = y THEN PRINT "Вы победили!": EXIT FOR
IF x > y THEN PRINT "Заданное число больше."
IF x < y THEN PRINT "Заданное число меньше"
NEXT i
IF x <> y THEN PRINT "Не угадал."
PRINT "Мое число"; x