- .
- .
- .
- .
- .
:
1. .
2. .
3. .
4. .
.
.
. : ,
. - -11; -7
a .
:=a+4 .
a<0, a:=a+4.
, .
. .
S=1+2++10
S
.
S:=S+a a:=a+1 | , a<=10 |
.
: , .
1 .
. : 17; 11
S=a+S a:=a-6 | , a<=0 |
. n!
F=F*k k=k+1 | , k>N |
Pascal
:
for
while
repeat
, .
: for <>:=< > to < > do <>;
1. , .
1. .
Program primer;
Var i, x: integer;
begin
for i:=1 to 10 do begin { 1 10}
x:=sqr(i); { }
write(x, ' '); { }
end;
end.
:
1 4 9 16 25 36 49 64 81 100
, -1, to downto.
for i:=1 to 10 do begin
x:=sqr(i);
write(x, ' ');
end;
:
100 81 64 49 36 25 16 9 4 1
2. 1 + 1/3 + 1/5 +...(N ).
Program primer;
Var I, N: integer;
|
|
S: real;
begin
Write('N='); Readln(N); { }
S:=0; { }
For I:=1 to N do { N , }
S:=S+1/(2*I-1);
Writeln('S=',S:5:2); { }
end.
3. , 3.
Program primer;
Var i, k: integer;
begin
k:=0; for i:=10 to 99 do begin
if i mod 3=1 then k:=k+1;
end;
writeln ('k=', k);
end.
4. .
Program primer;
Var i, S, n: integer;
begin
Write (n=); Readln(n);
S:=0;
for i:=2 to (n div 2) do
if (n mod i=0) and (i mod 2=0) then s:=s+i;
writeln('S=', S);
end.
.
While <> do <>;
, .
. S . , 2 , x%.
, S=1000 , x=10%
1 S=1000+1000*10/100=1100
2 S=1100+1100*10/100=1210
Program primer;
Var s, sum, x: real;
n: integer;
Begin
Write(S=); Readln(S);
Write(x=); Readln(x);
Sum:=2*s; n:=0;
While S<=Sum do begin
s:=s+s*x/100;
n:=n+1;
end;
write(' ', n, );
end.
5. -21; - 16; .
a , n
a=a+5 n=n+1 | , a<=0 |
Program primer; var a, n: integer; begin a:= -21; n:=1; while a<=0 do begin a:=a+5; n:=n+1; end; writeln(n=, n); end. | Program primer; var a, n: integer; begin a:= -21; n:=1; repeat a:=a+5; n:=n+1; until a>0; writeln(n=, n); end. |
: , , , () , . , a:=a+5;
Repeat
<>;
Until <>
. 1 .
. .
Program primer;
var
a, n, s: integer;
begin
Write(n=); Readln(n);
S:=0;
repeat
a:=n mod 10;
s:=s+a;
n:=n div 10;
until n=0;
writeln(s=, s);
end.
6. ( ) y=2x+1 [-3; 3] 0.5.
x= - 3 y=
x= - 2.5 y=
x=3 y=
Program primer;
var
x, y: real;
begin
x:=0;
repeat
y:=sqrt(sqr(sin(x)+2));
writeln(x=, x:6:2, y=, y:8:4);
x:=x+0.2;
until x>1;
end.
7. E=0.0001.
Program primer;
Var S, e, slag: real;
k: integer;
begin
e:=0.0001; s:=0; k:=1;
slag:= k/sqr(k+1);
repeat
s:=s+slag;
k:=k+1;
slag:=k/sqr(k+1);
until slag<e;
write (s=, s:6:2);
end.
|
|
. . .
, a) For... do
While... do ( = 2)
b) While... do
For... do
Repeat
...
Until ( =3)
:
For a:=1 to 2 do
For b:=1 to 3 do
Writeln(a=, a, b=, b);
a=1 a=1 a=1 | b=1 b=2 b=3 | b a=1 |
a=2 a=2 a=2 | b=1 b=2 b=3 | b a=2 |
, .
: .
Program primer;
var
i, j: integer;
begin
for i:=1 to 9 do
begin
for j:= 1 to 9 do
write(i*j:4);
writeln;
end;
end.
. Writeln .
. k . .
1. N 2. 3. |
Program primer;
var
n, s, a, i, k: integer;
begin
write (k=); readln(k);
for i:=1 to k do
begin
Write(n=); readln (n); s:=0;
Repeat
a:=n mod 10;
s:=s+a;
n:=n div 10;
until n=0;
writeln (s=,s);
end;
end.
1. . .
2. for. , , .
3. for. to downto.
4. Repeat. , .
5. repeat.
6. while. , .
7. while. .
1. : .
2. : 1!+2!+...+n!.
3. : sin x+sin 2x+sin 3x +.(n ).
4. : cos(x)+cos(cos(x))+... +cos(...cos(x)) (n c).
5. : 1*2+2*3+...+n*(n+1).
6. n. 21+22++2n.
7. n. S= (n )
8. n. n! ()
9. : = (1 + )(3+2)(5+3).... (n )
10. c e=10-4.
11. c e=10-6.
12. 1626 20 . 4%, 2003 ?
13. c S p% . : ) ? ) 10 ?
14. , 10 , 10%. ? 15 ?
|
|
15. P . Q , . , ?
16. , 007 , . , . , , 2?
17. , 7.
18. , abcd, :1) a, b, c, d - 2) ab-cd=a+b+c+d. ab , a b.19. (0)=1, (1)=1, (i)=a(i-1)+a(i-2). . : ) N- . ) N .
20. , n .
21. n.
22. , n . ́ , (. . , ́ ). , 6=1+2+3
23. - .
24. () .
25. 2; 5; . , , 50.
26. 22; 18; . .
27. y= sin2 x cos x [-p,p] p/10.
28. , - - , . . , A = 20, B = 10 : 2 10;
A = 20, B = 15 : 1 15, 3 5.