:

2 -

on-line 150


" " ( 2) ()

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 ” FOXPORO2.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 DATEBRITISH/FRENCH
4) SET DATE GERMAN
5) SET DATEITALIAN

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)>=1965AND ;
YEAR( dtr)
2)USE kadr
BROWSE FOR det>=2 AND ;
dtr>=’01.01.65’AND ;
dtr

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
BROWSEFIELDS;
fam :H=’’,;
dtr:H=’ ’,;
szar:H=’ ’;
FREEZEszarNODELE
NOAPPEND
2) USE kadr.dbf
BROWSEFIELDS;
fam :H=’’,;
dtr:H=’ ’,;
szar:H=’ ’;
NODELENOAPPEND
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 ?
3. 1 ?

28
8 “ ”.
.
1. , 65 . ?

1) USE kadr
DELETEFOR YEAR(dtr)+65
PACK
RETURN

2) USE kadr
DELETEFOR GOMONTH(dtr*65)
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.
REPLACEALLvirWITHvir*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.OR.rab=5 vir WITH vir*1.3
RETURN
2) USE brig1
REPLACE FOR rab=3.AND.rab=5 vir WITH vir*1.3
RETURN
1) .
2) .
3) .
4) .
3. 2 ?
IIF() . 14.
USE brig1
REPLACE vir WITH IIF(rab=5,1.3,1.2))*vir
RETURN
1) .
2) .
3)


30
10 “ ” : “ ” “ ”.
.
1. SETFILTERTO
1) , SETFILTERTO
2) , SETFILTERTO .
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) .

31
10 “ ” : “ ”.
.
1. kadr.dbf , , . ?
1) INDEXONpol+tabTOTAGpoltab
2) INDEX ON STR(pol)+STR(tab) TO TAG poltab
3) INDEX ON pol+STR(tab) TO TAG poltab
2. kadr.dbf , 堠 , ,, . ?
1) INDEXONfam+semTOTAGSEMFAM
2) INDEX ON sem+fam TO TAG SEMFAM
3) INDEX ON STR(sem)+STR(fam) TO TAG SEMFAM
3. kadr.dbf , . ?
1) INDEXONfamTOTAGWOMFAMFORpol=’’
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) SETNEARON
2. 12 1960 . , ? . 14.
1) USEkadr
INDEXONDTOC(dtr) TOTAGdtr
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) DELETETAGtab
4. ?
1) SET INDEX OFF
2) SET ORDER OFF
3) SETORDERTO


33
11 “ ”.
.
1. , , brig1 29, 2. ?
1) SELECT 0
USEbrig1
INDEXONtabTOTAGtab
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=c
ENDIF
? ‘ A,B,C=’, min
2) min=a
IF a>b
min=b
ENDIF
IF c
min=c
ENDIF
? ‘A,B,C=’, min
3) min=a
IF a>b
min=b
ENDIF
IF c
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
2) ? IIF(a=b,a,IIF(a
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
2) neg=0
poz=0
DO WHILE .T.
INPUT ‘X’ TO x
IF x=0
EXIT
ENDIF
IF x
3) neg=0
poz=0
DO WHILE .T.
INPUT ‘X’ TO x
IF x=0
EXIT
ENDIF
IF x

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, SCANENDSCAN . ?

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)16)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






www.webmoney.ru  @Mail.ru © 2010 - 2012   .. 310774602801230
StudMayak.ru .