bsuir.info
БГУИР: Дистанционное и заочное обучение
(файловый архив)
Вход (быстрый)
Регистрация
Категории каталога
Другое [157]
АВС [6]
КПиЯП [80]
ОАиП [305]
ОКТ [79]
СиСПО [8]
Форма входа
Поиск
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Файловый архив
Файлы » ПОИТ » ОАиП

КР №2 В-26
Подробности о скачивании 24.05.2012, 12:20
Описание алгоритма.
Вводятся значения элементов массива «х» и желаемого коэффициента точности «е». Присваиваются нулевые значения текущего члена S2, последующего члена S1, а также n (показатель степени и факториала). S1присваивается значению S2. Вычисляется значение S1.Значение nувеличивается на 1. Данные операции проводятся до достижения необходимой точности и для каждого элемента массива «х».


3)
programmassive;
usescrt;
var
i, n: integer;
S1, S2, e :real;
x: array[1..10] ofreal;
functionfact(n:integer):real; {вычисление значения факториала "n"}
begin
if n=0 then fact:=1
else fact:=fact(n-1)*n;
end;
begin
clrscr;
for i:=1 to 10 do {Ввод значений, принимаемых переменной "х"}
begin
writeln('Введите ', i, ' элемент массива');
readln(x[i]);
end;

write('e='); {Ввод значения коэффициента точности вычислений}
readln(e);

for i:=1 to 10 do
begin;
S1:=0;
S2:=0;
n:=0;
repeat
S2:=S1;
S1:=S1+(exp(n*ln(x[i])))/(fact(n)); {Вычисление значения суммы предыдущих и последующего членов}
n:=n+1;
until
abs(S1-S2)<=e; {Проверка достижения заданной точности}
writeln(S2); {Вывод значения суммы}
readln;
end;
end.


4) Результаты выполнения программыпри е=0,01:
X S2
1 2.70833333333576E+0000
2 7.38095238095411E+0000
3 2.00796651785786E+0001
4 5.45939826428657E+0001
5 1.48402917371131E+0002
6 4.03421694338787E+0002
7 1.09662819474190E+0003
8 2.98094688156620E+0003
9 8.10307611395419E+0003
10 2.20264602662623E+0004
Категория: ОАиП | Добавил: chigara
Просмотров: 965 | Загрузок: 13
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]