Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 11.5.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. Реферат на тему Candlestick Essay Research Paper CandlestickFrom the outside
4. Книга Лечение пиявками
5. Курсовая на тему Технология обучения социокультурному компоненту письменной речи в профильной школе
6. Реферат История предпринимательства в России 3
7. Контрольная работа на тему Ветеринарно санитарная экспертиза яиц
8. Реферат на тему Fox Hunting Essay Research Paper Fox hunting
9. Реферат Етнопсихолінгвістика як наукова дисципліна
10. Практическая работа на тему Расположение элементов в матрице