Лабараторная работа №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 г. }

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

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}

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

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

Кафедра ВПМ

Отчет о

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

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

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

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

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

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

Рязань 2004