Изучаем язык BASIC. Занятие 11. Структурные особенности циклов

Занятие 11

Структурные особенности циклов.

1. Возможны два способа выхода из цикла: нормальный и специальный. Нормальный выход из цикла происходит тогда, когда все условия записанные в цикле выполнены. В этом случае параметр цикла неопределен. Специальный выход происходит тогда, когда в области действия цикла имеются операторы передачи управления, передающие управление на операторы, расположенные вне цикла. В этом случае параметр цикла сохраняет свое последнее значение.

2. Допустимы вложенные циклы. Они не должны пересекаться, т.е. оператор NEXT внутреннего цикла должен появиться раньше, чем NEXT внешнего цикла. Параметр внутреннего цикла не должен совпадать с параметром внешнего цикла.

3. FOR V=A1 TO A2 STEP A3 - заголовок цикла. Величины, входящие в заголовок цикла не должны изменять своих значений внутри цикла.

FOR k=N TO 100 STEP N

S=S+k^2

k=k+1

NEXT k - не допустимо.

4. Запрещена любая передача управления из вне цикла операторам, расположенным внутри цикла. Из вне цикла можно передать управление на начало цикла. Из внутреннего цикла во внешний управление можно передать без ограничений.

Сумма чисел от 1 до N

CLS

INPUT "N= ";N

S=0

FOR I=1 TO N

S=S+I

NEXT I

PRINT "S= ";S

END

Произведение этих же чисел

CLS

INPUT "N= ";N

P=1

FOR I=1 TO N

P=P*I

NEXT I

PRINT "P= ";P

END

Пример: вычислить факториал числа N (записывается так: N!). Факториал - это произведение чисел от 1 до N. Например, 5! (факториал пяти) - это 5!=1*2*3*4*5.

CLS

REM Вычислить факториал числа

INPUT "N="; N

F=1

FOR I=1 TO N
f=f*I
NEXT
PRINT f
END

Вы, конечно, заметили, что до начала цикла мы присвоили переменной f значение равное единице. Иначе бы мы получили в результате ноль.

Вычислить

CLS

INPUT "N= ";N

S=0 : P=1

FOR I=1 TO N

P=P*(I+1)

S=S+1/P

NEXT I

PRINT "S= ";S

Вычислить

CLS

INPUT "N= ";N

P=1

FOR I=1 TO N

P=P*(I+1)/I^2

NEXT I

PRINT "P= ";P

END

Задачи:

Напечатать таблицу перевода температур из градусов по шкале Цельсия (С) в градусы по шкале Фаренгейта (F) для значений от 15⁰С до 30⁰С с шагом 1⁰С . Перевод осуществляется по формуле F=1.8C+32

FOR I=15 TO 30

F=1.8*I + 32

PRINT C,F

NEXT I

Напечатать таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 10 фунтов с шагом 1 фунт (1 фунт=400г)

FOR I=1 TO 10

PRINT I,I*0.4

NEXT I

Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм=2.54 см) для значений от 1 до 10 дюймов с шагом 1.

FOR I=1 TO 10

PRINT I, 2.54*I

NEXT I

Составить таблицу умножения для числа 12.

FOR I=1 TO 10

PRINT I;"*12=";I*12

NEXT I

Вычислить S=99²+97²+95²+...+41²

FOR J=99 TO 41 STEP -2

S=S+J*J

NEXT J

PRINT S

Найти сумму всех нечетных чисел от 1 до 10

1 вариант

S=0

FOR I=1 TO 10 STEP 2

S=S+I

NEXT I

PRINT S

2 вариант

S=0

FOR I=1 TO 10

IF I/2<>I\2 THEN S=S+I

NEXT I

PRINT S

Домашнее задание

Найти произведение всех нечетных чисел от 1 до 10

Р=1

FOR I=1 TO 10 STEP 2

Р=Р*I

NEXT I

PRINT Р

Найти произведение всех кратных 3 чисел от 20 до 100

Найти сумму всех кратных 5 неотрицательных чисел от 10 до 60