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

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

Задание № 17.Корень n-нойстепени

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

Блок-схема.

Пусть

.

Программана TurboPascal

{****************************************************************}

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

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

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

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

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

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

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

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

{*****************************************************************}

programlab7;

varn,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;

untilabs(d)

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

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

end.{lab7}

Результатывычисленияпрограммы:

eps=5

n=6

x=7

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

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

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

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

Кафедра ВПМ

Отчет о

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

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

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

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

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

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

Рязань 2004