8945

172

Writeln('', St);

End.

Цикл удаления элементов строки завершит работу, когда в строке не будет найдена пара круглых скобок. Это приведет к тому, что любая из функций Pos('(', St) Pos или Pos(')', St) вернет значение, равное нулю.

6.11.1. Задания

1.Задана строка символов. Группы символов, разделенные пр о-

белом и не содержащие пробелов внутри себя, будем называть словами.

Найти длину самого короткого и самого длинного слова.

2.Задана строка символов. Группы символов, разделенные про-

белом и не содержащие пробелов внутри себя, будем называть словами.

Определить, сколько в строке слов, заканчивающихся буквой а.

3.Задана строка символов. Группы символов, разделенные пр о-

белом и не содержащие пробелов внутри себя , будем называть словами.

Найти количество слов в строке, у которых первый и последний символ совпадают.

4.Задана строка символов. Группы символов, разделенные пр о-

белом и не содержащие пробелов внутри себя, будем называть словами.

Удалить из каждого слова строки все последующие вхождения его пер-

вой буквы.

5.Задана строка символов. Подсчитать, сколько различных си м-

волов встречается в ней. Вывести эти символы на экран.

6.Задана строка символов. Группы символов, разделенные пр о-

белом и не содержащие пробелов внутри себя, будем называть словами.

Определить количество слов, которые содержат ровно две буквы а.

7. Написать процедуру, которая преобразует текст, оставляя только один пробел между словами.

173

8.Дана строка текста, между словами текста минимум один пр о-

бел. Написать программу, которая между словами текста ставит по три

знака точка (…) и подсчитывает количество замен.

9.Написать программу, которая преобразует строку текста, вы-

равнивая ее до заданной длины добавлением пробелов между словами.

10. Написать программу, которая перевернет введенную с клавиа-

туры фразу.

6.12.Записи.

Запись относится к сложным типам данных. Запись — структура данных, состоящая из фиксированного числа элементов, называемых п о-

лями записи. В отличие от массива элементы записи могут быть разли ч-

ного типа. Запись хорошо ассоциируется с таблицей. В этом случае име-

на полей записи соответствуют наименованиям столбцов таблицы, а зн а-

чения элементов (полей) записи — значениям соответствующих ячеек выделенной строки таблицы.

Синтаксис объявления типа запись:

Type

<имя типа> = Record

<имя поля> : <type>;

<имя поля> : <type>; End;

Переменная типа запись объявляется в разделе описания переме н-

ных:

Var

<имя переменной> : Record

<имя поля> : <type>;

<имя поля> : <type>; End;

175

ятия данных, связанных с одним покупателем, целесообразно использ о-

вать специфическую структуру данных — запись, а для описания всей таблицы — массив записей.

{Определение структуры записи из четырех полей}

Type

Person = Record

Kod : Longint; { поле – код покупателя}

Fam : String[18]; { поле – фамилия покупателя}

Sum : Real; { поле – сумма платежа}

Tax : Real; { поле – отчисления } end;

{Объявление массива записей(покупателей)}

Var

Group : Array[1..10] Of Person; {массив покупателей}

For i := 1 to 10 do {для каждого покупателя}

{Присваиваются значения полям соответствующих зап исей}

Begin

Write('Введите код покупателя '); Readln(Group[i].Kod); Write('Введите фамилию покупателя ');

Readln(Group[i].Fam);

Write('Введите сумму платежа ');

Readln(Group[i].Sum);

If Group[i].sum >= 500 then

Group[i].Tax := Group[i].sum * 0.015

Else Group[i].Tax := Group[i].Sum * 0.03;

End;

177

минуты отправления. Общее число проходящих поездов равно 25. Поез-

да приходят каждый день. По данному времени определить, какие поезда

(номер и назначение) стоят в этот момент на станции. Программа дол ж-

на обеспечивать ввод данных, отображение введенных данных, упоряд о-

ченное по времени отправления.

2.Известна информация о 30 клиентах пункта проката: фамилия,

имя, отчество, адрес и домашний телефон. Известно также название предмета, взятого каждым из них напрокат (холодильник, телевизор и т.п.). Вывести на экран фамилию, имя и адрес каждого из кли ентов,

взявших телевизор. Программа должна обеспечивать ввод данных, от о-

бражение введенных данных, упорядоченное по фамилии клиента.

3. Дан список группы с результатами сессии (оценки по четырем предметам и 5 зачетов). Считая, что студент, имеющий не более од ной тройки, имеет право на стипендию, поставить в соответствие такому студенту в графе "стипендия" знак "+", в противном случае - знак "-".

Программа должна обеспечивать ввод данных, отображение введенных данных, упорядоченное по фамилии студента.

4.Дан список, состоящий из названия книг, фамилии авторов, н а-

звания издания и года издания. Напечатать список книг определенного автора, упорядоченный по годам изданий. Программа должна обеспечи-

вать ввод данных, отображение введенных данных, упорядоченное по фамилии автора.

5.Распечатать сумму отчислений по каждому оптовому покуп а-

телю с точностью до сотых долей рубля. Отчисления по сумме каждого платежа определяются следующим образом: до 500 рублей - 1.5%, свыше

500 рублей - 3%. Результат напечатать в следующем виде:

ИТОГО

178

Программа должна обеспечивать ввод данных, отображение вв е-

денных данных, упорядоченное по фамилии оптового покупателя.

6.Дан список выпускников 10 класса и оценки аттестата у кажд о-

го. Тем, у кого средний балл аттестата больше или равен 4.5, поставить в графе "эксперимент" знак "+", а остальным знак "-". Программа должна обеспечивать ввод данных, отображение введенных данных, упоряд о-

ченное по фамилии выпускника.

7. Дан список абитуриентов, средний балл аттестата и оценки на вступительных экзаменах у каждого (по пятибалльной системе). Считая,

что проходной балл 22, определить, станет ли данный абитуриент ст у-

дентом. Если да, то в графе "принят" поставить "да", в пр отивном случае

- "нет". Программа должна обеспечивать ввод данных, отображение вве-

денных данных, упорядоченное по фамилии абитуриента.

8.Дан список абонентов и номера телефонов. Выделить номера,

начинающиеся с 496. Данные представить в виде: фамилия, имя, отчес т-

во, адрес, номер телефона. Программа должна обеспечивать ввод дан-

ных, отображение введенных данных, упорядоченное по фамилии аб о-

нента.

9.Дан список группы с оценками экзаменационной сессии. По д-

считать количество отличников в группе и в графе "имеется задолже н-

ность" студентам имеющим двойки напечатать "да", а всем остальным

"нет". Программа должна обеспечивать ввод данных, отображение вв е-

денных данных, упорядоченное по фамилии студента.

10. Дан список группы и оценки экзаменационной сессии с назв а-

нием предметов. Напечатать список, и подсчитать по ка кому предмету в группе имеется наибольшее количество двоек. Программа должна обе с-

печивать ввод данных, отображение введенных данных, упорядоченное по фамилии студента.

6.13.Процедуры и функции

179

Процессу написания программ предшествует, как правило, два эт а-

па (рис. 6.4)

Рис 6.4. Этапы решения задачи

На первом этапе необходимо добиться, чтобы поставленная задача была понята. В случае простой задачи на это может потреб оваться лишь несколько секунд. Абсолютно бесполезно приступать к следующему этапу, если то, что должна делать программа осталось непонятным.

Только после прояснения этого вопроса можно приступать к следующ е-

му этапу — разработке алгоритма, представляющего собой последова-

тельность шагов. Каждый шаг описывает законченное дейс твие.

Из того, что алгоритм представляет собой последовательность ша-

гов, не следует, что при его построении вначале принимается решение о первом шаге, затем о втором, третьем и т.д., пока не будет записан п о-

следний шаг.

На самом деле такой метод разработки программ применим то лько в очень коротких решениях.

Одно из ограничений процесса мышления состоит в том, что в к а-

ждый момент времени мы можем в деталях охватить только несколько шагов алгоритма. С другой стороны, если мы хотим убедиться в том, что программа будет работать правильно, то необходимо рассматривать ал-

горитм как единое целое.

180

Преодолеть противоречие между необходимостью рассмотреть ал-

горитм как единое целое и возможностью рассмотреть в каждый момент времени лишь несколько шагов можно с помощью абстрагирования.

Вначале алгоритм записывается в виде последовательности шагов,

указывающих, что надо делать, но игнорирующих то, как должно быть сделано это. Далее выполняется детализация каждого шага, то есть ка ж-

дый шаг расписывается своей последовательностью шагов. В зависи мо-

сти от сложности задачи и эти более мелкие шаги можно в свою очередь на более мелкие шаги. При этом в каждый момент времени не придется рассматривать большое количество алгоритмических шагов. Размельч е-

ние каждого шага будет продолжаться до тех пор, пока для его перевода на алгоритмический язык не будут требоваться дополнительные затраты на разработку. Такой метод конструирования программ получил назв а-

ние «нисходящее программирование». К достоинствам этого метода можно отнести:

создание хорошо структурированных программ;

сокращение времени разработки программ;

увеличение надежности программ;

упрощение процесса модификации программ.

Базовой управляющей структурой в программировании, позволяю-

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

с помощью которого любая программа может быть разбита на ряд в и з-

вестной степени независимых друг от друга частей.

В языке программирования Паскаль определено два вида подпро-

грамм: процедуры и функции. Процедуры и функции представляют со-

бой во многом самостоятельные фрагменты программы, связанные с о с-

новной программой лишь с помощью нескольких параметров. Самосто я-

тельность процедур и функций позволяет локализовать в них все детали