:
1. ?
2. ?
3. ?
4. , ?
5. ?
6. ()?
7. ?
:
1. 
x 
h=0,1.
2. 
, 
. y 
.
3. z y: 
, 
. x 
.
4. 
. x 
.
5. 
. 0,1.
6. 
, 0,1 .
7. 
. 0,1.
8. 
x 
, . y, 
.
9. 
, 0,5; x h .
10. 
.
0,5. b=3,5: c=1,8.
11. 
. a .
12. 
x [1,52,5] 0,1. z, z<1, y, 1<y<3.
13. z : 
. y 
0,5.
14. 
. a [1..12] 1,0.
15. 
, , x [0..1] 0,1, [1..2] 0,2.
16. a, b 
, a b.
17. 
0,1.
18. 10 x 2.
19. y, y>5z, 
, 
. x [1,53,5] h=0,1.
20. 
h=0,5.
:
:
1. .. TURBO PASCAL , 2002 .-492 .
2. .. TURBO PASCAL 7.0.: 2002 .-367 .
3. .. TURBO PASCAL : 2001.-446 .
4. .. PASCAL 7.0/ . - : -ǻ,2002 .-517 .
5. .. TURBO PASCAL 7.0/. -: 2001 .-491 .
6. .., .. . ,2003 . 43 .
|
|
|
7. .. TURBO PASCAL 7.0 . : 2002 .-349 .
:
1. . 7.0. - .: -, 1993. - 288 .
2. ., . TURBO PASCAL . -2002 .-256 .
3. ., . . : . . - .: , 1982. - 151 .
4. .., .. TURBO PASCAL 7.0 . : 2002 .-456 .
5. . : . .- .: , 1986. - 288 .
6. .. TURBO PASCAL 7.0/ . .-:-2003 .-1033 .
7. .. . -: -2002 .
:
. . ( if, case goto ). .
. , , ( ). , :
if <> then <1> else <2>;
(, , ), , , begin end. , else . else .
: m=max(a,b). :
if a>b then m:=a else m:=b;
, : else if. , else if, :
(case). , . if, , , , . :
case of
1: 1;
2: 2;
...
N: N;
[else N1;]
end;
, else .
. :
1. , case. , , , .
|
|
|
2. , : 1..5, 'a'..'z'.
3. , : 1,3,5..8,10,12.
case : case , - , . , , . case else, else, , .
goto , , , , , .
, , , . ( ) label 1,2,3.
1 9999. .
: 
, 
. y 
.
 -:
| -:
1-
2- y=0
3- , y<1 4-, 10-, .. .
4- , y>=0,5 6-, 5-
5- 6- x y
7- - z x
8- , z.
9- - y. 3-, .. , .
10- -
|
:
Program PRS;
Label 1;
Var z,x,y,h:real;
Begin
y:=0; h:=0.05;
1: if y<1 then begin
if y>=0.5 then x:=sqr(y)+y+1
else x:=y-1;
z:=2*x-7;
write (z=,z);
y:=y+h; goto 1;
end;
end.
4
( )
:
1. , ?
2. ?
3. ?
4. , , ?
5. ?
6. ?
:
:
1. 
(: e).
2. 
(: 1/e).
3. 
(: ln2).
4. 
(: 2).
5. 
(: 2/3).
6. 
(: 
/4).
7. 
(: 1).
8. 
(: 1/2).
9. 
(: 3/4).
10. 
(:1/2- /8).
11. 
(: 1/4).
12. 
(: 
).
13. 
(: 
).
14. 
(: 
).
15. 
(: 
).
16. 
(: 
).
17. 
(: 
).
18. 
(: 
).
19. 
(: 
). k=1 
.
20. 
(: 
). k=1 .
:
:
1. .. TURBO PASCAL , 2002 .-492 .
2. .. TURBO PASCAL 7.0.: 2002 .-367 .
3. .. TURBO PASCAL : 2001.-446 .
4. .. PASCAL 7.0/ . - : -ǻ,2002 .-517 .
5. .. TURBO PASCAL 7.0/. -: 2001 .-491 .
6. .., .. . ,2003 . 43 .
7. .. TURBO PASCAL 7.0 . : 2002 .-349 .
|
|
|
:
1. . 7.0. - .: -, 1993. - 288 .
2. ., . TURBO PASCAL . -2002 .-256 .
3. ., . . : . . - .: , 1982. - 151 .
4. .., .. TURBO PASCAL 7.0 . : 2002 .-456 .
5. . : . .- .: , 1986. - 288 .
6. .. TURBO PASCAL 7.0/ . .-:-2003 .-1033 .
7. .. . -: -2002 .
:
. : , , , . . , ( ) , . , , . 3 : For, While Repeat. , For. While Repeat.
( ) :
for :=< > to < > do <>;
to downto.
: 2 20.
var i: integer;
begin
for i:=2 to 20 do
writeln(i,' ',sqr(i));
end.
: i (2), ( ), i 1, , i (20). , , 1, . . , to downto, : , . , , :
for i:=20 downto 2 do writeln(i,' ',sqr(i));
: , n . .
-:
| -:
1-
2- (n)
3- Summ=0 ( Summ ).
4- . .
5- . , .. 
6-
7-
|
program summa;
var n: integer;
summ: integer;
i: integer;
begin
write ( );
readln (n);
summ:=0;
for i:=1 to n do
summ:=summ+i;
write( ,n, );
writeln (,Summ);
end.
5
