2. Келесі есепті Паскаль тіліндегі программаның көмегімен шешу керек: берілгені: x0 = 1; табу керегі: xk = k∙xk-1 +1/k формуласы бойынша, k = 1,2,3, . . . , n мәндері үшін xk – ның мәндерін; n - берілген.
var x:real; i,n:integer;
begin
read (n);
x:=1;
for i:=2 to n do
begin
x:=i*x+1/i;
write (x:7:2);
end; end.
3. Келесі өрнекті есептеу :
P = (12! – 9!)/5!;
Программаны құрастырғанда For операторын пайдалану керек.
var s:real; i:integer; d:longint;
function p(x:integer):longint;
var i:integer;
begin
d:=1;
for i:=1 to x do
d:=d*i; p:=d;
end;
begin
s:=(p(12)-p(9))/p(5);
write (s:4:0);
end.
4. Натурал n саны берілген. Келесі өрнекті Excel – де есептеу керек:
1∙2 + 2∙3∙4+ 3∙4∙5∙6 + . . .+ n∙(n+1)∙(n+2)∙ . . .∙2n.
var n,i,j,s,p:integer;
begin
readln(n);
for i:=1 to n do
begin
s:=1;
for j:=i to 2*i do
s:=s*j;
p:=p+s;
end;
writeln(p);
end.
5. Келесі мәндер үшін теру санын Паскаль программасының көмегімен табу керек: n=12, k=7.
var i: integer;
m: longint;
begin
m:=1;
for i:=1 to 7 do m:=m*(12-i+1) div i;
writeln ('jauabi=',m);
end.
6. Келесі қосындыны Паскаль - де табу керек: .
Есептеу үрдісін келесі қосылғыш ε=0.0001 санына кіші болғанда ғана тоқтату керек.
Var I:integer;
y,s:real;
begin
repeat
inc(i);
y:=1/(i*(i+1));
s:=s+y;
until y<=0.0001;
writeln(s);
end.
7. Келесі қосындыны Паскаль – де есептеу керек:
s = 1 + 1/2 + 1/3 + . . .
Есептеу үрдісін келесі қосылғыш ε=0.0001 санына кіші болғанда ғана тоқтату керек.
var i:integer; s:real;
begin
i:=1;
while 1/i>0.0001 do begin
s:=s+1/i;
inc(i);
end;
write (S:6:4);
end.
8. Келесі қосындыны Паскаль - де табу керек:
Есептеу үрдісін келесі қосылғыш ε=0.0001 санына кіші болғанда ғана тоқтату керек.
var i,p:integer;
y,s,g:real;
begin
s:=1; p:=-1;
repeat
inc(i);
s:=s*i;
y:=p/s;
p:=p*(-1);
g:=g+y;
until y<=0.0001;
writeln(g:4:3);
end.
9. Келесі қосындыны Паскаль – де есептеу керек: S = , мұндағы x=0,125.
var s:real; i:integer;
begin
for i:=0 to 7 do
s:=S+exp((2*i+1)*ln(0.125));
write (s:4:3);
end.
10. Берілгені натурал n және x нақты сандары. Келесі қосындыны Паскаль-де есептеу керек:
sin x + sin2x + sin3x + . . . + sinnx .
var i,n,x:integer;
s,p:real;
begin
read(n,x);
s:=1;
for i:=1 to n do
begin
s:=s*sin(x);
p:=p+s;
end;
writeln(p:4:3);
end.
11. For операторын пайдаланып, келесі қосындыны табудың программасын құрастыру керек :
S = , мұндағы x=0,625.
var i,j: integer; s:real; f:real;
begin
for i:=1 to 10 do begin f:=1;
for j:=1 to 2*i-1 do
f:=f/j;
s:=s+exp((2*i-1)*ln(0.625))*f;
end;
write (s:4:2);
end.
12. Берілгені натурал n және X нақты сандары. Келесі қосындыны Паскаль-де есептеу керек:
sin x + sin x2 + sin x3 + . . . + sin xn .
Var I,n,X:integer;
s,p:real;
begin
read(n,x);
s:=1;
for i:=1 to n do
begin
s:=s*x;
p:=p+sin(s);
end;
writeln(p:4:3);
end.
19. Келесі интегралды Паскаль тіліндегі программаның көмегімен есептеу керек:
S =
var s,h:real; n,i:integer;
begin read(h); n:=round(1/h);
for i:=0 to n do
s:=s+(2*(1+h*i)+cos(1+h*i))*h;
write(s:6:4);
end.
21. Берілгені n натурал саны. Келесі өрнекті Паскаль тіліндегі программаның көмегімен есептеу керек:
1 ∙2 + 2∙3∙4 + . . . + n∙(n+1)∙. . .∙2n
Var n,I,j,s,p:integer;
begin
readln(n);
for i:=1 to n do
begin
s:=1;
for j:=i to 2*i do
s:=s*j;
p:=p+s;
end;
writeln(p);
end.
23. Берілгені n натурал саны мен x нақты саны. Келесі қосындыны Паскаль тіліндегі программаның көмегімен есептеу керек:
s = .
var n,x,i:integer;
s:real;
begin
read(n,x);
for i:=1 to n do
s:=(x+cos(i*x))/exp(i*ln(2));
writeln(s:4:2);
end.
24. Берілгені a0 = a1 = 1; ai = ai-2 + ai-1/2i-1 , i =2,3, . . Паскаль тіліндегі программаның көмегімен a0 ∙a1∙a2∙. . . a12 көбейтіндісін табу керек.
var a:array[0..12] of real;
i:integer;
begin
a[0]:=1;
a[1]:=1;
for i:=2 to 12 do
a[i]:=a[i-2]+a[i-1]/exp((i-1)*ln(2));
writeln;
for i:=0 to 11 do
write(a[i]:4:2,' ');
end.
25. Берілгені n натурал саны мен x нақты саны. Келесі көбейтіндіні Паскаль тіліндегі программаның көмегімен есептеу керек:
P =
var n,x,i,s:longint;
p:real;
begin
read(n,x); s:=1;p:=1;
for i:=1 to n do
begin
s:=s*i;
p:=p*(1+sin(i*x)/s);
end;
writeln(p:4:2);
end.
29. Берілгені x0 = c, x1=d; xk = qxk-1+rxk-2 +b, k =2,3, . . .,
q,r,c,d,b – нақты сандар, n – бүтін сан (n≥2). Паскаль тіліндегі программаның көмегімен есептеу керек: xn .
var n,q,r,c,d,b,i:integer;
x:array[1..100] of integer;
begin
readln(n);
read(q,r,c,d,b);
x[1]:=c; x[2]:=d;
for i:=3 to n+1 do
x[i]:=q*x[i-1]+r*x[i-2]+b;
for i:=1 to n do
write(x[i],' ');
end.
30. Келесі қосындыны Паскаль программасының көмегімен табу керек:
S = , егер x =0.25; есептеу ε =0.0001 дәлдігі бойынша.
PROGRAM eSeP30;
USeS CRT;
CONST ePS=0.0001;
X=0.25;
VAR S,y:ReAL; P,K:INTeGeR;
BeGIN
P:=1;
RePeAT
inc(k);
P:=P*K;
y:=eXP(K*LN(X))/P;
s:=s+y;
UNTIL y<=eps;
writeln(s:6:2)
eND.
32. Келесі функцияның мәндерін 2≤x≤3 аралығы, h =0.1 қадамы үшін Паскаль программасының көмегімен табу керек:
Y = ,
program esep32;
uses crt;
var x,h,y:real;
k:integer;
begin clrscr;
x:=2; h:=0.1; k:=1;
while k<=10 do
begin
y:=y+(sqr(x)+1)/(exp(k*ln(x-1)));
inc(k);
x:=x+h;
writeln('y=',y:6:2);
end;
end.
33. Келесі өрнекті есептеу керек:
P = a∙(a+1)∙(a+2)∙. . .∙(a+n-1), a –нақты сан, n – бүтін сан.
Программа құрастырғанда FOR циклдік операторын пайдалану керек.
P: P=a*(a+1)*(a+2)*…*(a+n-1) For мен шығару.
program bilet17;
uses crt;
var p,n,i,a:integer;
begin clrscr;
writeln('a jane n-nin manin engiz');
read(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i); writeln('p=',p);
end.
36. Берілгені x нақты саны. Паскаль программасының көмегімен келесі қосындыны табу керек:
x - + - + - +
var x,i,s,k:LONGINT;
y,p:reAL;
begin
readln(x);
p:=1; s:=1; k:=1;
while i<=13 do
begin
inc(i);
p:=p/i;
s:=s*x;
if odd(i) then begin y:=y+k*(s*p); k:=k*(-1); end;
end;
writeln(y:6:3);
end.
42. Берілгені: n - натурал сан және x - нақты сан. Табу керек: Паскаль программасының көмегімен келесі көбейтіндіні: .