Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Функция IOResult



Как Вы уже заметили в предыдущей программе была использована функция IOResult. Рассмотрим, какую роль выполняет эта функция.

Функция IOResult предназначена для поиска ошибок, возникающих при работе с файлами. Эта функция возвращает результат последней операции ввода/вывода, если автоматический контроль за ошибками, возникающими при выполнении операций ввода/вывода, отключен с помощью директивы компилятора {$I-}. При безошибочном выполнении операций ввода/вывода функция IOResult всегда возвращает результат равный нулю. Поэтому, как правило, ее используют в операции сравнения с нулем. При использовании функции IOResult нужно помнить о том, что она возвращает величину, которую можно интерпретировать как флаг ошибки лишь в том случае, когда эта функция вызывается следом за операцией ввода/вывода. А если Вы хотите провести анализ ошибки позже, Вам придется сохранить возвращаемое значение в некоторой промежуточной переменной.

Просмотрите еще раз фрагмент программы, в которой посредством процедуры reset производится попытка открытия файла. Если эта попытка не увенчалась успехом, то на экран будет выведено сообщение об ошибке.

{$I-} {отключение контроля ввода/вывода}
reset (F,'C:\TP7\BIN\Text.txt'); {открытие файла для чтения}
if IOResult <> 0
then
writeln ('Ошибка при открытии файла');
{$I+} {включение контроля ввода/вывода}

В своих программах Вы должны применять функцию IOResult.

Задание. Выберите с учителем одну из предложенных ниже задач.

  1. Создайте файл целых чисел (числа вводятся с клавиатуры). Поменяйте местами первый и третий элементы файла, используя в программе процедуру Seek. Выведите на экран содержимое первоначального и измененного файлов. Предусмотрите в программе вывод соответствующего сообщения, если в файле не оказалось третьего элемента.
  2. Создайте файл целых чисел (числа вводятся с клавиатуры). Выведите числа
    • с четным порядковым номером,
    • с нечетным порядковым номером,
    • с порядковым номером, кратным 7,
    • с порядковым номером, кратным 15,

используя в программе процедуру Seek. Предусмотрите в программе вывод соответствующего сообщения, если в файле не оказалось нужных элементов.

  1. Создайте файл символов (символы вводятся с клавиатуры). Выведите на экран символы
    • с пятого по пятнадцатый,
    • с третьего по двадцатый,
    • с k-го по s-ый.

используйте в программе процедуру Seek. Предусмотрите в программе вывод соответствующего сообщения, если в файле не оказалось нужных элементов.





Дата публикования: 2015-10-09; Прочитано: 246 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.006 с)...