CLOSE # _
CLOSE , , . , .
, output input. avto.dat.
REM
CLS
INPUT " "; F$
'
OPEN F$ FOR INPUT AS #1
PRINT " 17 2000 "
I=1
DO
PRINT " "; I; "?"
INPUT " QWE, -<Enter>"; M$
IF UCASE$(M$)="QWE" OR UCASE$($)="" THEN 1
INPUT #1, M$, N$, C$, G$, S$
PRINT M$, N$, C$, G$, S$
I=I+1
LOOP UNTIL EOF(1)
'
1: close #1
PRINT " "
loop until eof(1). , , (end of file), .
- , : , . .
avto.dat "" "". avto.dat avto2.dat, . avto.dat , , "", . "", "" $. . . , .
OPEN "avto.dat" FOR INPUT AS #1
OPEN "avto2.dat" FOR OUTPUT AS #2
FOR i=1 TO 5
INPUT #1, M$, N$, C$, G$, S$
IF UCASE$(M$)-"" THEN $-""
PRINT 12, M$, N$, C$, G$, S$
NEXT i
CLOSE 1, 2
KILL "avto.dat"
NAME "avto2.dat" AS "avto.dat"
END
, , avto.dat.
for append open . . .
REM
CLS
INPUT " "; F$
REM
OPEN F$ FOR APPEND AS 1
|
|
|
DO
INPUT " ? ( QWE.); $
IF UCASE$(M$)="QWE" OR UCASE$($)="" THEN 1
INPUT " ?"; N$
INPUT " ?"; $
INPUT " ?"; G$
INPUT " ?"; S$
WRITE #1, $, N$, C$, G$, S$
LOOP
REM 1
CLOSE #1
PRINT " "'
1. .
2. Qbasic.
3. .
4. .
5. .
1. .
2. .
3. .
4. .
5. .
6. .
1.
( 10 ), :
( , yes/no)
2. , , , , .
- magasin.txt
:
- name$
- ctrana$
- den
( , yes/no) - god$
- manu
QBasic
CLS
OPEN "magasin.txt" FOR OUTPUT AS #1
CLS
FOR i = 1 TO 10
INPUT " "; name$
INPUT " "; ctrana$
INPUT " "; den
INPUT " yes/no: "; god$
INPUT " "; manu
WRITE #1, name$, ctrana$, den, god$, manu
NEXT i
CLOSE #1
PRINT ""
PRINT "------------------------------------------------------------------------------------"
PRINT " yes/no "
OPEN "magasin.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, name$, ctrana$, den, god$, manu
PRINT name$, " "; ctrana$, den; " ", god$; " ", manu
LOOP
CLOSE #1
PRINT "------------------------------------------------------------------------------------"
min = 10 ^ 10
OPEN "magasin.txt" FOR INPUT AS #1
PRINT " yes"
DO WHILE NOT EOF(1)
INPUT #1, name$, ctrana$, den, god$, manu
IF manu <= min THEN
nas1$ = name$: ctrana1$ = ctrana$: god1$ = god$: min = manu
END IF
IF god$ = "yes" THEN
PRINT TAB(10); name$;
PRINT TAB(20); ctrana$; " "; den; " "; god$; " "; manu
END IF
LOOP
CLOSE #1
PRINT "------------------------------------------------------------------------------------"
PRINT " "
PRINT nas1$, min; "pyb", ctrana1$
END
