Пример:
Создадим программу, которая считает, сколько раз выпадает орёл при бросании монеты M раз. Бросание повторяем N раз (серий). Результаты бросаний заносим в массив.
|
INPUT "Сколько раз бросаем?"; M
INPUT "Сколько серий делаем?"; N
DIM SEERIA(N) 'Объявляем массив
RANDOMIZE TIMER 'Включаем генератор случайных чисел
FOR J = 1 TO N 'Цикл серии
'обнуляем счётчик
k = 0
FOR i = 1 TO M 'начинаем цикл бросаний
'значение при бросании может быть 1-орёл и 2 –решка
v = INT(RND * 2 + 1)
IF v = 1 THEN k = k+ 1
NEXT i
'заносим ответы в массив
SEERIA(J) = k
NEXT J
'выводим ответы на экран
FOR J = 1 TO N
PRINT ".В ".J; ". cериях было"; SEERIA(J); "орлов."
NEXT J
|
Пример:
Составим программу, которая позволяет учить иностранные слова. Задаётся количества пар слов N и создаёт массив SONAD$(N,2). Затем пользователь заполняет массив. Затем начинает спрашивать произвольные слова. Пользователь должен дать ответ. Программа проверяет, верно слово или нет. При неправильном ответе показывает верный вариант. После каждого слова экран очищается.
| CLS 'чистим экран
INPUT "Сколько пар слов"; N
DIM SONAD$(N, 2)
'заполняем массив
FOR I = 1 TO N
INPUT "Вводим иностранное слово"; SONAD$(I, 1)
INPUT "Вводим перевод"; SONAD$(I, 2)
NEXT I
'начинаем спрашивать
CLS
RANDOMIZE TIMER
DO
V = INT(RND * N + 1) 'случайное число от 1-го до N
PRINT SONAD$(V, 2); "-";
INPUT Sona$
'Для выхода из программы вводим слово «хватит».
IF Sona$ = "хватит" THEN END
'проверяем правильность
IF Sona$ = SONAD$(V, 1) THEN
PRINT "Верно!"
ELSE
PRINT "Неверно!"
PRINT "Верное есть:"; SONAD$(V, 1)
END I
'спим 3 сек
SLEEP 3
CLS
LOOP
|
