Лабораторная работа №7

СОДЕРЖАНИЕ: Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.

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

Задание № 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



Министерство образования РФ


Рязанская государственная радиотехническая академия


Кафедра ВПМ


Отчет о

лабораторной работе № 7:

«Конструирование программ циклической структуры

с неизвестным числом повторений. Итерационные циклы»


Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Баринов В.В.


Рязань 2004


СКАЧАТЬ ДОКУМЕНТ

ДОБАВИТЬ КОММЕНТАРИЙ  [можно без регистрации]
перед публикацией все комментарии рассматриваются модератором сайта - спам опубликован не будет

Ваше имя:

Комментарий

Видео

ОГЭ Физика Лабораторная работа 7 Измерение работы силы трения  [ВИДЕО]

Лабораторная работа по физике Исследование силы упругости от удлинения пружины 7 класс  [ВИДЕО]

Лабораторная работа 2 Градуировка пружины динамометра 7 класс  [ВИДЕО]
Лабораторная работа 9 Выяснение условия равновесия рычага  [ВИДЕО]
Лабораторная работа 7 Измерение фокусного расстояния и оптической силы линзы 39 8 класс  [ВИДЕО]
Физика 7 Фильм сорок второй КПД при подъёме тела по наклонной плоскости  [ВИДЕО]
Лабораторная работа 1 Изучение неравномерного движения 7 класс  [ВИДЕО]
ОГЭ Физика Лабораторная работа 2 Измерение силы Архимеда  [ВИДЕО]
Определение выталкивающей силы силы Архимеда  [ВИДЕО]
ГИА 9 ОГЭ Лабораторные работы  [ВИДЕО]
Физика 7 Фильм тридцать первый Плотность вещества с Жуковой Анной  [ВИДЕО]
Школьный Эксперимент 7 класс Л Р 4 Проверка условия равновесия рычага  [ВИДЕО]

Copyright © MirZnanii.com 2015-2017. All rigths reserved.