Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.
Задание № 17. Вычислить функцию при заданных значениях аргумента [pic]

Блок-схема.
[pic]

Программа на Turbo Pascal
{******************************************************}
{Программа: lab8, Лаб. раб.8, Вар. 17

}
{Цель:Вычисление двойной суммы

}
{Описание параметров и перемненных:
}
{c,q-промежуточные значения

}
{X,a-аргументы функции

}
{S-сумма

}
{N,K-переменная суммирования

}
{x=x0(xh)xn

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

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

}
{Проверил: Новичков B.C., каф. ВПМ

}
{Дата написания: 10 апреля 2004 г.

}
{*******************************************************}
Program lab8; var a,x,x0,hx,xn,c,q,s:real; k,n:byte; begin{CS} write('x0='); read(x0); write('hx='); read(hx); write('xn='); read(xn); writeln('x0=',x0,'hx=',hx,'xn=',xn); x:=x0; s:=0; repeat for k:=1 to 5 do for n:=1 to 10 do if k>=n then a:=1 else a:=0.1; begin s:=s+exp((k/n)*ln(a*x)); end; writeln('x=',x,'S=',s); x:=x+hx; until x>xn end.{CS}
----------------------- x:=x0; s:=0;

Ввод x0, hx, xn

f:=f+exp(n*ln(a*b)); a:=a+hx;

n=1(1)6

Конец

Вывод f

Начало

n=1(1)6