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

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

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

неизвестным числом повторений цикла, операторов цикла с предусловием и

постусловием и итерационных циклических алгоритмов.

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