:
e-mail:karaul911@mail.ru


      |    |    |

 

00

( 00)

 

1

, . , .

: , , .

 

a

: a mod 2 2 (.. 0 1).

 

2

, , : , - .

 

,

: b , , k ,nb , .

 

 

 

" " ( - )

(1 )

1 1 " ". .

1. ^ ?

1)    - ;

2)    - - ;

3)    - - ;

4)    .

2. ?

1)    ;

2)    ;

3)    ;

4)    .

3. ?

1); 3) ; 5) ;

2) ; 4) ; 6) .

4. ?

1)     .

2)     .

3)  .

4)     ,

. 5. ?

1)    ; 3) ; 5) ;

2)    ; 4) ; 6) .

2 2 "".

. 1. ?

1)    ;

2) ;

3)    ;

4)    .

2. ?

1)     FILE; 3) VIEW; 5) RUN;

2)     EDIT; 4) SEARCH; 6) DEBUG. 3. ?

 

1)     FILE; 3) VIEW; 5) RUN;

2)     EDIT; 4) SEARCH; 6) DEBUG.

4. {AIt-F,X}?

1)    ;

2)    ;

3) ;

4)    ;

5)    ;

6) .

5. , ?

1)     Shift-Del; 3) Shift-Ins; 5) Alt-F.O;

2)     Ctrl-Ins; 4)Alt-F,S; 6)Shift-F5.

3

3 " " : " ", "" " ".

.

1. ?

 

 

 

 

 

5%; 3) %; 5) COST;

1)    CI; 4)2C; 6) AGE.

2. , .

LINE, ITEMS, PENSEL, FNAME, 4KLASS, PAINTS, INT56, PRICE.COOKIES, OFF, DATAFN

1)    LINE, ITEMS, PRICE.COOKIES,PENSEL, DATAFN;

2)    ITEMS, PENSEL, INT56, PRICE.COOKIES, DATAFN;

3) PRICE.COOKIES.PENSEL, ITEMS, DATAFN;

4) FNAME, INT56, PRICE.COOKIES, PENSEL, DATAFN;

5)    DATAFN, PAINTS, ITEMS, PENSEL, INT56;

6) ITEMS, 4KLASS, PRICE.COOKIES, DATAFN, INT56; 3. 2 ?

 

1)     ;

2)     ;

3)     ;

4)  .

4. 8 ?

1) .

2) ;

3)     ;

4)     ;

5. , ,

1)     ;

2)     ;

3)     ;

4)  ;

5)     ;

6)  .

4 3 : "" " ", "", " ", " ". .

1. , ci ?

1)     ;

2)     ;

3)  ;

4)     .

2. ?

1)     ;

2)     ;

3)  ;

4)  ;

5)     ;

6)     .

3. ?

1)4.2; 3)1 5; 5) 7.2ŗ4;

2) .005; 4) 5.6+4; 6) 8-^.5.

4. ?

1)534.067; 3)793.5#; 5)765;

2)29.5!; 4)3.18-4; 6) "123.98734567".

5. , ?

10 = 55.8834567#: % = 2.5

20 PRINT ; %

1)55.88346 2; 3)55.88346 2.5; 5)56 3;

2) 55.8834567 3; 4) 55.88345670000000 3; 6) 55.8834567 2.50000.

6. , .

1)    LET "SUZU"=N$; 3) LET $= ;

2)    LET N="AEBEflE"; 4) LET C=5.

5 3 : "", " ". .

1. , 5, 7, 18?

1) DIM A(5,7,18); 4) DIM C!(5,7,18);

2)DIMC$(5,7,18); 5) DIM M#(5,7,18);

3) DIM ABC%(5,7,18); 6) DIM K%(0,5,7,18).

2. ?

1) 10DEFINTA, , 3) 10 DEFINT , ,
20 DIM M(3)
20 DIM K(2)

30 LET M(0)=6: (1)=8 30 (0)=15: (1)=6

40 LET M(2)=M(0)(1) 40 SUM%=K(0)+K(1)

2) 10DEFSNGA.K, 4) 10 DEFINT , ,
20DIMA(7)
20DIMA(1)


30 LET M%=2: A(M%)=0.45: 30 A(0)=3: A(l)=13

40 LET M%=4: A(M%)=A(2)+M% 40 KS=A(1)A(0)
3. ?

1)         10DIMABC(3,3) 3) 10 DIM A< 1,3) 20(1,1)=99 20(0,0)=78 30 (2,0)=66 30 DIM A%(15) 40 (1,3)=(1)30 40 %(2)=(0,0)

2)         10DEFSNGA, 4) 10 DIM M(6), $(4) 20 DIM (7), $(4) 20$(1)="" 30 LET (6)=0.45: 30 ERASE A, M

40 LET K$(2)=A(6) 40 DIM M(9), $(13)

4. . , .

) 11 DIM A (40, 10), $ (50) ) 45 DIM X (20,5)

) 60 DIM A$(60,80) ) 34 DIM A (20, 45), $ (12)=85

1)     , , ; 3) , , ; 5) , ;

2)  , , ; 4) , ; 6) , .

5, " . , .

a)34LETA(Y$)=10*R+l ) 35 AS (X) = $

) 20 (3, 4) = 50 ) 65 LET (1)= 135

1)    , , ; 3) , ; 5) , ;

2)    , , ; 4) , ; 6) , .

4 " " " ". .

1. . , .

) 90 READ ) 74 DATA ) 40 DATA 45, 9-3, 2.6

) 90 DATA 3, 2, .5,-7 ) 20 RESTORE 10 ) 56 READ NAME, ADDRESS

1)     , ; 3) , ; 5) , ;

2)     , , ; 4),, ,; 6) , , .

2. . , .

) 90 READ AS, B$, C$ ) 74 DATA 314, " ", 45

) 40 READ " " ) 130 DATA 4+5, 8, STATION#l, 1+2

) 20 READ "DATA" e) 44 DATA , 89, , 90, , 78

1), , ; 3),; 5) , , , ;

2) , , , ; 4) , ; 6) , , .

3. , ?

) 10 READ , X. ) 10 READ , X, ) 10 READ , X,

20 DATA 12 20 DATA , 9, 20 20 DATA 12, 3

30 DATA 4, 5

1), , ; 3)6; 5) , ;

2) ; 4) ; 6) , .

4. . , .

) 90 INPUT 1,3,5 ) 63 INPUT " "; F

) 99 INPUT , , ) 58 INPUT

) 77 INPUT ) 12 INPUT A, B$,

1)6, ; 3),; 5),,;

2),; 4) , , ; 6) , , .

5. , ?

) 10 READ $, , ) 10 READ X$, Y$ ) 10 READ X, ,

20 READ 9, 20, 70 20 DATA , , 20 DATA'9', 20, 70

1)6, ; 3), ; 5) , , ;

2) , ; 4) ; 6) .

7 4 " ". .

1. . , .

) 50 PRINT F$="M3PH" ) 72 PRINT " "; $

) 99 PRINT , ) 45 PRINT 12

1) , ; 3) , ; 5) , ;

2),; 4) , ; 6) .

2. ?

10 LET A = 12 40 PRINT A+B

20 PRINT A 50 DATA 8, 10

30 READ , 60 END

1)12 3)12 18

18 4) ,

2)12 18


3. ? 10 LET RS= "" 20LETX%=12 30 PRINT "" 40 PRINT R$ 50 PRINT X%

60 PRINT R$; " "; X% 70 END

1) ! 2 3)
12

12

3 2

2) 12 4)

12

12 12

4. . .

) 15 PRINT ; "" ) 55 PRINT X ;

) 28 PRINT "Y" : ) 10 PRINT " "
1), 6;
3), ; 5) , ;

2) , ; 4) , ; 6) .

5. ( ) ?

1)10 PRINT 3) 35 PRINT A , 5) 15 PRINT A ; ;

2) 20 PRINT "A" , ,"" 4) 25 PRINT A ; 6) 18 PRINT A :

8 4 " ". .

I. : 22/2*4+11-2/.3.

~>2 2 - 22 2

1)~(4 + )- ; )^4 + -3-3; 5)^x4 + 11 ;

2 .3 2 2 .3

22 32 22 - 22 3'

2(4711)" : 4)(4 + 11-3)3; 6)^ + ~

2. : 4+2/58+42.

1)4+2 -; )4 + -^- + 42; 5)4 + --(8 + 4)2;

(5-8 + 4)2 5-8 5

4 + 2 4_^42. (4 + 2>

2) - . 4)4 + 8+4; 6)-------- --8 + 42.

5-8 + 42 ' 5 5

5, : (.3/.9*39)1/3.

.3

■3 l^r-9

'>3-9; ; 3)V-9x3 J- ;)U-9x3-9)

'2)^-^-; 4)k_l_Z; 6)[|x(3-9)j.

2+42
4. : --------------

5x8

1)     (2+4)2/5*8; 3) 2+42/(5*8); 5)(2+42)/(5*8);

2)     (2+4)2/(5*8); 4) 2+42/5*8; 6) (2+42)/5*8. 5. ?

 

1)     ; 3) ; 5) ;

2)  ; 4) ; 6) . . ?

 

1)    (S+X+Y)/3; 3) KS=V4=M$; 5) 5*3/2;

2)    ==; 4) <0; 6) 13 MOD 7.

9 4 "".

. 1. ,

1)    RIGHTS; 3) LEFTS; 5) MID$;

2) FIX; 4) STRINGS; 6) INSTR.

2. ?

10 $= "PALINDROME" 20 PRINT LEFTS (AS, 2) 30 PRINT RIGHTS (A$,2) 40 PRINT MIDS (A$.7,4)


50 END

1) ME 3) PA 5) PAMEROME
PA ME

ROME ROME

2)MEPAROME 4) PA 6) PA ME ROME

ME

INDROME 3, . , .

) 23 $ = LEFTS(V$, 3, 4) ) 56 MS = $ ($)

) 48 MID (X$, 1,2) ) 18 PRINT RIGHTS (S$,4)

1); 3) , ; 5) , ;

2) , ; 4) , ; 6) .

4. . , .

) 100 DEF FNP () ) 22 LET X = FNA(Y) ) 66 FNA = 9

) 71 DEF FNB (, , ) ) 75 DEF FNP=XA22*X+1 e) 12 DEF FNF (X) = X*4

1)     a, 6; 3) , , e; 5) a, r;

2)     6, e; 4) , , ; 6) a, r, .

5. . , .

) 63 PRINT VAL("157.3#") ) 70 PRINT CDBL(10%/0%) ) 40 PRINT VAL("517.23!") ) 90 S%=VAL("cyMMa=90") ) 20 PRINT FIX(A): INT(A) e) 89 LET V%= 10*RND(0)

1)    , , ; ) , , ; 5) r, e;

2)    a, 6,r; 4) , ,; 6) .

10 5 " " : " ", " ".

.

1. . , .

) 88 GOTO X ) 55 GOTO END ) 65 IF Y=76 THEN PRINT ""

) 85 IF W= 100 THEN Z=Z+1 ) 35 IF S=9 THEN 36 e) 2 IF G=T AND H=T THEN 45

1), , e; 3)a,r, e; 5) r, e;

2) , , , , , e; 4) , , ; 6) , , , .

2. . , .

) 70 IF X+Y>57 THEN 100 ) 56 IF A=B$ THEN GOTO 120

) 22 IF $<"" THEN 42 ) 71 IF INT X=2 THEN 55

) 8 IF "END">N$ THEN PRINT "" ) 75 IF ="" PRINT ""

1),, ; 3), ,, ; 5) , , ;

2) , , ; 4) , , ; 6) , .

3, . ,
.
) 70
IF $= THEN 80 ) 60 IF A$=B$ THEN 100

) 25 IF " ">" " THEN 60 ) 22 IF $="" THEN END
) 60 IF G$=234 THEN 100 e) 65 IF A$=B$=C$ THEN 100

1),, ; 3),; 5) , ,

2) , ; 4) , ; 6) , , .

4. ? 10LETY = 31.4 20 IF INT (Y) = Y THEN 55 30 PRINT "HALLOWEN" 40LETY = Y/2-5.7 50 GOTO 20

55 PRINT "PUMPKINS" 60LETP = Y+1 70IFP<> 10 THEN 100 80 GOTO 20 100 END

1)   HALLOWEEN 3) HALLOWEEN HALLOWEEN PUMPKINS PUMPKINS

2)   PUMPKINS 4) PUMPKINS

HALLOWEEN

5, , . 18 , , , , . ?

1) 10 PRINT " "; 3) 10 PRINT " ";

20 INPUT A 20 INPUT A%

30 IF % >= 18 THEN 100 30 IF A% >= 18 THEN 120

40 PRINT " 40 PRINT " "; 18-%;
"; 18-%; ""
""


50 GOTO 120

100 PRINT " "

120 END

2) 10 PRINT " "; 20 INPUT A% 30IFA%<=18THEN100 40 PRINT "

"; 18-%; "" 50 GOTO 120

100 PRINT " " 120 END


50 GOTO 120

100 PRINT " "

120 END

4) 10 PRINT " "; 20 INPUT % 30 IF A%>=18 THEN 100 40 PRINT " ":

18-%;"" 50 GOTO 120

100 PRINT " " 120 END


" " ( - )

(2 )

11 5 "" " WHILE WEND". .

1. . , .

) 67 FOR X = STEP ) 80 FOR X = 1-5

) 20 FOR = 4 ! 2 STEP 2 ) 50 STEP 5

1),; 3),; 5) ;

2) , , ; 4) ; 6) , .

2. . , .

a)25NEXT10 ) FOR Y = 112TO 56 STEP12

) 45 NEXT STEP ) LET X = 1 25 STEP 5

1)    ; 3) ; 5) , ;

2)    ; 4) , ; 6) , , .

3. . , .

) 67 NEXT 2 ) 10 FOR G = 100 0 STEP

) 8 NEXT r) FOR 4*B STEP --5

1)6, ; 3),; 5) ;

2) , ; 4) ; 6) , .

4. ?

10 INPUT F

20 FOR X = 1 F

30 PRINT ""

40 PRINT

50 NEXT X

60 IF X = F THEN 80

70 PRINT ""

80 PRINT ""

90 END

1) ? 2 ( ) ) ? 2 ( )

2) ? 2 ( ) 4) ? 2 ( )

5. 9 , . ?

1) 5 DEFINT X, G 3) 5 DEFINT X, G
10
FORX=1T0 9 10FORX=lTO9

20 PRINT " "; X; 20 PRINT " "; X;

" 9" " 9"

30 INPUT G 30 INPUT G

40 IF G = X*9 THEN 100 40 IF G = X*9 THEN 100

50 PRINT "" 50 PRINT ""

60 GOTO 115 60 GOTO 100

100 PRINT " " 100 PRINT " "

105 C% = C%+1 105 C% = C%+1

110 NEXT X 110 NEXT X

115 PRINT " "; C% 115 PRINT " "; C%

i 20 END 120 END

2) 5 DEFINT X, G 4) 5 DEFINT X, G
10FORX= 1 TO 9 STEP 2
10FORX=lTO9

20 PRINT " "; X; 20 PRINT " "; X;


" 9" 30 INPUT G

40IFG = X*9THEN100 50 PRINT "" 60 GOTO 110 100 PRINT "" 105C% = C%+1 NEXTX

115 PRINT " 120 END


-";C%


" 9" 30 INPUT G

40IFG = X*9THEN100 50 PRINT "" 60 GOTO 110 100 PRINT "" 105C% = C%+1 110 NEXT X

115 PRINT " 120 END


C%


-

12 5 "" " WHILE WEND'' "".

.

1. . , ; .

) 20 FOR = 1 10 WHILE < 5 ) 80 WEND X
) 60
WHILE $ = "" ) 50 WEND F = 45

1); 3),; 5) , ;

2) ; 4) ; 6) , .

2. ? 10 WHILE C$ <> "" 20 READ C$, $ 30 PRINT " ";$ 40 PRINT E$ 50 WEND

20

23, , 20, , 18, ,

3)
23

20

18

4)
23

20

60 DATA ,

1)
23

:

20

:

2) 23
20
18


3. . WHILE WEND ? DATA . : , . , . ?

3) 10 WHILE Q$ < "" 20 READ Q$, A$

30 PRINT "'

40 INPUT G$

50 IF AS = G$ THEN PRINT "" ELSE PRINT

"" 60 WEND 70 DATA , , , ,

, 80 END

4) 10 WHILE Q$ <> "" 20 READ Q$, AS 30 PRINT " "; Q$ 40 INPUT G$ 50 IF AS = G$ THEN PRINT "" ELSE PRINT

"" 60 NEXT 70 DATA , , , ,

, 80 END

;Q$

1)10 WHILE Q$ <> "" 20 READ Q$, A$ 30 PRINT " "; Q$ 40 INPUT G$ 50 IF A$ = G$ THEN PRINT "" ELSE PRINT

"" 60 WEND 70 DATA , , ,

, 80 END

2) 10 WHILE Q$ <> "" 20 READ Q$, AS 30 PRINT " "; Q$ 40 INPUT G$ 50 IF AS <> GS THEN PRINT "" ELSE PRINT

"" 60 WEND 70 DATA , , , ,

, 80 END

4. . , .

) 78 RETURN 100 ) 84 ON S GOSUB 100, 100, 500, 800

) 54 ON X$ GOSUB 100, 300, 400 ) 50 ON S GOSUB

, ; 3) ; 5) ;

2) , , ; 4) , ; 6) , .

5. ? , .


1)5 DEFINT X 10 INPUT " "; F$ 20 GOTO 500

""

30 PRINT FS; " "; X 40 GOTO 550 500 READ NS,X 510IFN$=F$THEN530 520 GOTO 500 530 RETURN

535 DATA , 18, , 120, , 60 540 DATA , 35, , 25, , 1840 550 END

2) 5 DEFINT X 10 INPUT " "; F$ 20 GOSUB 500

30 PRINT FS; " "; X; "" 40 GOTO 550 500 READ N$, X 510 IF X=F$ THEN 530 520 GOTO 500 530 RETURN

535 DATA , 18, , 120, , 60 540 DATA , 35, , 25, . 1840 550 END


3) 5 DEFINT X

10 INPUT " " ;F$

20 GOSUB 500

30 PRINT F$; " "; X; ""

40 GOTO 550

500 READ NS.X

510IFNS=FSTHEN550

520 GOTO 500

530 RETURN

535 DATA , 18, , 120, , 60

540 DATA , 35, , 25, , 1840

550 END

4) 5 DEFINT X

10 INPUT " " ;FS

20 GOSUB 500

'"

30 PRINT F$; " "; X;

40 GOTO 550

500 READ N$, X

510IFN$=F$THEN530

520 GOTO 500

530 RETURN

120, , 60

25, , 1840

535 DATA , 18, ,

540 DATA , 35, ,

550 END


13 rf 6 " " " ".

.

1. . , .

) 20 SCREEN : WIDHT 40 ) 15 SCREEN 0 ; WIDHT 40

) 54 SCREEN 0 ) 30 CHR$(12)

) 25 WIDHT 80 ) 70 CLS

1),, ; 3), , ; 5) , ;

2) , , ; 4) , , , ; 6) , , ,,.

2. 40- , : 50 CLS: PRINT TAB(25);" "

1)     25 ; 3) 25 ;

2)     1 ; 4) 1 .

3. . , .

) 70 PRINT (): $ ) 43 LOCATE 2*X, Y+15

) 15 LOCATE 15 ) 100 (13); " "

) 30 PRINT (20); , %, !, Z# e) 50 LOCATE 15,85

1), , ; 3) , ; 5),;

2) , , ; 4) ; 6) , , .

4. 24- ?

1)     ;

2)     ;

3)     ;

4)  .

5. ?

1)     PRINT 3) LOCATE 5) CLS

2)     TAB ( ) 4) PRINT CHR$ ( ) 6) WIDTH

14 6 " ". .

1. ? 20 INPUT; " ", N$ 30 PRINT " !"

1) ! 3>

!

2) ? !

4) ? !

2. ?

1)     LINE INPUT 3) INPUT

2)     INKEYS 4) INPUTS . LINE INPUT?

-\ f"rri,f *


'


3)     , ;

4)     ;

5)     , , , ..;

6)  . 4. . ,


;C

) 15 LINE INPUT S$ ) 48 K=INPUT$(1) ) 57 R$=INKEY$

1),;

2) , , ;


) 43 LET INKEY$=A$

) 99 LINE INPUT "'

e) 11 LINE INPUT

3) , ; 5) a, 6,

;

4) ,;

6) , , .


15 7 " " " ". .

1. ?

1)

, .

2) .

3)    .

4)    .

2. ?

1)    .

2)    .

3)    .

4)    . 3. ?

 

1)    ; 3) ;

2)    ; 4) .

16 7 : " ", " ". .

1. . , .

) 29 OPEN "GAMES.DAT" FOR OUTPUT #2 ) 43 OPEN NS FOR INPUT AS #4

) 95 OPEN "A:ITEM.DAT" r) 99 CLOSE

, ; 3) , ; 5) , ;

2) , , ; 4),; 6) , .

2. , GAMES, 9

1)10 OPEN "GAMES" FOR INPUT AS #1 3) 10 OPEN "GAMES" FOR OUTPUT AS #1

20 FOR X - 1 TO 5 20 FOR X = 1 TO 5

30 INPUT " "; F$ 30 INPUT " "; F$

40 PRINT # 1. FS 40 PRINT # 1

50 NEXT X 50 NEXT X

60 CLOSE #1 60 CLOSE #1

70 END 70 END

2) 10 OPEN "GAMES" FOR OUTPUT AS #1 20 FOR X = 1 TO 5

30 INPUT " " 40 PRINT #1,F$

50 NEXT X 60 CLOSE #1 70 END

F$

4) 10 OPEN "GAMES" FOR OUTPUT AS #1
20 FOR X = 1 TO 5
F$
30 INPUT " "

40 INPUT #1,F$ 50 NEXT X 60 CLOSE #1 70 END

. , ,
.
9
1)10 OPEN "GAMES" FOR INPUT AS #2 3) 10 OPEN "GAMES" FOR INPUT AS #2

20 FOR X = 1 TO 5 20 FOR X = 1 TO 5

30 INPUT #2, G$ 30 PRINT #2, GS

40 PRINT G$ 40 INPUT G$

50 NEXT X 50 NEXT X

60 CLOSE #2 60 CLOSE #2

70 END 70 END


2) 10 OPEN "GAMES" FOR APPEND AS #2 20 FOR X = 1 TO 5 30 INPUT #2, G$ 40 PRINT G$ 50 NEXT X 60 CLOSE #2 70 END


4) 10 OPEN "GAMES" FOR INPUT AS #2 20 FOR X = 1 TO 5

30 INPUT #2 40 PRINT #2 50 NEXT X 60 CLOSE #2

70 END


 


4. , ,
, , .
?
1)10 OPEN "DRESS" FOR INPUT AS # 1
3) 10 OPEN "DRESS" FOR OUTPUT AS # 1

20 FOR X = 1 TO 5 20 FOR X = 1 TO 5

30 INPUT " "; S$, C$, P 30 INPUT " "; S$, C$, P

40PRINT#1,S$; ",";C$; ",";P 40 PRINT #1, S$; C$; P

50 NEXT X 50 NEXT X

60 CLOSE # 1 60 CLOSE # 1

FNn 70 END


:


4) 10 OPEN "DRESS" FOR OUTPUT AS #1 20 FOR X = 1 TO 5

30 INPUT " "; S, , 40 PRINT#1,S$; ",";C$; ",";P 50 NEXT X 60 CLOSE #1 70 END

2) 10 OPEN "DRESS" FOR OUTPUT AS #1 20 FOR X = 1 TO 5

30 INPUT " "; S$, C$, P 40 PRINT #1,S$; ",";C$; ",";P 50 NEXT X 60 CLOSE #1 70 END

5. , , ,
. ( ).
?
1)10 OPEN "DRESS" FOR INPUT AS #2
3) 10 OPEN "DRESS" FOR INPUT AS #2

20 FOR X = 1 TO 5 20 FOR X = 1 TO 5

30 INPUT #2, S$, C$, P 30 INPUT #2, 5$, C$, P

40 PRINT SS; C$; P 40 PRINT S$, CS, P

50 NEXT X 50 NEXT X

60 CLOSE #2 . 60 CLOSE #2

70 END 70 END


2)10 OPEN "DRESS" FOR INPUT AS #2 20 FOR X = 1 TO 5 30 INPUT SS, C$, P 40 PRINT S$, CS, P 50 NEXT X 60 CLOSE #2 70 END


4) 10 OPEN "DRESS" FOR OUTPUT AS #2 20 FOR X = 1 TO 5 30 INPUT #2, SS, C$, P 40 PRINT S$, C$, P 50 NEXT X 60 CLOSE #2 70 END


* 17

8 " " : " ", " " " PSET". . 1. ?

1)     .

2)  .

3)     -.

4)  SCREEN 1.

2. - ?

1)     80 SCREEN 1": COLOR 2, 15 3) 80 SCREEN 2 ; COLOR 2, 15 5) 80 SCREEN 1 : COLOR 15, 2

2)     80 SCREEN 0 : COLOR 15, 2 4) 80 SCREEN 0 : COLOR 2, 15 6) 80 SCREEN 2 : COLOR 15, 2 . . ,

.

) 29 SCREEN 2: COLOR 3, 5 ) 66 SCREEN 0: COLOR 5

) 95 COLOR ,7 ) 53 SCREEN 1: COLOR , 0

1)     , ; 3)6, ; 5) , , ;

2)     , ; 4) , , : 6) , .

18 8 " " : " " " PSET".

.

1. , X Y , N (X,Y) . ?

1)2000 REM 3)2000 REM

2010 FOR 1=1 TON 2010 FOR 1=1 TON

2020 PSET(X, Y) 2020 PSET(X+I1, Y)

2030 NEXT I 2030 NEXT I

2040 RETURN 2040 RETURN


2)2000 REM 2010 FOR 1=1 TON

2020PSET(X, Y+I i) 2030 NEXT I 2040 RETURN

4)2000 REM 2010 FOR 1=1 TON 2020 PSET(X+I, Y) 2030 NEXT I 2040 RETURN

2. , X Y
, (
X,Y) .
?
1)2200
REM 3)2200 REM

2210 FOR 1=1 2210 FOR 1=1

2220 PSET(X, Y+I) 2220 PSET(X+I1, Y)

2230 NEXT I 2230 NEXT I

2240 RETURN 2240 RETURN


2)2200 REM

2210 FOR 1=1 2220PSET(X, Y+I1) 2230 NEXT I 2240 RETURN


4)2200 REM 2210 FOR 1=1 TOM 2220 PSET(X+I, Y+I1) 2230 NEXT I 2240 RETURN


3. , .
. ?
1)1000
REM 3)1000 REM

1010 GOSUB 2200 1010 GOSUB 2000

1020 LET X =X+N1 1030 GOSUB 2200

1030 GOSUB 2000


2)1000 REM 1010 GOSUB 2000 1020 LET X=X+Ni

1030 GOSUB 2200


4)1000 REM 1010 GOSUB 2000 1020 LET X=X+N 1030 GOSUB 2200


4. LINE.

1)2000 REM 3)2000 REM

2010 LINE (X, Y) (X+N 1,Y) 2010 LINE (X, Y) (XN+l.Y)

2020 RETURN 2020 RETURN

2)2000 REM 4)2000 REM

2010 LINE (X,Y) (X+N,Y) ' 2010 LINE (X, Y) (X,Y+N1)

2020 RETURN 2040 RETURN

5.

30 25, ?

1)2000 LINE (160, 71) (184, 100), 2, BF 3)2000 LINE (160, 100) (184, 129), 2, BF

2)2000 LINE (184, 100) (160, 129), 2, 4)2000 LINE (160, 71) (184, 100), 2,

19 8 " " " ".

.

1. PAINT?

1)    ;

2)    ;

3) ;

4) ;

5)    ;

6) .

2. , 9 12 ( ), 80 160, 100?

1)    20 CIRCLE (160,100), 40, 2, 1.570796, 3.141593

2)    20 CIRCLE (160,100), 80, 1, 1.570796,3.141593 3)20 CIRCLE (160,100), 40, 2, 3.141593, 1.570796 4) 20 CIRCLE (160,100), 80, 1.570796,3.141593

3. 160, 100.
10, 50, . :
?
1)100
FOR 1=10 50 STEP 10 3)100 FOR 1=10 50

CIRCLE (160,100),I,2 110 CIRCLE (160,100),5,2

120 NEXT I 120 NEXT I


2)100 FOR 1=10 50 CIRCLE (160.100),I,2,0,6.2831 120 NEXT I


86


4)100 FOR 1=10 TO 50 STEP 10 110 CIRCLE (160,100),I,2, 120 NEXT I


4. , 6 9 ( ), 90 160, 100?

1)     20 CIRCLE (160, 100), 90, 2, 3.141593, 4.712388

2)     20 CIRCLE (160, 100), 90, 1,-3.141593,-4.712388

3)     20 CIRCLE (160, 100), 90, 2, 3.141593, 3.926990

4)     20 CIRCLE (160, 100), 90, 3.141593, 4.712388

5. 160, 100, 80 50?

1)     20 CIRCLE (160, 100), 80, 40, 8/5

2)     20 CIRCLE (160, 100), 80, 2, 0, 6.283186, 5/8

3)     20 CIRCLE (160, 100), 80, 2, 0. 6.283186, 8/5

4)     20 CIRCLE (160, 100), 40, 3,,, 1.6

20 8 " " " ". . 1. ?

1)D; 3)R; 5) G;

2) U; 4) L; 6) H.

2. ?

1)      10 DRAW "M160,100F60L120E60"

2)      10 DRAW "F60L120E60"

3)      10 DRAW "M160,100F60L100E60"

4)      10 DRAW "M160,100E60R120F60"

 

 

 

 

" " ()

 

3

 

21

1 Ĕ.

.

1. FOXPRO?

1) ;

2) ;

3) ;

4) - .

2. ?

1) , , - ;

2) , , ;

3) , 1 2.

3. FOXPRO?

1) Nuntucket;

2) Fox software;

3)Borland;

4) Computer Associates;

5) Microsoft;

6) Ashton-Tate.

 

 

22

2 FOXPORO 2.0

.

1. ?

1) (, , ..);

2) ;

3) ;

2. ?

1) PRG;

2) FPT;

3) DBF;

4) PRG;

5) IDX;

6) FXP.

3. ?

1) FAMILY_NAME;

2) tab NOM;

3)2CODE_PRED

4) fam_NUM

 

 

4. ?

1) 1A(100);

2) tab(200,200);

3)sum_prem(12,100)

4) A(3,5,7)

 

 

5. , (, ) ?

1) AUTOEXEC.BAT;

2) CONFIG.SYS;

3) CONFIG.FP ( MVCOUNT);

 

23

3 Ĕ 4 .

.

1. .T. ?

1) =;

2) $;

3) Β==ʒ;

4) ==Β;

5) .NOT.(.F.OR.T.);

 

2. :

(= .AND. CD$CDF) OR X**2+Y**2 < 0

1) .T.

2) .F.

3) -1

3. :

BBCD$AB+BC-DE .AND. ZU== Z - U?

1) .T.

2) .F.

3)

4. ?

1) MODIFY PROGRAMM 3) SET STATUS ON 5) CREATE < >

2) USE < > 4) CREATE REPORT

5. <..>?

1) S DATE AMERICAN

2) SET DATE ANSI

3) SET DATE BRITISH/FRENCH

4) SET DATE GERMAN

5) SET DATE ITALIAN

 

24

5 , BROWSE-.

.

1. APPEND, INSERT, EDIT, CHANGE BROWSE?

1) ;

2) ;

3) : BROWSE-, - ;

2. ?

1) SET CARRY ON;

2) SET CARRY OFF;

3) SET CARRY TO <>;

3. ?

1) Ctrl-N- , Ctrl-T- , Ctrl-W/End - , Esc- ;

2) Ctrl-N- , Ctrl-T- , Ctrl-W/End - , Esc- ;

3) Ctrl-N- , Ctrl-T- , Ctrl-W/End - , Esc- .

25

5 , BROWSE- CHANGE/EDIT-

.

1. kadr.dbf , , 1965 . 1970 . ?

1)USE kadr

BROWSE FOR det>=2 AND ;

YEAR(dtr)>=1965 AND ;

YEAR( dtr)<=1971 ;

FIELDS fam :H=,;

dtr:H= ,;

sred_zar=szar/(det+1):H=.

2)USE kadr

BROWSE FOR det>=2 AND ;

dtr>=01.01.65 AND ;

dtr<=31.12.70 ;

FIELDS fam :H=,;

dtr:H= ,;

sred_zar=szar/(det+1):H=.

1) .

2) .

3) .

4) .

2 ?

1.USE kadr

INDEX ON DTOS(dtr) TO idtr

SET INDEX TO idtr

BROWS KEY DTOS(CTOD(22.06.40)),;

DTOS(CTOD(09.05.45))

2.USE kadr

INDEX ON DTOS(dtr) TO idtr

SET INDEX TO idtr

BROWS KEY 19400622,19450509

 

1) .

2) .

3) .

4) .

3. kadr.dbf . . ?

1) USE kadr.dbf

BROWSE FIELDS;

fam :H=,;

dtr:H= ,;

szar:H= ;

FREEZE szar NODELE

NOAPPEND

2) USE kadr.dbf

BROWSE FIELDS;

fam :H=,;

dtr:H= ,;

szar:H= ;

NODELE NOAPPEND

NOMODIFY

1) .

2) .

3) .

4) .

4. CHANGE/EDIT BROWSE.

1) .

2) WHILE- FOR- .

3) NOLGRID/NORGRID

 

 

26

6 .

.

1. ?

USE kadr

GO BOTTOM

n_rec=RECNO()

GO TOP

kol_rec=RECNO()-n_rec

? STR(kol_rec,9)

RETURN

1) kadr

2)

3) , , .

2. , ?

USE kadr

kol_rec=RECCOUNT()

n_rec=INT(kol_rec/2)

GO n_rec+1

RETURN

1)

2)

3) .

 

 

27

7 .

.

1. ?

1) DISPLAY ALL TO FILE kadr.txt

2) DISPLAY STRUCTURE TO FILE strkadr.txt

3) DISPLAY STRUCTURE TO PRINT

2. 1 ?

1

3. 1 ?

2

 

28

8 .

.

1. , 65 . ?

1) USE kadr

DELETE FOR YEAR(dtr)+65<YEAR(DATE())

PACK

RETURN

2) USE kadr

DELETE FOR GOMONTH(dtr*65)<DATE()

PACK

RETURN

1) .

2) .

3) .

4) .

2. ZAP ERASE.

1) ERASE , ZAP-

2) ERASE , ZAP-

3) ERASE , ZAP- ,

4) , 2 3.

3. - . , PACK?

1) USE kadr

SET DELETED OFF

2) USE kadr

LOCATE FOR DELETED()

3) USE kadr

RECALL ALL

 

29

9 .

.

1.

REPLACE ALL vir WITH vir*1.3

REPLACE FOR .T. vir WITH vir*1.3

1) .

2) , .

3) , .

2. brig1: rab- .

3 -10%,

3 5 - 20%

5 - 30%.

?

1) USE brig1

REPLACE FOR rab<3 vir WITH vir*1.1

REPLACE FOR rab>=3.OR.rab<5 vir WITH vir*1.2

REPLACE FOR rab>=5 vir WITH vir*1.3

RETURN

2) USE brig1

REPLACE FOR rab<3 vir WITH vir*1.1

REPLACE FOR rab>=3.AND.rab<5 vir WITH vir*1.2

REPLACE FOR rab>=5 vir WITH vir*1.3

RETURN

1) .

2) .

3) .

4) .

3. 2 ?

IIF() . 14.

USE brig1

REPLACE vir WITH IIF(rab<3,1.1,IIF(rab>=5,1.3,1.2))*vir

RETURN

1) .

2) .

3)

 

 

30

10 : .

.

1. SET FILTER TO

1) , SET FILTER TO

2) , SET FILTER TO .

3) .

2. , ?

1) SET FILTER TO det>=0 AND pol=

2) SET FILTER TO det>=0 OR pol=

3) SET FILTER TO det>0 AND pol=

3. FOUND(), EOF()

LOCATE FOR sem= AND sem=

1) FOUND()=.T., EOF()=.T.

2) .FOUND()=.T., EOF()=.F.

3) FOUND()=.F., EOF()=.T.

4) .FOUND()=.F., EOF()=.F.

4. ?

USE kadr

SET FILT TO pol=

? LOOKUP(tab,,fam), fam

RETURN

1) , Ȓ

2) Ȓ

3) .

 

 

 

4

 

 

31

10 : .

.

1. kadr.dbf , , . ?

1) INDEX ON pol+tab TO TAG poltab

2) INDEX ON STR(pol)+STR(tab) TO TAG poltab

3) INDEX ON pol+STR(tab) TO TAG poltab

2. kadr.dbf , , ,, . ?

1) INDEX ON fam+sem TO TAG SEMFAM

2) INDEX ON sem+fam TO TAG SEMFAM

3) INDEX ON STR(sem)+STR(fam) TO TAG SEMFAM

3. kadr.dbf , . ?

1) INDEX ON fam TO TAG WOMFAM FOR pol

2) INDEX ON pol+fam TO TAG WOMFAM

3) INDEX ON fam TO TAG WOMFAM FOR pol=

4. kadr.dbf : , , . ?

1) USE kadr 2) USE kadr

INDEX ON fam TO TAG fam INDEX ON fam TO TAG fam

INDEX ON tab TO TAG tab INDEX ON tab TO TAG tab, ADDI

RETURN SET ORDER TO TAG fam

RETURN

1) .

2) .

3) .

4) .

 

 

32

10 , .

.

1. , SEEK ?

1) SET NEAR OFF

2) SET NEAR TO

3) SET NEAR ON

2. 12 1960 . , ? . 14.

1) USE kadr

INDEX ON DTOC(dtr) TO TAG dtr

SET INDEX TO TAG dtr

SEEK DTOS({12.04.60})

RETURN

2) USE kadr

INDEX ON DTOS(dtr) TO TAG dtr

SET ORDER TO TAG dtr

SEEK DTOS({12.04.60})

RETURN

3) USE kadr

INDEX ON DTOS(dtr) TO TAG dtr

SET INDEX TO TAG dtr

SEEK {12.04.60}

RETURN

3. tab CDX-, 31, ( 4) ?

1) DELETE FILE kadr.CDX

2) DELETE TAG tab OF kadr.CDX

3) DELETE TAG tab

4. ?

1) SET INDEX OFF

2) SET ORDER OFF

3) SET ORDER TO

 

 

33

11 .

.

1. , , brig1 29, 2. ?

1) SELECT 0

USE brig1

INDEX ON tab TO TAG tab

SET ORDER TO TAG tab

SELECT 0

USE kadr

SET RELATION TO tab INTO brig1

LIST fam,tab,brig1.rab

RETURN

2) SELECT 0

USE brig1

SELECT 0

USE kadr

SET RELATION TO tab INTO brig1

LIST fam,tab,brig1.rab

RETURN

3) SELECT 0

USE brig1

INDEX ON tab TO TAG tab

SET ORDER TO tab

USE kadr

SET RELATION TO tab INTO brig1

LIST fam,tab,brig1.rab

RETURN

2. __?

1) INDEX ON ... TO ...

SET RELATION TO ... INTO ...

2) SET RELATION TO ... INTO ...

SET SKIP TO ...

3) SET RELATION TO ... INTO ...ADDITIVE

3. kadr brig3 brig5, . brig5. ?

1) SET RELATION TO

2) SET RELATION TO tab INTO c

3) SET RELATION OFF INTO b

 

34

12

.

1. A,B,C. ?

1) IF a>b

min=b

ENDIF

IF c<min

min=c

ENDIF

? A,B,C=, min

2) min=a

IF a>b

min=b

ENDIF

IF c<min

min=c

ENDIF

? A,B,C=, min

3) min=a

IF a>b

min=b

ENDIF

IF c<min

min=c

ENDIF

? A,B,C=, min

2. ? MAX(a,b) a,b.

DO CASE

CASE a>=MAX(b,c)

m=a

CASE b>=MAX(a,c)

m=b

CASE c>=MAX(b,a)

m=c

ENDCASE

? m

1) a,b,c

2) a,b,c

3. .

1) ? IIF(a<b,a,IIF(a=b, ,b))

2) ? IIF(a=b,a,IIF(a<b, ,b))

3) ? IIF(a>b,a,IIF(a=b, ,b))

 

35

13

.

1. . . ?

1) DO WHILE .T.

INPUT X TO x

IF x=0

EXIT

ENDIF

IF x<0

neg=neg+x**2

ELSE

poz=poz+x**2

ENDIF

ENDDO

RETURN

2) neg=0

poz=0

DO WHILE .T.

INPUT X TO x

IF x=0

EXIT

ENDIF

IF x<0

neg=neg+x**2

ELSE

poz=poz+x**2

ENDDO

RETURN

 

3) neg=0

poz=0

DO WHILE .T.

INPUT X TO x

IF x=0

EXIT

ENDIF

IF x<0

neg=neg+x**2

ELSE

poz=poz+x**2

ENDIF

RETURN

2. , , . ?

1) USE kadr

DO WHILE NOT EOF()

IF det>=3

LIST fam,tab

ENDIF

SKIP

ENDDO

RETURN

2) USE kadr

DO WHILE det>=3

LIST fam,tab

SKIP

ENDDO

RETURN

3) USE kadr

DO WHILE .T.

IF det>=3

LIST fam,tab

ENDIF

SKIP

ENDDO

RETURN

3. , , 25 . brig1. ?

1) SELECT 0

USE brig1

SELECT 0

USE kadr

SET RELATION TO tab INTO brig1

DO WHILE NOT EOF()

IF brig1.rab>25

LIST fam, brig1.rab

ENDIF

ENDDO

RETURN

 

2) SELECT 0

USE brig1

INDEX ON tab TO TAG tab

SELECT 0

USE kadr

SET RELATION TO tab INTO brig1

DO WHILE NOT EOF()

IF rab>25

LIST fam, brig1.rab

ENDIF

ENDDO

RETURN

3) SELECT 0

USE brig1

INDEX ON tab TO TAG tab

SELECT 0

USE kadr

SET RELATION TO tab INTO brig1

DO WHILE NOT EOF()

IF brig1.rab>25

LIST fam, brig1.rab

ENDIF

ENDDO

RETURN

 

4) SELECT 0

USE brig1

INDEX ON tab TO TAG tab

SELECT 0

USE kadr

SET RELATION TO tab INTO brig1

DO WHILE .T.

IF brig1.rab>25

LIST fam, brig1.rab

ENDIF

ENDDO

RETURN

 

36

13

.

1. 1 2*n-1. ?

1) m=2*n-1

FOR i=1 TO m STEP 2

s=s+i**2

ENDFOR

? = , s

 

2) s=0

m=2*n-1

FOR i=1 TO m STEP 2

s=s+i**2

ENDFOR

? = , s

3) s=0

m=2*n-1

FOR i=1 TO m

s=s+i**2

ENDFOR

? = , s

 

4) s=0

FOR i=1 TO m STEP 2

s=s+i**2

ENDFOR

? = , s

 

2. 35 2, SCAN ENDSCAN . ?

1) USE kadr

SCAN

IF det>=3

LIST fam,tab

ENDIF

SKIP

ENDSCAN

RETURN

2) USE kadr

SCAN

IF det>=3

LIST fam,tab

ENDIF

ENDSCAN

RETURN

3) USE kadr

SCAN FOR det>=3

LIST fam,tab

ENDSCAN

RETURN

4) USE kadr

LIST FOR det>=3 fam,tab

RETURN

3. . ?

1) ERASE *.IDX

2) ERASE *.CDX

3) ERASE *.IDX *.CDX

4) ERASE *.CDX

ERASE *.IDX

5) ! DEL *.CDX

! DEL *.IDX

6) ! RUN DEL *.CDX

 

 

37

14

.

1. ?

1) CEILING()

2) FLOOR()

3) INT()

4) RAND()

5) ROUND()

2. ?

? MAX(MIN({01.01.96},{31.12.94}),{01.06.95},{31.12.95})

1)    31.12.95

2)    01.01.96

3)    31.12.94

4)    01.06.95

3. , kadr.dbf?

1) BETWEEN(dtr,{01.01.71},{01.06.71}) 2) BETWEEN(dtr,{01.01.71},01.06.71)

3) BETWEEN(CD,AB,EF) 4) BETWEEN(szar,5000,100000)

5) BETWEEN(dtr,DATE()-15000,DATE()-10000)

 

38

14 .

.

1.

A=

? AT(A,A,3)

1) 8 2) 11 3) 4 4) 1 5) 6 6) 0

2.

A=

? RAT(,A,2)

1) 8 2) 2 3) 4 4) 1 5) 6 6) 0

3. NAME, . ?

1)    LEFT(RIGHT(NAME,2),1)

2) RIGHT(LEFT(NAME,LEN(NAME)-1),1)

3)    SUBSTR(NAME,LEN(NAME)-2,1)

4) SUBSTR(NAME,LEN(NAME)-1,1)

 

39

14 ,

.

1. , NAME?

1)    STRTRAN(NAME, ) 2) ALLTRIM(NAME)

2)    LTRIM(RTRIM(NAME)) 4) STRTRAN(NAME, )

5) STRTRAN(NAME)

2.

? STUFF(01010101 00000000000 10101010,10,8,1111 )

1) 01010101 11111111111 10101010 2) 01010101 11111110000 10101010

3) 01010101 1111000 10101010 4) 01011111 11111111111 10101010

5) 01010101 0000000 11111010 6) 01010101 00001111 10101010

3. ISALPHA(NAME), ISLOWER(NAME), ISUPPER(NAME),

NAME=RIGHT(Doklad,LEN(Doklad)-1)

1) .F. .T. .F.

2) .F. .F. .F.

3) .T. .T. .T

4) .T. .F. .T.

5) .T. .T. .F.

6) .T. .F. .F.

 

40

14

.

1.

? DOW({11.07.96}+63), ( , -)?

1)    2 2) 3 3) 6

4) 7 5) 1 6) 5

2. D DATE?

1) CTOD(D) 2) DTOC(D) 3) DTOS(D) 4) DTOC(D,1) 5) DTOS(D), DTOC(D,1)

3.

? CTOD(STR(DAY({11.07.96}),2)+"."+STR(MONTH({11.07.96}),2)+"."+RIGHT(STR (YEAR({11.07.96}),4),2))

1)    11.07.95 2) 12.07.96 3) 11.07.96

4) 11.08.96 5) TYPE DATA MISMATCH

 

 

 

  
  ©