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

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

Задание № 17.Вычислитьфункцию призаданных значенияхаргумента

Блок-схема.

ПрограмманаTurbo Pascal

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

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

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

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

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

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

{S-сумма }

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

{x=x0(xh)xn }

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

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

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

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

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

Programlab8;

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

fork:=1 to 5 do

forn:=1 to 10 do

ifk>=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;

untilx>xn

end.{CS}

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

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

Кафедра ВПМ

Отчет о

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

«Проектированиеалгоритмови программ

со структуройвложенныхциклов»

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

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

Проверил:Новичков В.С.

Рязань 2004