Пожалуйста, помогите решить две задачи очень надо!

[Sabber]

Здравствуйте уважаемые программисты.
Пожалуйста, помогите решить две задачи очень надо!
Вычисление функции, заданной в виде суммы бесконечного ряда, необходимо выполнить тремя способами: с заданной погрешностью EPS (F1(x)), с заданным числом K первых членов ряда (F2(x)) и по аналитической формуле (F(x)).
и ещё

Дано натуральное число N. Получить все способы выплаты суммы с помощью монет достоинством 1, 2 и 5 рублей.


с ув. Sabber Заранее спасибо вам!

[puporev]

По первой задаче формулы нет?
Код второй:

uses crt;
var N,i,j,k:integer;
begin
clrscr;
Write('N=');readln(N);
for i:=1 to n do
for j:=0 to n-1 do
for k:=0 to n-4 do
if i+2*j+5*k=N then
writeln('1=',i:3,'   2=',j:3,'   5=',k:3);
readln
end.

[Sabber]

Спасибо большое за вторую задачю! Вот формулы первой, решите если можно?

∑_(n-1)^∞ x^(2n-1)/(2n-1)!=x+x^3/3!+x^5/5!+x^7/7!…….разложение в ряд

sh x (|x|<1) функция и область сходимости

[Plague]

to puporev, вы вообще когда нибудь задумываетесь о быстроте
ваших алгоритмов
даже если заменить

for i:=1 to n do
for j:=0 to n-1 do
for k:=0 to n-4 do

на это

for i:=1 to n do
for j:=0 to n div 2 do
for k:=0 to n div 5 do

он будет работать быстрее
например для n=780
ваша программа делает 472.726.800 шага
а измененная 47.881.860 в 10 раз быстрее.
можно еще ускорить алгоритм.

[puporev]

Привожу решение задачи №1. По второй задаче сделайте как у Plague он плохому не научит.

uses crt;
var x,e,s,si,p:double;
    i,k:integer;
begin
clrscr;
repeat
write('x=');readln(x);
until abs(x)<1;
writeln('Первый способ - с заданной погрешностью');
repeat
write('e=');readln(e);
until e<=0.1;
i:=1;p:=x*sqr(x)/(2*i*((2*i+1)));s:=x+p;
while p>=e do
    begin
      inc(i);
      p:=p*sqr(x)/(2*i*(2*i+1));
      s:=s+p;
    end;
writeln('sh(x)=',s:0:5);
writeln;
writeln('Второй способ - с заданным количеством членов ряда');
repeat
write('k=');readln(k);
until k>1;
i:=1;p:=x*sqr(x)/(2*i*((2*i+1)));s:=x+p;
for i:=2 to k do
  begin
    p:=p*sqr(x)/(2*i*(2*i+1));
    s:=s+p;
  end;
writeln('sh(x)=',s:0:5);
writeln;
writeln('Третий способ - по формуле shx=(e^x-e^-x)/2');
s:=(exp(x)-exp(-x))/2;
writeln('sh(x)=',s:0:5);
readln
end.

[Sabber]

Спасибо большое!!! Вы мне очень помогли!!!

[Ламер_001]

Сообщение от Plague

to puporev, вы вообще когда нибудь задумываетесь о быстроте
ваших алгоритмов
даже если заменить

на это

for i:=1 to n do
for j:=0 to n div 2 do
for k:=0 to n div 5 do

он будет работать быстрее
например для n=780
ваша программа делает 472.726.800 шага
а измененная 47.881.860 в 10 раз быстрее.
можно еще ускорить алгоритм.

посчитать значения n div 2 и n div 5 в какие нибудь переменные и использовать их как границу тож чуть пошустрей должна работать)))