10. Команда арифметического цикла в qbasic.Формат команды.

Программа определения максимального и минимального значений

функции.

For – счетчик=начальное значение счетчика to конечное значение счетчика

Операторы

[Exit For]’ досрочный выход

Next счетчик

For – начало цикла

Next – конец цикла

Принцип работы арифметического цикла:

Начальное значение счетчика, конечное значение счетчика и шаг запоминаются в специальных ячейках памяти.

В команде FOR осуществляется одно единственное присвоение. С этим значением выполняется тело цикла. Дойдя до NEXT к начальному значению счетчика прибавляется шаг и полученное значение сравнивается с конечным значением счетчика. Если это значение меньше конечног значения, то программа возвращается назад – на следующую за FOR строку и выполняются операторы тела цикла с новым значением счетчика.

Табулирование функции – это вычисление значения функции в зависимости от аргумента, который меняется с постоянным шагом.

12. Команда арифметического цикла в qbasic.Формат команды.

Программа табулирования разветляющейся функции.

1) Составить программу для разветвляющейся фунции

2) Функцию пользователя записать в подпрограмму через Selеct Case. В качестве табулируемой переменной выбрать одну из входных переменных (диапазон изменения независимой переменной задается пользователем). В качестве начального значения взять исходное значение, а шаг и конечное значение необходимо задать самим.

13. Функции,зависящие от двух переменных.Построение графиков поверхностей в mathcad.

Алгоритм:

- с помощью команды цикла задается значение одной из переменных (получается внешний цикл)

-Внутри этого цикла открывается следующий цикл для задания значения другой переменной (внутренний цикл)

-Внутри внутреннего цикла осуществляется печать значений.

REM табулирование функции, зависящей от двух переменных

DECLARE FUNCTION y (a, x)

CLS

CONST pi = 3.14159

DEFSNG A-Z

k = 1

j = 1

FOR a = 0 TO 1 STEP .25

k = k + 12

ymax=1e-2

ymin=1e2

LOCATE 1, 4

PRINT "a"

LOCATE 1, k - 3

PRINT "|"; USING "##.##"; a

LOCATE

i = 1

LOCATE i + 1, j + 1

PRINT "______________________________"

FOR x = 0 TO pi / 2 STEP 10 * pi / 180

i = i + 1

LOCATE i + 1, j

PRINT "|x="; USING "##.##"; x

LOCATE i + 1, k - 3

PRINT "|"; USING "##.####"; y(a, x)

IF y(a, x) < ymin THEN

ymin = y(a, x)

ELSEIF y(a, x) > max THEN

ymax = y(a, x)

END IF

NEXT x

NEXT a

PRINT

PRINT "max="; ymax

PRINT

PRINT "min="; ymin

END

FUNCTION y (a, x)

y = SIN(2 + x)

END FUNCTION

???????????????????????????????????????

14. Табулирование функций, зависящих от двух переменных,в qbasic.

Алгоритм:

- с помощью команды цикла задается значение одной из переменных (получается внешний цикл)

-Внутри этого цикла открывается следующий цикл для задания значения другой переменной (внутренний цикл)

-Внутри внутреннего цикла осуществляется печать значений.

DECLARE FUNCTION y (a, x)

CLS

CONST pi = 3.14159

DEFSNG A-Z

FOR a = 0 TO 1 STEP .25

PRINT "a="; a

FOR x = 0 TO pi / 2 STEP 5 * pi / 180

PRINT "x="; x, "y="; y(a, x)

NEXT x

PRINT "для продолжения нажмите любую клавишу"

WHILE INKEY$ = ""'организация паузы

WEND

NEXT a

END

FUNCTION y (a, x)

y = EXP(-a * x) * SIN(x)

END FUNCTION