Реферат

Реферат Лабораторная работа 7

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 9.11.2024





Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.

Задание № 17. Корень n-ной степени ,   из числа  пределом последовательностикаждый член которой определяется итерацией:  определить с точностью  корень 2-ой и 4-ой степени из числа и число итераций, необходимое при этом.

Блок-схема.

Пусть.
Программа на Turbo Pascal
{**************************************************************** }

{Программа: lab6, Лаб. раб. №7, Вар. 17                                                               }

{Цель: вычисление корня с заданной погрешностью по итерационному циклу}

{Описание параметров и переменных:                                                                  }

{n,x –переменная цикла, y -значение функции, eps – погрешность                   }

{Требуемые подпрограммы: нет.                                                                           }

{Программист: Позднышев А.А., гр. 316                                                              }

{Проверил: Баринов В.В., каф. ВПМ                                                                     }

{Дата написания: 18 марта 2004 г.                                                                         }

{*****************************************************************}
program lab7;

var n,k:integer;

    eps,d,x,y:real;

begin

writeln(‘Погрешность eps=’); read(eps);

writeln(‘Степень корня n=’);read(n);

writeln(‘Подкоренное число x=’);read(x);

k:=0;

y:=x;

            repeat {начало цикла}

                        d:=(x/exp((n-1)*ln(y))-y)/n;

                        k:=k+1;

                        y:=y+d;

            until abs(d)<=eps {Конец цикла}

wtiteln(‘Корень’,n,’степени из’,x, ‘равен’,y);

writeln(‘Число итераций равно’,k);

end.{lab7}
Результаты вычисления программы:
eps=5

n=6

x=7
Корень равен=5,8334027489Е+00

Число итераций=1

1. Курсовая Знаходження мінімального остовом дерева Порівняння алгоритму Прима і алгоритму Крускала
2. Реферат на тему Intervention Course Outline Essay Research Paper Intervention
3. Реферат Правовое регулирование валютного контроля
4. Реферат Как начать издательский бизнес
5. Лабораторная работа на тему Создание составных документов Печать документов
6. Реферат Взаимосвязь психологии и социальной работы
7. Сочинение Крестьянский мир в рассказе Тургенева Бежин луг
8. Реферат Виды социологических исследований общественного мнения
9. Контрольная работа Государственное устройство Древнерусского государства
10. Курсовая на тему Функции операции и услуги коммерческих банков их баланс и прибыль