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