Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 57 стр.

UptoLike

57
Проверка условия сходимости метода итераций: F'(X) = X CosX. Очевидно, что
=≤Fx x x() cos .05
для всех -0.5 X 0. Следовательно, рассматриваемый процесс
итераций сходится.
Программа имеет вид:
Program Prim;
Var
a, b, X1, X0, delta, Eps : real;
n : integer;
Begin
{ инициализация }
WriteLn('Введите значения переменных a, b, Eps:');
ReadLn(a, b, Eps);
X0 := (a + b)/2;
n := 0;
{ цикл }
Repeat
X1 := 0.5 * Sin(X0 * X0 - 1);
n := n + 1;
delta:= Abs(X1 - X0);
X0 := X1;
until delta < Eps;
WriteLn('Корень=', X1:9:4);
WriteLn('Число итераций=',n:5)
End.
Контрольные вопросы
Дайте классификацию циклических процессов с указанием их особенностей.
Укажите отличительные особенности каждого из трех операторов цикла.
Дайте определение массива.
Напишите формулу для вычисления обьема памяти, занимаемого массивом.
В оперативной памяти любой многомерный массив располагается линейно. Выведите
формулу, по которой процессор определяет порядковый номер элемента многомерного
массива в памяти при известных значениях индексов.
Чему равен шаг изменения параметра цикла в предложении For?
В чем отличия итерационных циклов и циклов с фиксированным числом повторений.
В чем состоят преимущества использования операторов цикла?
Указажите основные правила организации вложенных циклов.
Возможен ли выход из внутреннего цикла до его полного завершения ?
Как организовать ввод матрицы размером N*M элементов ?
Как организовать вывод матрицы ?
Задание к работе
1. Выполнить индивидуальное задание А.
2. Выполнить индивидуальное задание Б.
Методические указания
При выполнении индивидуального задания необходимо соблюдать технологию решения
задач на ЭВМ:
изучить словесную постановку задачи, выделив при этом все виды данных;
сформулировать математическую постановку задачи, выделив при этом все виды данных;
сформулировать математическую постановку задачи;
выбрать метод решения задачи, если это необходимо;
записать разработанный алгоритм на языке Паскаль;
Проверка условия сходимости метода итераций:          F'(X) = X CosX. Очевидно, что
F′ ( x ) = x cos x ≤ 0.5 для всех -0.5 ≤ X ≥ 0. Следовательно, рассматриваемый процесс
итераций сходится.
Программа имеет вид:
Program Prim;
Var
    a, b, X1, X0, delta, Eps : real;
    n                : integer;
Begin
    { инициализация }
    WriteLn('Введите значения переменных a, b, Eps:');
    ReadLn(a, b, Eps);
    X0 := (a + b)/2;
    n := 0;
    { цикл }
    Repeat
     X1 := 0.5 * Sin(X0 * X0 - 1);
     n := n + 1;
     delta:= Abs(X1 - X0);
     X0 := X1;
    until delta < Eps;
    WriteLn('Корень=', X1:9:4);
    WriteLn('Число итераций=',n:5)
  End.

Контрольные вопросы
Дайте классификацию циклических процессов с указанием их особенностей.
Укажите отличительные особенности каждого из трех операторов цикла.
Дайте определение массива.
Напишите формулу для вычисления обьема памяти, занимаемого массивом.
В оперативной памяти любой многомерный массив располагается линейно. Выведите
формулу, по которой процессор определяет порядковый номер элемента многомерного
массива в памяти при известных значениях индексов.
Чему равен шаг изменения параметра цикла в предложении For?
В чем отличия итерационных циклов и циклов с фиксированным числом повторений.
В чем состоят преимущества использования операторов цикла?
Указажите основные правила организации вложенных циклов.
Возможен ли выход из внутреннего цикла до его полного завершения ?
Как организовать ввод матрицы размером N*M элементов ?
Как организовать вывод матрицы ?
Задание к работе
1. Выполнить индивидуальное задание А.
2. Выполнить индивидуальное задание Б.
Методические указания
При выполнении индивидуального задания необходимо соблюдать технологию решения
задач на ЭВМ:
изучить словесную постановку задачи, выделив при этом все виды данных;
сформулировать математическую постановку задачи, выделив при этом все виды данных;
сформулировать математическую постановку задачи;
выбрать метод решения задачи, если это необходимо;
записать разработанный алгоритм на языке Паскаль;
                                                                                   57