Цель работы:
Получение
навыков реализации
циклических
алгоритмов
с неизвестным
числом повторений
цикла, операторов
цикла с предусловием
и постусловием
и итерационных
циклических
алгоритмов.
Задание № 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