Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

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





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

Задание № 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. Сочинение на тему Наследник из Калькутты - литература и фольклор
3. Курсовая Учёт и организация финансирования капитальных вложений и пути его совершенствования на примере О
4. Курсовая на тему Численность персонала и его структура
5. Курсовая Вивчення систем, еквівалентних системам з відомим типом крапок спокою
6. Сочинение на тему Исповедальная лирика Марины Цветаевой
7. Реферат Місцеві податки і збори 4
8. Сочинение Конфликт двух эпох в комедии А. С. Грибоедова Горе от ума
9. Реферат Государственный финансовый контроль 7
10. Реферат Актуальные проблемы потребительской кооперации 3