- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
program z1;
function func (x: real): real;
const e = 0.000000000000001; {15 знаков после запятой}
var f: real; {переменая для расчета двойного факториала}
i, k: integer; {счетчик проходов, i-общий, k-частный}
d: real; {добавляемая дельта}
y: real; {переменная искомого значения}
begin
y := 1.0;
i := 1;
repeat
f := 1; {----------}
k := i; {--расчет--}
while (k >= 2) do begin {-двойного-}
f := f * k; {факториала}
k := k - 2; {----------}
end; {----------}
d := 1; {---------------------}
for k := 1 to i do {считаем степень числа}
d := d * x; {---------------------}
d := d / f; {-----------------находим d-----------------}
if (d < e) then break; {проверяем ее на попадание в разрядную сетку}
y := y + d;
i := i + 1;
until (false);
func := y;
end;
var x: real;
begin
write ('Введите x: ');
readln (x);
writeln ('y = ', func (x):3:15);
end.
Этот говнокод хоть и не смешон, но его надо сохранить, чтобы показывать студентам, как не надо считать ряды.
Не топите его.
после:
const e = 0.000000000000001; {15 знаков после запятой}
можно даже и не надеяться на нормальное решение...