В.Г. Абрамов, Н.П. Трифонов, Г.Н. Трифонова - Введение в язык Паскаль (1107618), страница 34
Текст из файла (страница 34)
Например, если стр1 и стр2 — описанные вышепеременные, то возможны следующие операторы присваивания:стр1: ='Мы_изучаем_Паскаль! ! 'стр2: = 'Мирвовсеммире! 'Тем фактом, что пробел является значащей литерой, можно воспользоваться, например, при заполнении неопределенных компонент строк-переменных, чтобы определить значения всех компонент соответствующейполной переменной:стр1:='Это_строка137Во-вторых, значения строковых переменных одинаковой длины можносравнивать, используя операции отношения =, Ф, <, <, >, >. Сравнениезначений строковых переменных производится путем последовательногосравнения литер, являющихся значениями соответствующих компонентэтих строковых переменных.
Пусть сравниваются два строковых значения:' c j с2... с„' и 'di d2... dn', где через с,- и dt обозначены отдельные литеры,входящие в строки.Тогда'схс2...сп= 'dxd2...dn,если Cj = dt для любого / (0 < / < и);'схс2...сп<'dxd2...dn,если существует такое к (0 < к < п), что с,- = dt для любого / = 1 , 2 , ..., к,носк+1<dk+1.Аналогично'cic2...c„'>'dld2...dn',если существует такое к (0 < к < п), что ci = di для любого / = 1,2, ..., к,Hoc fc+1>dk+1.Еще раз подчеркнем, что строки различной длины сравнивать нельзя.В-третьих, значения строковых переменных можно сравнивать дажеи в том случае, когда соответствующие строковые типы заданы различнымобразом, но при условии, что длины строк одинаковы. Например, еслиимеется следующее описание типов и переменных:typeстрока=раскес! array CI..
9 3 of char;cmoea=packed array CI..9 3 of char,varSI: строка;S2: слово;S3: packed array CI..9 3 of char;t,r: boolean;то допустим следующий фрагмент программы, содержащий операторыприсваивания:Sl:='АЛЕКСАНДР';S2:=S1;S3:='ЕКАТЕРИНА';t:= S2=S1;r:= S2<S3;Ниже приводится пример, использующий понятие строки, которыйтакже демонстрирует один из способов ввода значений перечислимоготипа.П р и м е р 7.5. В детском саду имеется группа детей из 30 человек.Каждому ребенку на Новый Год подарена игрушка. Задан список, в котором через запятую перечислены (в произвольном порядке) названия всех138подаренных игрушек, а за последним названием следует точка, являющаясяпризнаком конца списка.
Виды игрушек следующие: заяц, мишка, мяч,кукла, машина.Требуется определить, каких игрушек подарено больше всего (предполагается, что количества игрушек одного вида различны).Выберем следующий способ решения этой задачи. Сначала введем всезаданные названия игрушек и запомним их в виде массива строк. Каждаястрока, предназначенная для хранения одного названия игрушки, будетявляться значением, тип которого можно описать следующим образом:имяигрушки=раскес) a r r a y С 1 .
. 6 3 o-f charВ случае необходимости введенное название игрушки будем дополнятьсправа соответствующим числом пробелов. Таким образом, массив для хранения введенных названий игрушек, которому дадим и м я Подарки, является значением, тип которого можно задать следующим образом:a r r a y C1..N3 o-f имяигрушкиПосле того, к а к массив Подарки будет сформирован, подсчитаем числоигрушек каждого вида и запомним их в качестве компонент целочисленного вектора (дадим ему имя Колич), каждая компонента которого соответствует определенному виду игрушек.
Если ввести в употребление перечислимый тип с помощью описания типаИгрушка=(заяц, мишка, мяч, кукла, машина)то массив с именем Колич естественно ввести в употребление с помощьюописания переменныхКолич:arrayofСИгрушкаЗ1..NНаконец, найдем наибольшую компоненту вектора Колич и ее индексПоскольку в качестве типа индекса у этого вектора мы выбрали перечислимый тип с именем Игрушка, то значением индекса у найденной компоненты будет название соответствующей игрушки, однако это названиепредставлено не строкой литер, а константой перечислимого типа.
Привыводе на печать это название надо будет преобразовать в подходящуюстроку литер.Предложенный способ решения задачи можно реализовать следующейпаскаль-программой.{Пример 7.5.Тоноян Р.Н.ЕрГУ1.4.В7г.Задается список названий подаренных игрушек.Определить, каких игрушек подарено больше всего){Использование строк;вывод значений перечислимого т и п а )p r o g r a m новыйгод(input,output);constN=30;Ыаблон= '';typeИгрушка-(заяц, мишка, мяч, кукла, машина);имяигрушки=раскес! a r r a y С 1 . . 6 3 of char;139varПодарки: array C1..NI3 o-f имяигрушки5Колич: array [Игрушка] of 1..N;name: имяигрушки;toy,ind: Игрушкаi , j, max: 1. .N;sym: char;{——————-.—_}begin(ввод всех имен подаренных игрушек}for i.:=l to N dobegin(ввод очередного имени}name:=Шаблон;j : =1; r ead(sym!;while (sym*', ') and (sym* ' .
'> dobegin nameCj3:=sym;j:=j+l; read(sym) end;{занесение введенного имени в массив Подарки}ПодаркиС i 3 : -"nameend;{{в массиве Подарки - имена всех игрушек}}{подсчет числа игрушек каждого вида}{очистить все счетчики}for toy:=зaяц to машина do КоличСtoy3:=0;{просмотр всех имен и корректировка счетчиков}for i:=1 to N dobeginname:=ПодаркиС i 3 ;{определение индекса нужного счетчика}if name--'заяц' then 1пс1:=заяцelse if name='мишка_' then i пй=мишкаelse if name--'мячthen ind=Mfl4else if пате='кукла_then 1пЬ=куклаelse i nd:=машина;{увеличение выбранного счетчика на единицу}КоличС i nd 3:=КоличС i nd 3 + 1end;{}{определение, каких игрушек больше всего, и их числа}max:=количС заяц];140toy:=заяц;•for i nd: =мишка to машина doif KOflMMCindD>max thenbegin max:=количСindD;toyt=ind end;С(вывод результатов:имени w количества игрушек,которых больше всего в списке)write( ' Б0ЛЫЛЕ_ВСЕГ0_П0ДАРЕН0_');caseзаяц:toy ofwrite('ЗАЙЦЕВ:_');мишка: write ( 'МИШЕК: _ "~> ;мяч:кукла:машина:write('МЯЧЕЙ:_');write('КУКОЛ:_');write('МАЫИН:_')end;wr i teln(max , '_ЫТУК.
')end.В этом примере следует обратить внимание на несколько моментов.Во-первых, названия игрушек, заданные в исходном списке, в процессевыполнения программы хранятся в виде компонент массива Подарки,а каждая из этих компонент, в свою очередь, является массивом (строкой)литер. Поскольку все компоненты массива в паскале должны иметь одини тот же тип, то для всех этих массивов литер пришлось задать одно и то жечисло компонент — шесть, с помощью которых можно представить самоедлинное название игрушки (машина). В исходном списке могут содержаться названия игрушек разной длины, поэтому при вводе каждое очередноеназвание преобразуется в 6-литерное и запоминается в качестве значениявспомогательной переменной паше. Для достижения этой цели переменной name предварительно присваивается (с помощью константы Шаблон)значение, состоящее из шести литер пробела.
Благодаря этому каждоевводимое название игрушки дополняется справа нужным числом пробелов.Во-вторых, счетчики числа игрушек каждого вида объединены в массивКолич, в качестве типа индекса которого используется перечислимыйтип с именем Игрушка. Сначала содержимое всех счетчиков полагаетсяравным нулю. Затем по очередному названию игрушки, выбираемомуиз массива Подарки, определяется индекс (значение перечислимого типа)того счетчика, в который должна быть добавлена единица.
В программедля достижения этой цели используется условный оператор, хотя внешнеситуация кажется подходящей для использования оператора варианта. Однако в данном случае этот оператор использовать нельзя, поскольку вкачестве селектора оператора (меток варианта) нельзя использовать выражение (значения) нескалярного типа, в том числе и упакованного регулярного типа, к которому относится имя Игрушки, представленное в виделитерной строки.141В-третьих, мы рекомендуем читателю особенно внимательно проанализировать описание и использование переменных паше и toy (а также indи Подарки).Дело в том, что внешне между этими переменными есть много общего.Так, в программе имеется оператор присваивания toy: = заяц, а можнобыло бы использовать и оператор toy: = машина.
Переменной name тожеможно было бы присвоить значение, равное названию игрушки, напримерс помощью оператора name:= 'машина'. Всвязи с этим может создатьсявпечатление, что переменные toy и name могут иметь одно и то же значение.Однако на самом деле это не так, поскольку переменные toy и nameимеют совершенно разные типы. Действительно, переменной toy предписан перечислимый тип значений, поэтому в операторе toy: = машина присваиваемое переменной toy значение задано в виде константы машина перечислимого типа. Переменная же name имеет упакованный регулярный тип,и ее значением является массив литер. Так что в операторе name: = 'машина'присваиваемое переменной name значение задано в виде строковой константыи потому — в соответствии с синтаксисом — последовательность литер,образующая такую константу, взята в апострофы.
Именно для того, чтобыиметь возможность отличать явно задаваемую строку литер как строковуюконстанту от любых других идентификаторов, такая строка литер и заключается в апострофы.Использование сравнения строк демонстрирует следующий пример.П р и м е р 7.6. Напечатать лексикографически упорядоченные словаисходного текста (без повторений). Слова в тексте разделяются литерой ' , ' (запятая), текст заканчивается литерой ' . ' (точка). Для определенности предположим, что слово состоит не более чем из десяти литер,а в тексте не более ста слов.Алгоритм решения задачи может быть представлен следующей обобщенной схемой:begin{1. Ввод исходного текста в массив слов А}{2.
Сортировка введенных слов в массиве А>{3. Печать лексикографически упорядоченногомассива слов А>endДетализируем каждую из трех подзадач.1. Ввод текста осуществляется последовательно литера за литерой.Вследствие этого ввод очередного слова осуществляется до запятой, а признаком окончание ввода (конец текста) является точка. Каждое словотекста представим в программе как упакованный массив литер, состоящийиз десяти компонент. Если слово состоит менее чем из десяти букв, то заполняем оставшиеся компоненты значением ' —' (подчеркивание). Весьвведенный текст представим как массив слов. Количество компонент этого массива по условию задачи ограничено числом 100. В процессе вводаисходного текста определяем значение целой переменной i, равное числувведенных слов.1422.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
