Нахождение конечных сумм

[annn1901]

Нахождение конечных сумм

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

 

[Gruvi]

А формата побольше загрузить можно?

 

[annn1901]

ой, простите пожалуйста, я не посмотрела, что размер картинок маленький. Мой вариант №4 на последней картинке.

 

[Gruvi]

delphi? or pascal?

 

[Vladimir_S]

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

Охо-хо, тоска зеленая... Прям заболеваю, когда такое вижу: ведь вот старались люди, методичку составляли, разжевали всё до мельчайших кусочков и в рот положили, только проглоти, да куда там... Делайте за меня, да и всё! "Слишкам многа букаф"? И зачем тогда учиться... Ну ладно, разворчался я что-то, вот Ваша программа:

Const
 Eps=0.0001;
 Xbeg=0.1;
 Xfin=0.8;
 DX=0.05;
VAR
 N,i,k:Word;
 S,X,a:Real;

BEGIN
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   S:=0;
   k:=0;
   Repeat
    Inc(k);
    a:=Cos(X*2*k)/(4*k*k-1);
    S:=S+a;
   Until Abs(a)<Eps;
   WriteLn(X:6:3,S:12:6,k:12,0.5-Pi/4*Abs(Sin(X)):24:6);
  end;
 Readln;
END.

 

[annn1901]

я знаю что в методичке, все написано, препод очень требовательный, а по методичке у меня как-то совсем все плохо получается.
Спасибо вам огромное, вы меня очень выручили ))))))