Решение задач QBasik

Пример 1: Напечатать на экране текст 20 раз.

CLS

FOR X=1 TO 20

PRINT "С Новым Годом!"

NEXT X

Пример 10.2. Найти сумму чисел от 56 до 107.

CLS
FOR Р = 56 ТО 107
S = S + 1
NEXT P
PRINT "S ="; S

Задача 5.2. Напечатайте на экране введённые с клавиатуры фамилию, имя и класс ученика (с использованием символьных переменных).

CLS
INPUT "Введите  Ваше  имя"; А$
INPUT "Введите  Вашу фамилию"; В$
INPUT "Введите  Ваш  класс"; С$
PRINT " Ваше  имя  "; А$
PRINT "Ваша  фамилия "; В$
PRINT "Ваш класс "; С$

Пример 1. Для обозначения длины и высоты стены используются числовые переменные L и H. Написать программу для вычисления площади стены.

L = 8

H = 3

S = L*H

PRINT «площадь равна»; S

В данной программе присвоены конкретные значения переменным L и H. Но данную программу можно записать и в другом виде:

INPUT «Введите длину стены»;L

INPUT «Введите высоту стены; H

S = L*H

PRINT «площадь равна»; S

Вывести числа от 1 до 10 в обратном порядке:

for i=10 to1 step -1

print i

next i

Пример 1: Определение чётности или нечётности числа.

CLS
INPUT "Введите число N=", N
IF N MOD 2 THEN PRINT "Число нечётное" ELSE PRINT "Число чётное"
END

Пример 2: Разработать программу нахождения и вывода
на экран всех чисел, оканчивающихся на 5,
и делящихся на 3, из диапазона чисел от 5 до 1000.

CLS
FOR i = 5 TO 1000 STEP 5
x = i MOD 3
IF x = 0 THEN PRINT i;
NEXT i
END

Создание музыкальных пьес (оператор Play)

Для композиторских целей подходит оператор Play. Он позволяет записывать краткие музыкальные пьесы в виде текстовых выражений.

Оператор Play позволяет:

проигрывать отдельные ноты;

создавать паузы;

менять темп.

В Qbasic октавы нумеруются слева направо (от 0до 6). Номера нот от 1 до 84

Ноты C D E F G A B

До ре ми фа соль ля си

Ох – задание октавы (х изменяется от 0 до 6)

По умолчанию ставится 2 октава

(О3 – первая октава, О0 – контроктава, О1 – большая, О2 – малая и т.д.)

Nx – воспроизвести ноту х (0….6)

Lх – продолжительность следующей ноты,

(где х изменяется от 1 до 64)

например: L2CD – ноты С и D – половинные;

L4CD – ноты С и D четвертные и т.д.

Рх – пауза

где х меняется от 1 до 64)

Р1 – самая продолжительная пауза

Р64 – самая короткая пауза

+ - диез ставятся после ноты (ставятся перед буквенными

Песенка про кузнечика

Play «MFT200lL4O3;AEAEAG#G#P4G#EG#EG#AAP4

Play “AEAEAG#G#P4G#EG#EG#;AP2

Play “ABB8B8B00CC8C8CCCO3BAG#;AAP4

Play “ABB8B8BO4CC8C8CCCO3BAG#;AP4

Во поле береза стояла.

Play “mft200L4O3

Play “AAAAG2FFE2D2

Play “AAO4CO3AGGFFE2D2

Play “E2.FG2FFEE2D2

Play “E2.FGGFFE2D

«Сулико»

Play «T110L8O3GGEFL4GL8A.L16FL1GL8BBBBL4BO4L8D.O3

L16BO4L1C”

Т110 означает темп MODERATO (умеренно), Для темпа ADAGIO (медленно) следует записать Т70, а для темпа FLLEGRO (быстро) – Т150