Написать программу, которая извлекает из командной строки имя файла и создает в том же каталоге резервную копию файла с расширением bak.
Совет 1 (общий)
Совет 2 (QBasic)
Совет 3 (Си)
Совет 4 (Паскаль)
каталога, содержащего исходный файл (Dir), собственно имя файла (Name) и его расширение (Ext). Программа будет работать быстрее, если размер буфера для копирования очередной порции увеличить до 32 768 (кратность 512 здесь желательна, т. к. это число совпадает с длиной физического сектора).
Программа 7_07.bas
CLS : DIM k AS STRING*!
INPUT "Задайте имя файла - ", NAME1$
OPEN NAME1$ FOR BINARY AS #1
К = INSTR(NAME1$, ".")
IF К = 0 THEN NAME2$ = NAME1$
ELSE NAME2$ = LEFT$(NAME1$, К - 1)
NAME2$ = NAME2$ + ".ВАК"
PRINT NAME2$, К
OPEN NAME2$ FOR BINARY AS §2
DO
GET fl, , k
PUT #2, , k
LOOP UNTIL (EOF(l))
END
Программа 7_07.с