Var I:integer;
p:real;
begin
p:=1;
for i:=1 to 20 do
p:=p*((i+1)/(i+2));
writeln(p:6:3);
end.
43. Келесі өрнекті есептеу :
P = (12! – 9!)/5!;
Программаны құрастырғанда For операторларын пайдалану керек.
program esep43;
uses crt;
var i,y,x,z:longint;
p:real;
begin clrscr;
y:=1; x:=1; z:=1;
for i:=1 to 12 do
x:=x*i;
for i:=1 to 9 do
y:=y*i;
for i:=1 to 5 do
z:=z*i;
p:=(x-y)/z;
writeln('p=',p:6:2);
end.
45. Келесі қосындыны табудың Паскаль тіліндегі программасы:
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.
48. Көбейтіндіні табу үшін Паскаль программасын пайдалану керек:
P = , n және x берілген.
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.
49. Алғашқы n көбейткіштердің көбейтіндісін Паскаль программасының көмегімен табу керек:
. . . .
VAR I,N:INTeGeR; K:ReAL;
begin
read (N); K:=1;
FOR I:=1 TO N DO
K:=K*(2*I-1)/(2*I);
write (K:5:5);
end.
53. Берілген натурал сан 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.
55. Берілгені 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.
58. Келесі қосындыны есептеуді Паскаль программасының көмегімен орындау керек : S = .
program esep58;
uses crt;
var i:integer;p:real;
begin clrscr;
for i:=1 to 20 do
p:=p+1/(i*sqr(i));
writeln('p=',p);
end.
59. Берілгені натурал сан n және нақты сан x. Келесі қосындыны Паскаль программасының көмегімен табукерек:
s = .
var n,x,i:longint;
s:real;
begin
read(n,x);
for i:=1 to n do
begin
s:=s+((x+sin(i*x))/exp((i-1)*ln(2)));
end;
writeln(s:4:2);
end.
61. Берілгені натурал сан n және нақты сан x. Келесі қосындыны Паскаль программасының көмегімен табукерек:
PROGRAM eSeP61;
USeS CRT;
VAR y:real; P,i,n,x,s:INTeGeR;
BeGIN clrscr;
writeln('n jane x-tin manin engiz');
read(n,x);
P:=1; s:=1;
for i:=1 to n do
begin
P:=P*i;
s:=s*x;
y:=y+s/p;
end;
writeln('y=',y:6:2);
enD.
64. Келесі функцияның мәндерін Паскаль программасының көмегімен табу керек: y = tg2x, егер 0≤x≤1, h=0.05.
var x,y:real;
begin
x:=0;
while x<=1 do
begin
y:=sqr(sin(x)/cos(x));
x:=x+0.05;
writeln('y=',y:4:3);
end;
end.
66. Фиббоначчи сандарының 100 – ден аспайтындарын Паскаль программасының көмегімен табу керек.
var i,k:integer; a:array[1..20] of integer;
begin
a[1]:=1;
a[2]:=1; i:=2;
repeat
inc(i); a[i]:=a[i-1]+a[i-2];
until a[i]>100;
for k:=1 to i-1 do write (a[k],' ');
end.
70. Келесі қосындыны Паскаль тіліндегі программамен есептеу керек: