Реферат: Основы ПЭВМ

2.2. Условные обозначения.

N - размерность массива значений точности решения.

E(N) - массив значений точности решения.

X(N) - массив значений корней уравнения с i-ой точностью.

А - имя переменной для записи левой границы отрезка.

В - имя переменной для записи правой границы отрезка.

2.3. Блок-схема алгоритма решения задачи .

начало

A, B, N

описание массивов X(N), E(N)

I=1, N

E(I)

I=1, N

A1 = A B1 = B

Y = TAN(A1) - 1 / 3 * TAN(A1) ^ 3 + 1 / 5 * TAN(A1) ^ 5 - 1/ 3

X(I) = (A1 + B1) / 2

Z = TAN(X(I)) - 1/ 3*TAN(X(I)) ^3 + 1/ 5 * TAN(X(I)) ^ 5 - 1/ 3

Y * Z > 0

A1 = X(I)

B1 = X(I)

ABS(A1 - B1) > E(I)

I=1, N

X(I) < A OR X(I) > B

E(I); "Решения на этом интервале нет"

E(I); X(I)

конец

2.4. Программа .

CLS

INPUT "Введите левую границу отрезка"; A

INPUT "Введите правую границу отрезка"; B

INPUT "Введите число значений точности"; N

DIM E(N), X(N)

FOR I = 1 TO N

PRINT "Введите"; I; "значение точности"

INPUT E(I)

NEXT I

FOR I = 1 TO N

A1 = A

B1 = B

M1: Y = TAN(A1) - 1 / 3 * TAN(A1) ^ 3 + 1 / 5 * TAN(A1) ^ 5 - 1 / 3

X(I) = (A1 + B1) / 2

Z = TAN(X(I)) - 1 / 3 * TAN(X(I)) ^ 3 + 1 / 5 * TAN(X(I)) ^ 5 - 1 / 3

IF Y * Z > 0 THEN

A1 = X(I)

ELSE B1 = X(I)

END IF

IF ABS(A1 - B1) > E(I) THEN GOTO M1

NEXT I