a,,,. _ 2((a + l ) ! ) 2 - 3 ( 2 « ) !

Program sikB ;
Const
e p s = 0 .0 0 0 1 ;
V arn: integer; an, S: real;
Begin
S:=0; 
n:= \; a n := \B ;
Repeat
S:=S+an; n:=n+\;
an:= a n * ( n +
1)/2/(2 * « + 1 );
Until an< eps;
W nteln(‘ Yig'indi: S - ,
S);
W n teln(‘Q atom ing oxirgi hadi: a n = ’, an);
W nteln(‘Qo shiigan hadlar soni: n - ’ , n);
Readln
;
Shunday m asalalar uchraydiki ulam i hal etish uchun 
dastur d a v o m id a bir nechta sikllam i ishlatishga t o ‘g ‘ri keladi. 
B unday sharoitda tuzilgan dasturlar ichm a-ich jo y la s h g a n sikl 
dasturlari deb ham yuritiladi. Binobarin, m ustaqil topshiriqlar 
qism ida berilgan b a ’zi m asalalam i yechishda o ‘quvchilarga 
q o ‘shim cha y o rd am tariqasida quyidagi
y ig ‘indini 
hisoblash 
dasturini 
yuqoridagi 
uchta 
sikl 
operatorining istalgan b i n orqali tuzib k o ‘rsatishim iz m um kin. 
M asalan, dastum i for sikl operatori orqali tuzib ko'rsatam iz: 
D astur matni quyidagicha:
End.
2 7

Program mklA\
Var
S', 
P,
c: 
real\ k , n: integer]
Begin
S': = 0 ; с : = - 1;
For k : = 2 ta.8 do
Begin
P : = \ ,
For n : = 2 to 6 do
Begin
P : = P * c * ( e x p ( ( n + \ ) * i n ( k ) ) - n ) f ( s q r ( k ) + n ) ]
End]
c : = - c ;
S : = S + P ]
End\
Wrileln{‘
, S) ]
End.
T op sh iriqlar
Q uyidagi y ig ‘indi va k o ‘paytm alarning qiymatini 
hisoblang (1-10):
1. у = sin 1 + sin 1,1 + sin 1,2 + ... + sin 2 ;
10
2. S = 5 > + 1);
/
1 = 1
3 . 5 = У
^ ;
ы
. p 
. 
1 
1 
1 
Н У 1
4. 5 = 1 
+ - + - + 
'
2 
3 
4 
n
5 . 5 = — + —
+ ...+ — !--- , z z > 2 ;
1-2 
2- 3 
(/z -l)/z
28

6

Download 4,62 Mb.