 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Операторы цикла FOR – NEXT (цикл со счетчиком)
Этот цикл применяется для циклических вычислений с известным количеством повторений.
Формат оператора
FOR счетчик = N1 TO N2 [ STEP N3 ]
Оператор 1
...
[оператор n]
[ EXIT FOR ]
NEXT счетчик
Счетчик – числовая переменная, изменяющаяся при повторении цикла (управляющая переменная цикла, параметр цикла).
N1 – начальное значение счетчика – а.в., задает начальное значение параметра цикла.
N2 -конечное значение счетчика – а.в., задает конечное значение параметра цикла.
N3 – шаг – а.в. – приращение параметра цикла. По умолчании - шаг N3 = 1.
EXIT FOR – прерывание цикла. Программа выполняется с оператора, следующего за NEXT.
| Пример 1 | Пример 2 |
| Z= - 10 ’Табулирование функции FOR Z = - 10 TO 0 T = ABS(Z) PRINT ’’T = ’’; T NEXT Z | S = 0‘Вычисление суммы FOR I =1 TO 11 STEP 2 S = S+ (A+I)^2 NEXT I PRINT ’’S = ’’; S |
Вложенные циклы
Вычислить значение функции
, 
, 
, 
k =1, 2, 3,...,16, i =1, 3, 5,..., 21
REM вложенные циклы
DIM H, M, DL, i, AI, BK, Ci, Yi, S, K
INPUT ''H,M,DL’’; H,M,DL
FOR i = 1 TO 21 STEP 2
Ai = H + I: Ci = M ^ i
S = 0
FOR K = 1 TO 16
BK = DL *K: S = S + BK*Ci
NEXT K
Yi = Ai + S
NEXT i
PRINT ”S=”;S: END
Пример:
Вычислить значение функции yk = ak + bk3, k = 1, 3, …, 23,
при 
, xi = x0 + i Δ, i = 1, 2, …, k,
Итерационные циклы
Вычислить значение суммы 
, пренебречь членами ряда меньшими ε, т.е. 
, при х = 0,2
REM итерационные циклы
DIM X, i, EPS, F, Fi
INPUT ''X, EPS”; X, EPS
F = 0: i=1
DO
Fi = X^ i / (i+1)^3*(-i) ^(i+1)
F = F + Fi: i = i+1
LOOP WHILE ABS(Fi) >EPS
PRINT ”F=”; F
END
1 –й вариант решения (при ε =10 -5)
i Fi
i1 =1 F1 = + 0.025
i2 =2 F2 = - 0.00148
i3 =3 F3 = +0.000025
i4 =4 F4 = - 0.00000256
2 –й вариант решения (при ε =10 -3)
i Fi
i1 =1 F1 = + 0.025
i2 =2 F2 = - 0.00148
i3 =3 F3 = +0.000025
Итерационные циклы с применением
Рекурентной формулы
Вычислить значение суммы
, с точностью очередного члена ряда 
Запишем исходный ряд S = Z0 + Z1 + Z2...+ Zn + Z n+1 +...
или Sn+1 = S n + Z n+1 , n = 0, 1, 2,...
S0 = x
Используя рекурентную формулу Z n +1 = Z n αn,
где αn = Z n+1 / Z n, получим
αn = 
Z0 = x
REM Рекурентная формула
DIM X, N, EPS, S, Z, AL
INPUT ''X, EPS”; X, EPS
S = X: Z = X: N = 0
DO
AL=-X^2/(2*N+2)/ (2*N+3)
Z = Z*AL
S=S+Z
N=N+1
LOOP UNTIL ABS(Z) <=EPS
PRINT ”sin ”; x; ”=”; S
END
Массивы в QBASIC
Массивы – объединение данных одного типа в единую структуру с прямым доступом к каждому его элементу.
Положение элемента в массиве обозначается его индексом.
При обращении к массиву записывают имя массива и его индексы в круглых скобках.
Например, А!(5), B867#(2,5), C$(2,4,6)
Каждый элемент имеет то же имя, что и весь массив.
По количеству индексов определяют мерность массива: одно-, двух-, n- мерные.
Мерность массива не превышает 255.
Индекс массива изменяется как переменная цикла.
Поиск по сайту: