Н. Джехани - Язык Ада (1988) (1160771), страница 122
Текст из файла (страница 122)
1438. ВВОД. ВЫВОД СИМВОЛОВ И СТРОК Для элемента типа СНАНАСТЕН определены следующие процедурьс ргосэечм Лет(Р)ье: )я Рп.е туРе; !тем: ач! снАЛАстея); ргоаввчм ЛЕТ(!ТЕМ: еч! СНАЛАСТЕЛ); !7-777 но вместо синтаксиса литералов перечисления используется синтаксис числовых литералов. При ненулевом значении параметра ФЛОТН вводится ровно ЧЧ)ОТН символов или, если ранее встретился признак конца строчки, все символы до признака конца строчки; в это число включаются и все ведущие пропуски. Для числовых литералов используется расширенный синтаксис, в котором допускается знак числа (но не пропуски или признаки конца строчки ипи стра.
ницы внутри литерала). Любая процедура РОТ для элемента числового ипн перечиспимого типа выводит значение элемента соответственно как числовой литерал, идентификатор или символьный литерал. Перед ними могут быть выведены пробелы, если этого требуют параметры формата ЧЧ)ОТН ипи РОНЕ (это описано ниже), и для отрицательных значений — знак минус; в случае перечисли. мого типа пробелы выводятся не перед литералом, а после него. Если формат в процедуре РОТ задает недостаточную ширину, то он игнорируется. Следующие две ситуации могут возникнуть при выполнении процедуры РОТ для числов!> го или перечислимого типа в случае ограниченной длины строчки используемого файла вывода (т.е.
длина строчки имеет ненулевое значение). Если число выводимых символов не превышает максимальной длины строчки, но при выводе этих символов, начиная с текущего столбца, они не помещаются в текущей строчке, то перед их выводом выполняются действия, эквивалентные вызову ЙЕЧЧ МЙЕ с параметром ВРАС1Й6, равным единице. Если же число выводимых символов больше максимальной длины строчки, то возбуждается исключение !.АУООТ ЕЯНОН, при этом символы не выводятся. Если используемый в процедурах 6ЕТ, 6ЕТ МЙЕ, РОТ и РОТ МЙЕ файл не открыт, то возбуждается исключение 8ТАТ08 ЕННОН.
Если в процедурах 6ЕТ и 6ЕТ МЙЕ вид используемого фаила отличен от )Й МЙЕ или в процедурах РОТ и РОТ МЙЕ вид используемого фаила отличен от 00Т Р!ЬЕ, то возбуждается исключение МООЕ ЕННОН. В процедуре 6ЕТ при попытке пропуска признака конца файла возбуждается исключение ЕЙО ЕНЯОН. Если вся введенная процедурой 6ЕТ последовательность символов не является лексемой соответствующего типа, то возбуждается исключение ОАТА ЕННОН; в частности, оно возбуждается, если не было введено ни одного символа; для числового типа если был введен знак, то это правило относится к следующему за ним числовому литералу.
В случае процедуры РОТ, выводящей элемент типа 8ТН)Й6, если длина строки файла недостаточна дпя вывода заданного элемента, то возбуждается исключение )АУО07 ЕНЯОЯ. Гпввв 14 а'4 В заданном файле ввода процедуры пропускают признаки конца строчки и страницы и 1 читают следующий за ними символ; значение этого символа возвращают параметру !ТЕМ вида При попытке пропустить признак конца файла возбуждается исключение ЕИО ЕННОН.
ргосевиге РОТ(Н1.Е: Ь ГЛ.Е ТУРЕ; )ТЕМ: Ь СНАВАСТЕЯ); ргосориге РОТВТЕМ : )о СНАЯАСТЕН); Если длина строчки заданного фаила вывода ограничена (т. е. не равна нулю по соглаше. нию), а текущий номер столбца превышает эту длину, то выполняют деиствия, эквивалентные вызову процедуры ИЕУУ 81ИЕ с параметром ЗРАС1И6, равным единице. Затем в любом случае в файл выводят заданный символ. Для элемента типа ЗТН!Мб определены следующие процедурьа ргосеоиге 6ЕТ(ЕЯ.Е; Ь НЬЕ ТУРЕ; 1ТЕМ: оог ЗТЯ(М61; ргосериге 6ЕТВТЕМ: оиг ЗТНЛЧ6); Определяют длину (число символов) данной строки; затем для последовательных симво.
лов строки соответствующее число раз выполняют операцию 6ЕТ (в частности, для пустой строки никаких действий не выполняют). ргоаеоиге РОТ(Р1ьЕ: Ь РВ.Е ТУРЕ; !ТЕМ: Ь ЗТЯ)мб!! ргосовиге РОТВТЕМ: 1о 5ТВ)нб); Определяют длину (число символов) даннои строки; затем для последовательных симво. лов строки соответствующее число раз выполняют операцию РОТ (в частности, для пустой строки никаких действий не выполняют). рнииайио 6ЕТ ЫМЕ(Р1аЕ: Ь ШЬЕ ТУРЕ; !ТЕМ: Оиг ЗТЯ!нб; !АЗТ: Оиг МАТОВАЦ; шосевиге бет Омебтем: оиг зтЯ1мб; !Азт: огп мАтОЯАО; Заменяют последовательные символы, содержащиеся в указанной строке, символами, чи.
таемыми из заданного файла. Чтение заканчивается при достижении конца строчки файла; в этом случае выполняют действия, эквивалентные действиям процедуры ЗК)Р Е)ИЕ с параметром ЗРАС1И6, равным единице. Чтение также заканчивается при достижении конца стро. ки, заданной параметром !ТЕМ. Символы, которые не были заменены, остаются неопреде. ленными. Если символы прочитаны, то в параметр ЕАЗТ возвращается индекс последнего заменен. ного символа так, что индексированная компонента (ТЕМ ((АЗТ) — это значение последнего замененного символа (индекс первого замененного символа равен атрибуту (ТЕМ'Е!НЗТ). Если не было прочитано ни одного символа, то в (АЗТ выдается значение индекса, на единицу меньшее атрибута )ТЕМ'Р1НЗТ.
При попытке пропустить признак конца файла возбулгдается исключение ЕИР ЕННОН. ргоаеоиге РОТ ЦМЕ(Р!ЬЕ: )и НЬЕ ТУРЕ; !ТЕМ; Ь ЗТН)нб); ргоаевиге РОТ 1.1МЕ(1ТЕМ: Ь 5ТВ1М6); Вызывают процедуру РОТ для заданной строки, затем процедуру ИЕУУ МИЕ с параметром ЗРАС1И6, равным единице. Примечание. Внешние кавычки строкового литерала, являющегося параметром процедуры РОТ, не выводятся. Каждый сдвоенный символ кавычки, приведенный внутри такого литерала, выводится как один символ кавычки; это следует из правил для строковых литералов (см. 2.5). Строка, считываемая процедурой 6ЕТ или записываемая процедурой РОТ, в файле может занимать несколько строчек.
Ссылки: длина строки 14.3, длина строчки 14.3, 14.3.5, исключение ЕИО ЕННОН 14.4, при. знак конца страницы 14.3, процедура 6ЕТ 14.3.5, процедура МЕУУ МИЕ 14.3.4, процедура РОТ 14.3.4, строчка 14.3, текущий номер столбца 14.3, файл 14,1. 14.3.7. ВВОД-ВЫВОД ДЛЯ ЦЕЛЫХ ТИПОВ Описанные ниже процедуры определены в настраиваемом пакете )ИТЕВЕН !О. Он дол. жен быть конкретизован с соответствующим целым типом (указанным в спецификации параметром настройки ИОМ).
ать Вв вы Значения выводятся в виде десятичных литералов или литералов с основанием, без подчеркиваний и порядка, с предшествующим знаком минус для отрицательных чисел. Формат, определяющий ширину поля (включая ведущие пробелы и знак минус), может быть задан необязательным параметром ЮЛОТН. Его значение принадлежит неотрицательному целому подтипу Р(ЕЕО. Значения основания принадлежат целому подтипу МОМВЕЙ ВАЗЕ. вижтрв ЙОМВЕЙ ВАЗЕ 1в 1ЙТЕЗЕЙ гвпре 2 .. !В; В процедурах вывода могут использоваться ширина поля и основание по умолчанию; они задаются переменными, описанными в настраиваемом пакете (ЙТЕВЕЙ !О: ОЕРАОЬТ ЧЧ1ОТН: Р1ЕЬО:= ЙОМ'ЧЧ(ОТН: ОЕРАОЬТ ВАЗЕ: ЙОМВЕЙ ВА5Е:= 10; Определены следующие процедуры: ргосойив 6ЕТ(Ш1.Е: 1п ШЬЕ ТУРЕ; (ТЕМ: шп ЙОМ; ЧЧ(ОТН: !п ШЕЬО:= 01: рпмели7в 6ЕТ((ТЕМ: оис МОМ; ЧЧ(ОТН; Ь ШЕЬО:= 01; При нулевом значении параметра МЛОТН пропускают все ведущие пропуски, признаки конца строчки и страницы, читают знак плюс ипи минус (если он есть), затем производят чтение в соответствии с синтаксисом целого литерала (он может быть литералом с основанием).
При нулевом значении ЧЧ(ОТН вводят ровно ЧЧ(ОТН символов, или если раньше встретится признак конца строки, то вводят лишь символы до этого признака конца (возможно, ни одного); в это количество включаются и все ведущие пропуски. В параметр 1ТЕМ типа ЙОМ возвращают значение, соответствующее введенной последовательности. Если введенная последовательность не соответствует правилам синтаксиса или если по. лученное значение не принадлежит подтипу МОМ, то возбуждается исключение 0АТА ЕВВОЯ. рсоаейие РОТ(МЬЕ: Ь М1.Е ТУРЕ; 1ТЕМ: Ь МОМ; ЧЧЮТН: Ь ШЕЬО: ОЕРАОЬТ ЧЧ1ОТН; ВА5Е; (п МОМВЕЙ ВА5Е:= ОЕРАОЬТ ВА5Е); Рсосеписе РОТ((ТЕМ: (п ЙОМ; ЧЧ1ОТН: (в ШЕЬО: ОЕГАО1.Т ЧЧ(ОТН; ВАЗЕ: 1п МОМВЕЙ ВА5Е '= ОЕРАОЬТ ВАЗЕ); Значение параметра (ТЕМ выводят в виде целого литерала без подчеркиваний, порядка и ведущих нулей (если значение равно нулю, выводят один нуль), с предшествующим знаком минус, если значение отрицательное.
Если число символов выводимой последовательности меньше значения ЧЧ(ОТН, то она дополняется ведущими пробелами. Если параметр ВАЗЕ (заданный явно укаэанным значением или переменной ОЕРАОЕТ ВАЗЕ) имеет значение десять, то числа выводятся по синтаксису десятичного литерала, в противном случае — по синтаксису литерала с основанием и всеми прописными буквами.
рпмвлим 6ЕТ(РЙОМ; (п ЗТЙ(МО; (ТЕМ: с7И МОМ; (АЗТ: мп РОЗ!Т1ЧЕ); Читает с начала строки, заданной параметром РВОМ, целое значение по тем же правилам, что и процедура 6ЕТ, которая читает целое значение из файла; при этом рассматривает конец строки как признак конца файла. Через параметр (ТЕМ возвращает значение типа ЙОМ, соответствующее введеннои последовательности. Через параметр 1.АЗТ возвращает значение ин. деков, соответствующее последнему читаемому символу (следовательно, этот символ имеет значение индексированной компоненты РВОМ((АЗТ)). Если введенная последовательность не соответствует правилам синтаксиса или если по.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
