Материалы сайта
Это интересно
Лабараторная работа №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