"Учебник QBasic"
Шрифт:
CASE 2
PRINT "СЮРПРИЗ!!!!!!!!"
PRINT "Вы были удивленны!!! А?"
END
CASE ELSE 'обратите сюда внимание
PRINT "Почему вы выбрали 1 а не 2?" 'команда, которая позволяет вам END
END SELECT'
Все, что вы должны сделать для работы программы - выбрать один из 2-ух разделов переменной "chc". Когда вы выберите раздел, ваша программа будет выполнятся. Если же вы не выбираете, то программа стоит на месте. Интересное место программы там, где я использовал оператор CASE ELSE. Например, если вы не выбрали 1 то этот оператор позволяет выполнять программу под остальными цифрами т.е. в нашем случае под цифрой 2. Выбор должен обязательно начинаться с оператора CASE SELCET а заканчиваться оператором END SELECT.
Изучим следующий полезный пункт - как делать случайные числа в QBASIC.
Очень простой способ сделать это, можно сделать с помощью команд LET, INT, и RND.
Имеется простой пример этого:
x = INT (RND * 10) + 1
Это бы присвоило переменной "x" между число 1 и 10. Получить номер
Между 0 и 10, а не 1 и 10 можно избавившись " + 1 " в конце строки. Это все, что вы должны знать, чтобы сделать генерацию случайных чисел:
INT – округляет дробное число до целого.
RND – задаёт случайные числа
Теперь, перейдём к командам файла. Это обязательно должно быть изучено! Для открытия файлов используется команда OPEN, чтобы закрыть файл команда CLOSE. Файл должен обязательно закрываться, иначе ваша программа не будет работать! Чтобы открыть файл, используют команду OPEN таким образом:
OPEN "filename.ext" FOR (OUTPUT/INPUT/APPEND) AS #1(or other number)
Открыть "Имяфайла.расширение" для (Ввода/Вывода/Присоединения) Как #1(или другой номер)
Команда OPEN гораздо более сложна чем показано на этом примере, но я попытаюсь всё это объяснить. Есть несколько типов открытия файлов:[OUTPUT/INPUT/APPEND] для Ввода, Вывода и Присоединения. Если вы хотите прочитать из файла, строку или несколько строк, то используйте оператор INPUT. Записывать в файл, вы должны использовать команду OUTPUT. И присоединять к файлу (прибавлять к концу файла), вы должны использовать команду APPEND. Разберём как всё это работает. Допустим, мы открыли наш файл. Теперь, что мы делаем? Вы все еще помните команды PRINT и INPUT, так в зависимости от того, что вы делаете вводите ли вы или выводите. Используют команду PRINT, чтобы печатать и команда INPUT, чтобы читать из файла. Нужно так же задавать номер файла, (например#1).
Есть пример:
OPEN "file.txt" FOR OUTPUT AS #1
PRINT #1, "Привет мир!"
CLOSE
OPEN "file.txt" FOR INPUT AS #1
INPUT #1, s$
PRINT s$
CLOSE
Вы должны использовать LINE INPUT, чтобы читать полную строку в файле. Например:
OPEN "file.txt" FOR INPUT AS #1
LINE INPUT #1, s$
PRINT s$
CLOSE
Это читало бы полную строку из файла в переменную "s$". Только заново
элемент, при использовании OUTPUT, это стирает то, что находится в файле.
Четвертая глава на этом заканчивается. Вот задание:
1.Сделать программу в которой нужно сгенерировать случайное число между 1 и 20. Дать играющему 5 шансов, и после того, как вы ввели число, программа должна сообщать высоко или низко введённое вами число.
2.Сделать программу, которая бы сохраняла высшие результаты в файл.
Замечательного дня!!!! :)))))
Учебники: / QBasic – №01 – Глава 5 /
Глава ПЯТАЯ . Привет ! В этой главе , мы изучим операторы :
WHILE...WEND, Random Access Files, APPEND, GET (file I/O), SUB...END, SUB, PUT(file I/O), FUNCTION...END FUNCTION, LEN, GOSUB...RETURN, TYPE...END, TYPE, DIM SHARED, COMMON SHARED, RTRIM$
Чтож , приступим ! Мы изучим другой метод выполнения цикла, путь прибавления к концу последовательного файла, структурного программирования. Сначала вспомним прошлые способы выполнения цикла. Как вы помните DO...LOOP и FOR...NEXT, а сейчас мы изучим операторы WHILE...WEND. Этот оператор очень похож на цикл DO...UNTIL. Вот как выглядит синтаксис этого цикла: