Реферат: Лабараторная работа №8

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