readln; end.
Задание 7.09. Сдвиг содержимого текстового файла
Составить программу сдвига содержимого каждой строки текстового файла на заданное число позиций вправо. Это может оказаться полезным для формирования левого поля нужной ширины перед выводом содержимого файла на принтер по командам операционной системы PRINT или COPY.
Совет 1 (QBasic)
Совет 2 (Си)
Совет 3 (Паскаль)
Программа 7_09.bas
INPUT "Задайте имя исходного файла - ", NAME1$
INPUT "Задайте имя выходного файла - ", NAME2$
INPUT "Задайте величину сдвига - ", N%
OPEN NAME1$ FOR INPUT AS #1
OPEN NAME2$ FOR OUTPUT AS #2
DO WHILE NOT EOF(l)
LINE INPUT #1,A$: A$=SPACE$(N%)+A$
PRINT #2,A$
LOOP
CLOSE II: CLOSE #2
END
Программа 7_09.c