TURBO PASCAL:Учебное пособие. Терёхин В.В. - 113 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

113
Номера ошибок:
100 Disk read error (ошибка диска при чтению);
101 Disk write error (ошибка диска при записи);
102 File not assigned (файловая переменная не связана
с физическим файлом);
103 File not open (файл не открыт);
104 File not open for input (файл не открыт для ввода);
105 File not open for output (файл не открыт для вывода);
106 Invalid numeric format (недопустимый числовой
формат).
Задача. Проверить существует ли файл с введенным с
клавиатуры именем. Если существует, то получить файл с но-
вым именем, в котором порядок следования компонент - байт,
изменен на обратный.
program p4 9;
var
fl, f2: file of byte;
b: byte ;
sl, s2: String;
n, i: Longint;
begin
Write('введите имя исходного файла ');
Readln(sl);
Write('введите имя результирующего файла ');
Readln(s2);
Assign(fl,s1);{связываем файловые переменные с }
Assign{f2,s2);{введенными именами файлов}
{$i-} {- отключаем контроль ошибок в/в}
Reset (f1); {первый файл открываем для чтения)
if IOResult <> 0 then
begin
Writeln('Произошла ошибка, файл ', s1,'не
существует');
Halt; {прерываем программу}
end; 
        Номера ошибок:
100     Disk read error (ошибка диска при чтению);
101     Disk write error (ошибка диска при записи);
102     File not assigned (файловая переменная не связана
                              с физическим файлом);
103 File not open (файл не открыт);
104 File not open for input (файл не открыт для ввода);
105 File not open for output (файл не открыт для вывода);
106 Invalid numeric format (недопустимый числовой
                                    формат).
        Задача. Проверить существует ли файл с введенным с
клавиатуры именем. Если существует, то получить файл с но-
вым именем, в котором порядок следования компонент - байт,
изменен на обратный.
program p4 9;
var
  fl, f2: file of byte;
  b: byte ;
  sl, s2: String;
  n, i: Longint;
begin
  Write('введите имя исходного файла ');
  Readln(sl);
  Write('введите имя результирующего файла ');
  Readln(s2);
  Assign(fl,s1);{связываем файловые переменные с }
  Assign{f2,s2);{введенными именами файлов}
{$i-} {- отключаем контроль ошибок в/в}
  Reset (f1); {первый файл открываем для чтения)
  if IOResult <> 0 then
     begin
        Writeln('Произошла ошибка, файл ', s1,'не
                                    существует');
        Halt; {прерываем программу}
     end;
                                                        113

Страницы