В.Г. Абрамов, Н.П. Трифонов, Г.Н. Трифонова - Введение в язык Паскаль (1107618), страница 35
Текст из файла (страница 35)
Сортировку введенных слов текста по лексикографическому принципу осуществим методом простого обмена, который основан на принципе сравнения и обмена пары соседних слов до тех пор, пока не будут рассортированы все слова текста. При реализации этого метода совершаютсяповторные проходы по массиву слов, при которых происходит перестановка соседних слов, если между ними нет лексикографического порядка.Это происходит до тех пор, пока не будут устранены все нарушения лексикографического порядка.3.
После того, как все слова отсортированы, в последовательных компонентах массива слов находятся лексикографически упорядоченные словаисходного текста. Последовательно перебирая компоненты этого массива,печатаем слова. Заметим, что в результате сортировки все повторяющиесяслова будут располагаться в последовательных компонентах массива слов.Печатаем слова без повторений, для чего каждый раз сравниваем очередное слово с предыдущим напечатанным словом. В случае совпаденияпереходим к следующему слову, иначе выводим очередное слово на печать. Печать слова производим с помощью последовательного выводаотдельных литер, образующих это слово.{Пример 7.6ПечатьКацкова О.Н.ф-т ВМиК МГУ 3.3.87 глексикографически упорядоченных словзаданного текста(без повторений)}{Пример работы со строками,сравнение строк одинаковой длины}program ПЕЧАТЬУПОРСЛОВ(input,output);constшаблон= 'длина=10;';граница=100;typeолово-packed array С 1. ..длина] of char;текст=аггау С 1..граница] of слово;varсим: char;А: текст; г: слово;i,j , k: i nteger;begin {ввод первой литеры}i:=0; read(сим);while сим*'.'begin i:=i+l;doj:=0;{подготовка к вводу очередного слова)AC i]:^шаблон;while (сим*'.')and(сим*',')do143begin j:=j+l;{занесение очередного символа слова}AC j.
, j 3 : =сим;{чтение очередного символа текста}read (сим)end;i-f сим= , 'then read (сим)end;{установка лексикографмче-с>.ого порядка в массиве слов}•for ! :to 1 dobegin for j:-i downto k doif А Г i - J J Aij.l thenb e g i n r : --A! .1-13; Hi j II: -Hi" j 3 ; АГ i 3 : - r e n dend;Г П&ча I Ь /It.:* L . V1К ':.;!I и vrii'!":/iV4^HH!lL.'IOH( F. l ГI! J Ei "I t/pt-1 MHr : --шаблон; v-jr iteJ.fi;for k:=l to l doif А Г k 3 4-r thenbegin r s=ACk3; for j: = l to 10 do wr i te (All k , j 3 > ;wr i tel r.endend.ГЛАВА8ПРОЦЕДУРЫ-ОПЕРАТОРЫВ программировании весьма типичной является такая ситуация, когдав разных местах программы приходится выполнять по сути дела одини тот же частичный алгоритм, который имеет достаточно самостоятельное значение, т.е. предназначен для решения некоторой подзадачи, выделенной из основной решаемой задачи, например нахождение наибольшегообщего делителя двух натуральных чисел, упорядочение компонент вектора по их неубыванию, решение системы линейных алгебраических уравнений и т.д.
Если этот частичный алгоритм достаточно сложен и представляется достаточно большим фрагментом программы, то было бы явно нерационально выписывать его каждый раз заново в том месте программы,где этот частичный алгоритм должен использоваться.Для обеспечения большей компактности программы и повышения еенаглядности паскаль позволяет выделить любой частичный алгоритм из основного текста программы (из ее раздела операторов) и записать его только один раз, представив этот частичный алгоритм в качестве самостоятельного программного объекта, называемого процедурой (или подпрограммой ).Процедура вводится в употребление (определяется) с помощью описания процедуры, помещаемого в раздел процедур и функций программы:(описание процедуры):: = (заголовок процедуры); ( б л о к )Блок (или тело процедуры) является тем фрагментом программы, который объявляется процедурой, причем этот блок определяется точно так же,как и блок, являющийся телом паскаль-программы.Заголовок процедуры, начинающийся служебным словом procedure(процедура), содержит имя, сопоставляемое данной процедуре, и, возможно, некоторую дополнительную информацию, облегчающую использование этой процедуры.
Состав и назначение этой дополнительной информации будут рассматриваться ниже.Для активации процедуры (т.е. для выполнения фрагмента программы,объявленного процедурой) в нужном месте программы служит операторпроцедуры:(оператор процедуры):: = (имя процедуры) |(имя процедуры) ((список фактических параметров))10.
В.Г. Абрамов145• С помощью списка фактических параметров конкретизируется действиевызываемой для исполнения процедуры, если ее описание требует такойконкретизации.В связи с тем, что активация процедур рассматриваемого здесь видапроизводится с помощью операторов процедуры, такие процедуры частоназывают процедуры-операторы.Различные особенности описаний процедур и способы их использованиямы будем объяснять и иллюстрировать на примере следующей задачи:по задаваемым вещественным значениям* и у вычислитьи = max(x +у,х * у),v = max(0.5, и) .Программу решения этой задачи без использования процедур можнозаписать в виде:program МАХА(input,output);var >:,y,u,v: real;begin read(x,y);i-f x+y>x*y then u:=x+y else u:=x*y;if 0.5>u then v:=0.5 else v:=u;wr i teln('_u=',u, '_v=' ,v)end.Как видно, в программе фигурируют два условных оператора, каждыйиз которых предназначен для решения по сути дела одной и той же частичной задачи: нахождения большего из двух заданных вещественных значений и присваивания некоторой переменной полученного результата.Поэтому алгоритм решения этой частичной задачи целесообразно объявитьпроцедурой.8.1.
Процедуры без параметровЧтобы подчеркнуть сходство двух упомянутых выше условных операторов, запишем нашу программу несколько иначе:program МАХВ(input, output);var x,y,u,vs ri--al; a,b,s: real;begin read(x,y);a:=x+y; b:=x*y;if a>b then s:=a else s!=b;u: =s;a:=0.5; b:=u;if a>b then s:=a else s:=b;v: =s;wri teln('_u=',u,'_v=',v)end.В этой программе условные операторы в точности совпадают друг с другом, поэтому можно считать, что один и тот же условный оператор присут146ствует в программе дважды.
Чтобы избежать двукратного выписыванияэтого оператора в разделе операторов программы, объявим его процедурой, которой дадим имя МАХ2А:procedure МАХ2А;begin if a>b then ss=a else ss=b endДля активации этой процедуры в нужном месте программы достаточно там записать оператор процедуры, состоящий только из имени этойпроцедуры — МАХ2А. С использованием такой процедуры программапримет вид:program МАХС(input, output);var >:,y,u,v: real; a,b,s: real;procedure MAX2A;begin if a>b then s:=a else s:=b end;begin read(x,y>;a:=x+y; b:--x*y; MAX2A; u:=s;a:-0.5; b:=u; MAX2A; v:=s;wri teln('_u=',u, '_v= ' ,v>end.Выполнение каждого из фигурирующих здесь операторов процедурыМАХ2А сводится просто к выполнению тела процедуры с этим именем.Поскольку в данном случае фрагмент текста программы, объявленныйпроцедурой, весьма невелик, то существенного выигрыша в размере общего текста программы мы не получили.
Однако если бы этот фрагмент былдостаточно большим, то выигрыш был бы очевиден. Но даже и в нашемслучае основная часть программы — ее раздел операторов — стала болеекомпактной и наглядной по сравнению с предыдущим вариантом программы (с именем МАХВ).8.2.
Процедуры с параметрами8.2.1. Параметры-значенияВведенная нами в употребление процедура МАХ2А не очень удобна дляиспользования, поскольку ее назначение зафиксировано слишком жестко.В частности, исходными данными для нее могут служить только значенияпеременных а и Ь. Поэтому перед каждым обращением в процедуре приходится предварительно присваивать этим переменным те значения, из которых нужно выбирать большее.
Чтобы снять это ограничение и тем самымобеспечить общность процедуры и повысить удобство ее использования,паскаль позволяет не фиксировать те исходные значения, к которым должна применяться процедура, а сделать их п а р а м е т р а м и процедуры, которые можно достаточно удобно конкретизировать при каждом обращении к ней.С этой целью не будем заранее фиксировать те значения, из которыхпроцедура должна выбрать большее, а обозначим их формально некоторыми идентификаторами, не используемыми в теле процедуры для иныхцелей, например rl и г2, и запишем тело процедуры с использованием10*147этих терминов:begin i-f rl>r2 then s:=rl else s:=r2 endИдентификаторы, используемые для указанной цели, называются формальными параметрами процедуры, поскольку они представляют не какие-то конкретные значения, а значения "вообще". При каждом обращении к процедуре ее формальные параметры должны конкретизироваться,поэтому для упрощения последующих обращений к процедуре ее формальные параметры явно указываются в заголовке процедуры и тем самымупорядочиваются по их перечислению.
При этом для каждого формального параметра должно быть указано имя типа того значения, которое представляется этим формальным параметром. Как и в случае описания переменных, этот тип может быть указан только один раз, после списка соответствующих формальных параметров:procedure МАХ2В<rl,r2:real);begin if г 1>r2 then s:=rl else s:=r2 endПри обращении к такой процедуре в соответствующем операторе процедуры вслед за именем процедуры надо в круглых скобках задать список фактических параметров, конкретизирующих те значения, к которымна самом деле должна применяться процедура и которые в ее теле былиобозначены формальными параметрами. Поскольку формальные параметры нашей процедуры имеют тип real, то фактическим параметром можетбыть любое арифметическое выражение, задающее правило вычисленияиспользуемого в процедуре значения.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
