Сейчас вычисления совсем другие, не такие как раньше. Вычисляют погоду, ядерные реакции, движение планет. Но и задачи на компьютеры возлагают разные.Раньше не было персональных компьютеров. А сейчас они есть в довесок к супер компьютерам. Некогда раньше была принята стратегия популизировать ПК из военной сферы и области образования в область персонального использования. Поэтому сейчас пользоваться компьютером стало легче. Этому даже учат в школе. Все развивается. И растут области применения ПК.
110101=1*2^5+1*2^4+0*2^3+1*2^2+0*2^1+1*2^0=32+16+4+1=53
Отвечаю на твой вопрос , вот что у меня получилось:
3\4*4\5=12\20=3\5
Const
x = 0.75;
eps = 0.5e-3;
var
s, y1, y2, n, sgn, x2, prevf: real;
begin
{для второго члена последовательности}
x2 := sqr(x);
prevf := 2;
y1 := 1; {первый член последовательности}
y2 := x2 / prevf; {второй член последовательности}
s := y1; {накопленная сумма ряда}
n := 1; {последний член последовательности в сумме}
sgn := 1; {знак очередного члена ряда}
while abs(y1 - y2) >= eps do
begin
s := s + y2; {продолжаем накопление}
n := n + 1;
y1 := y2;
x2 := x2 * sqr(x);
prevf := prevf * (2 * n - 1) * 2 * n;
sgn := -sgn;
y2 := sgn * (2 * n - 1) * x2 / prevf
end;
writeln('Сумма ряда из ',n, ' членов равна ', s)
end.
Тестовое решение:
Сумма ряда из 5 членов равна 1.24291779994965