Лабараторная работа №8
Категория реферата: Рефераты по информатике, программированию
Теги реферата: бесплатные шпаргалки, реферат личность
Добавил(а) на сайт: Irinej.
1
Цель работы: Получение навыков реализации циклических алгоритмов с
неизвестным числом повторений цикла, операторов цикла с предусловием и
постусловием и итерационных циклических алгоритмов.
Задание № 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
Скачали данный реферат: Никишин, Fabiana, Мукосеев, Пономарёв, Дёгтин, Байдавлетов, Evlampija.
Последние просмотренные рефераты на тему: курсовая работа по менеджменту, реферат финансы, недвижимость реферат, древняя греция реферат.
1