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

 

 

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

CLS

PRINT TAB(15); "Метод"; TAB(30); "половинного деления"

PRINT TAB(15); "Уравнение"; TAB(30); "tg x - 1/3 tg ( x )^3 + 1/5 tg ( x )^5 - 1/3 = 0"

PRINT TAB(15); "Отрезок"; TAB(30); "["; A; ";"; B; "]"

PRINT

PRINT TAB(10); "Точность"; TAB(35); "Решение (корень уравнения)"

PRINT

FOR I = 1 TO N

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

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

ELSE

        PRINT TAB(12); E(I); TAB(40); X(I)

END IF

NEXT I

END

2.5. Результаты решения уравнения.


Метод

методом половинного деления

Уравнение

tg x - 1/3 tg 3 x + 1/5 tg 5 x - 1/3 = 0

Отрезок

[0 ; 0,8]

 

 

Точность

          Решение (корень уравнения)

0.1

3.437500

0.01

3.476563

0.001

3.475586

0.0001

3.474792


3. Обработка данных для получения статистических оценок.

3.1. Постановка задачи.

Написать программу ввода и обработки данных. Разработать контрольный пример, содержащий не менее 5 значений. Исходные данные и результаты расчета представить в виде таблицы


Обработка данных переписи населения

Область, край

Кол-во жителей

. . .

 

 

математическое ожидание

 

 

дисперсия

 

 

квадратическое отклонение

 

 

коэффициент вариации

 

 


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

N -кол-во .

A$(N) - массив областей, краев.

Т(N) - массив значений кол-ва жителей i-ой области.

M - имя переменной для записи математического ожидания кол-ва жителей.

D - имя переменной для записи дисперсии кол-ва жителей.

S - имя переменной для записи квадратического отклонения кол-ва жителей.

K - имя переменной для записи коэффициента вариации.


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


 

  начало

 

 

 

 

 

N

 

 

 

 

    описание массивов                A$(N), Т(N)

 

 

 

 

 

    I=1, N

 

 

 

 

 

 A$(I), Т(I)

 

 

 

 

 

 

 

Страницы: 1, 2, 3, 4



2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.