Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
Сообщения об ошибках на шаге выполнения ⇐ ПредыдущаяСтр 9 из 9
Сообщения об ошибках на шаге выполнения имеют следующий формат: Run-time error < номер > at < сегмент >: < смещенне >, где < номер > – номер ошибки, < сегмент >: < смещение > – адрес, по которому произошла ошибка. Ошибки шага выполнения делятся на четыре группы: ошибки операционной системы MS DOS: 1-99, ошибки ввода-вывода: 100–149, серьезные ошибки: 150–199, грубые ошибки: 200–255.
Таблица 37. Ошибки операционной системы DOS
Таблица 38. Ошибки ввода-вывода Ошибки, относящиеся к данной группе, вызывают завершение программы, если она откомпилирована в режиме {$I+}. В режиме {$I-} программа продолжает выполняться, а код ошибки возвращается функцией IOResult.
Таблица 39. Серьезные ошибки
Таблица 40. Грубые ошибки Возникновение этих ошибок всегда приводит к немедленной остановке программы.
Приложение В. Текстовые файлы DATF.TXT и DATI.TXT содержат соответственно вещественные и целые числа, набитые по 10 чисел в строке, DATF.BIN и DATI.BIN содержат вещественные и целые числа во внутримашинной кодировке. Файлы SIMBOL.TXT, RUS.TXT и LAT.TXT содержат символьную информацию. Имена, строение и метод доступа к данным файлов приведены ниже. 1. Файл DATI.TXT – последовательный символьный (текстовый) набор целочисленных данных, содержит 1000 чисел в виде 50 строк (записей) по 20 чисел в каждой строке. Значения чисел не превосходят 999 по абсолютной величине. Пример открытия файла и чтения из него чисел с 310 по 315: VAR mas: array[1..5] of integer; fin: text; ... BEGIN ... Assign(fin, 'D: \LAB1\DATI.TXT'); Reset(fin); пропуск 300 чисел в виде 15 строк по 20 чисел: for i: =1 to 15 readln(fin); пропуск первых 9 чисел (301-309) и чтение 6 чисел (310-315): for i: =1 to 9 read(fin); for i: =1 to 6 read(fin, mas[i]); close(fin); закрытие файла ... Примечание: Если рассматривать этот набор данных, как содержащий последовательность символов – цифр, пробелов и других служебных символов, то при чтении его в символьный массив рекомендуется пропускать концы строк. Например, при чтении из этого набора данных в одномерный символьный массив Txt следует использовать функцию Eoln: for i: =... do if not Eoln(fin) then Read(fin, Txt[i]) else Readln(fin); Если желательно дополнительно также пропускать все пробелы (и символы табуляции), то лучше использовать функцию SeekEoln: for i: =... do if not SeekEoln(fin) then Read(fin, Txt[i]) else Readln(fin); И, наконец, если при чтении желательно брать только цифры, то можно в программу добавить " шаг назад" при каждом вводе не цифрового значения: for i: =... do begin Read(fin, Txt[i]) if (Txt[i] < '0') or (Txt[i] > '9') then i: =i-1; end; 2. Файл DATF.TXT – последовательный символьный (текстовый, форматный) набор вещественных данных, содержит 500 чисел в виде 50 строк (записей) по 10 чисел в каждой строке. Значения чисел не превосходят 1000000 по абсолютной величине. Пример открытия файла и чтения из него чисел с 32 по 35: VAR mas: array[1..4] of real; fin: text; ... BEGIN ... Assign(fin, 'D: \LAB1\DATF.TXT'); Reset(fin); пропуск 31 числа: for i: =1 to 31 read (fin); чтение 4 чисел: for i: =1 to 4 read(fin, mas[i]); close(fin); ... Примечание: Если читать из этого набора данных в символьный массив, рекомендуется пользоваться приемами, описанными для файла DATI.TXT. 3. Файл DATI.BIN – файл прямого доступа, представляет набор целочисленных данных, содержит 1000 двухбайтовых целых чисел. Должен описываться как файл из данных целого типа или массивов целого типа. Значения чисел не превосходят 999 по абсолютной величине. Пример открытия файла и чтения из него каждого 5-го числа: VAR dann, fict: integer; fin: file of integer; ... BEGIN Assign(fin, 'D: \LAB1\DATI.BIN'); Reset(fin); While not Eof do begin for i: =1 to 4 do read(fin, fict); { пропуск 4 чисел, чтением их в фиктивную переменную} Read(fin, dann); { чтение числа } ... end; close(fin); {закрытие файла } ... 4. Файл DATF.BIN – бесформатный (двоичный, внутримашинный) файл прямого доступа, представляет набор вещественных данных, содержит 500 шестибайтовых вещественных чисел. Должен подключаться к файловой переменной вещественного типа. Значения чисел не превосходят 99 по абсолютной величине. Пример открытия файла и чтения из него всех чисел после 90-го по 10 штук: TYPE MAS10 = array[1..10] of real; VAR dann: MAS10; fin: file of MAS10; ... BEGIN ... Assign(fin, 'D: \LAB1\DATI.BIN'); Reset(fin); пропуск 90 чисел, чтением их в переменную dann длиной 10 чисел 9 раз for i: =1 to 9 do read(fin, dann); While not Eof do {пока не кончится файл} begin Read(fin, dann); { чтение очередных 10 чисел: } ... end; close(fin); { закрытие файла } ... 5. Файл SIMBOL.TXT – символьный (текстовый) файл последовательного доступа, представляет набор символьных данных, содержит 410 элементов (без переводов строк). Этот набор данных можно связывать как с текстовой, так и с типизированной (типа char) файловой переменной. Пример 1. Чтение из файла с 20-го по 50-ый символы в одномерный символьный массив: VAR mas: array[0..30] of char; fin: text; ... BEGIN ... Assign(fin, 'D: \LAB1\SIMBOL.TXT'); Reset(fin); пропуск 19 символов: for i: =1 to 19 read (fin); чтение 31 символа, с 20-го по 50-й: for i: =0 to 30 read(fin, mas[i]); close(fin); закрытие файла ... Пример 2. Чтение из файла с каждого четвертого символа в одномерный символьный массив длиной 40 байт: TYPE SimMas = array[1..40] of char; VAR Sim: SimMas; fin: file of char; i, j: integer; {i- счетчик элементов массива, j - номер символа в файле } ... BEGIN ... Assign(fin, 'D: \LAB1\SIMBOL.TXT'); Reset(fin); ... j: =3; { нумерация в файле начинается с 0! } for i: =1 to 40 do begin Seek(fin, j) { ищем нужный номер символа в файле } read(fin, Sim[i]); { читаем его в очередной элемент массива } j: =j+4; { устанавливаем новый номер } end; close(fin); { закрытие файла } ... 6. Файл RUS.TXT – символьный (текстовый) файл последовательного доступа, представляет набор строк, длиной не более 80 символов кириллицы в строке. Файл может читаться только как текстовый. Пример 1. Чтение из файла с 5-го по 9-ю строки в одномерный строчный массив: TYPE Ss = string[80]; VAR mas: array[1..5] of Ss; fin: text; ... BEGIN ... Assign(fin, 'D: \LAB1\RUS.TXT'); Reset(fin); { пропуск 4-х строк: } for i: =1 to 4 do ReadLn (fin); { чтение 5-и строк: } for i: =1 to 5 do ReadLn (fin, mas[i]); close(fin); { закрытие файла } ... 7. Файл LATS.TXT – символьный (текстовый) файл. Может рассматриваться как файл последовательного доступа, если читать в строковые переменные, и как файл последовательного или прямого доступа, при чтении в символьные переменные. В последнем случае содержит он служебные символы возврата каретки и перевода строки. Представляет набор строк, длиной строго по 50 символов ASCII в каждой строке, не считая двух служебных символов. Пример 1. Чтение из файла ASCII символов в символьный массив [2х55] элементов: VAR mas: array[1..2, 1..55] of char; fin: text; ... BEGIN ... Assign(fin, 'D: \LAB1\LATS.TXT'); Reset(fin); for i: =1 to 2 do for j: =1 to 55 do if not Eol(Fin) then Read (fin, mas[i]) else {пропуск конца записи (служебных символов)} begin ReadLn(fin); j: =j-1; { отмена смещения в массиве } end; close(fin); { закрытие файла } ... Приложение Г. Первая половина таблицы – стандартный набор кодов символов
Вторая половина таблицы – альтернативный набор кодов символов
СОДЕРЖАНИЕ Предисловие.. 3 Лабораторная работа № 1. 7 Лабораторная работа № 2. 18 Лабораторная работа № 3. 28 Лабораторная работа № 4. 40 Лабораторная работа № 5. 53 Лабораторная работа N 6. 68 Лабораторная работа N 7. 80 Лабораторная работа N 8. 98 Лабораторная работа № 9. 128 Литература.. 150 Приложение А. Система меню и команды турбо-паскаля. 151 Приложение Б. Cообщения об ошибках. 171 Приложение В. Описание числовых файлов для лабораторных работ. 183 Приложение Г. Таблица ascii-кодов (с альтернативной кодировкой) 188 СОДЕРЖАНИЕ.. 190
Популярное:
|
Последнее изменение этой страницы: 2016-05-30; Просмотров: 617; Нарушение авторского права страницы