Практикум по основам программирования. Язык Паскаль

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

TYPE DAY= (MO,TU(WE,TH,FR,SA,SU);

VAR D1,D2,D3:DAY;

означает, что переменные D1,D2,D3 типа DAY при вы­ полнении программы могут принимать только одно из семи указанных значений. Объект, указанный в списке, может присутствовать не более чем в одном описании. Так как значение FOUR встречается в обоих типах, следующие два задания типов несовместимы:

TYPE Tl=(ONE,TWO,THREE,FOUR);

TYPE T2=(FOUR,FIVE,SIX);

Имена объектов, указанных в описании перечисли­ мого типа, являются константами этого типа. Поэтому, имея описания

TYPE NAME=(JOHN,TOM,NICKTANNrrANE);

TYPE COLOR= (RED.BLUE.BLACK);

VAR X,Y,Z:NAME; Cl,C2,C3:COLOR;

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

Cl:= BLUE; X:=ANN; Y:=TOM; C2: = RED

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

Операторы присваивания Z:=BLACK; СЗ:=ТОМ недопу­ стимы.

Для перечислимого типа данных существенен поря­ док указанных объектов. К данным перечислимого ти­ па применимы операции отношения. Например, из предыдущего описания и примеров операторов при­ сваивания следует, что выражения X>JOHN, С2<С1, Y<X имеют значение TRUE.

Для объектов перечислимых типов определены стандартные функции PRED.SUCC и ORD, имеющие тот же смысл, что и для стандартных скалярных ти­ пов. Например, для типа COLOR результатом функции SUCC(RED) является значение BLUE, результатом функции PRED(BLACK) - BLUE. Функция ORD(BLUE)

ный ранее перечислимый тип DAY. Сначала указыва­ ется нижняя граница, затем верхняя (при этом ниж­ няя граница не должна быть больше верхней). Попыт­ ка присвоить переменной ограниченного типа значе­ ние, не входящее в заданный диапазон, приведет к возникновению ошибки при счете. Таким образом, вве­ дение ограниченных типов перекладывает проверки до­ пустимости значений с программиста на ЭВМ.

К переменным ограниченного типа применимы все операции и стандартные функции, которые допу­ стимы при работе с переменными соответствующего базового скалярного типа.

3.3 ОПЕРАТОР ВАРИАНТА

Условный оператор позволяет при выполнении программы выбирать одно из двух возможных дейст­ вий. Если же необходимо сделать много взаимоисклю­ чающих проверок, то удобнее воспользоваться операто­ ром выбора варианта.

Общий вид оператора варианта:

CASE < СЕЛЕКТОР> OF

END;

Здесь и далее в тексте угловые скобки < > упот­ ребляются для обозначения словами (метасимволами) синтаксических конструкций языка.

Селектор представляет собой выражение скалярно­ го типа (но не вещественного). Выполнение оператора варианта начинается с вычисления значения селектора. Затем для исполнения выбирается оператор, одна из меток которого совпадает с полученным значением. После выполнения этого оператора (он может быть простым или составным) управление передается на оператор, следующий за оператором варианта. Если же значение селектора не совпало ни с одной из меток, то ситуация считается неопределенной. Выход на ава­ рийный останов или игнорирование оператора вариан­ та с продолжением выполнения программы зависит от реализации.

Оператор варианта удобно использовать для ввода и вывода значений перечислимых скалярных типов. Например, в следующем фрагменте с внешнего носи­ теля вводится порядковый номер объекта из списка значений перечислимого типа COLOR. Оператор CASE присваивает соответствующее значение переменной CLR. Аналогично осуществляется вывод значений пе­ ременной CLR при помощи оператора варианта.

PROGRAM CAS(INPUT,OUTPUT); TYPE COLOR=(RED,BLUE,BLACK); VAR X:INTEGER;CLR:COLOR;

BEGIN WRITE(*==>*); READLN(X); CASE X OF

0:CLR:=RED;

1:CLR:=BLUF;

2:CLR:=BLACK

END;

WRITE( COLOR-*); CASE CLR OF

RED:WRITELN <'RED*):

BLUE:WRITELN('BLUE *);

BLACK:WRITELN <*BLACK *) END

END.

П р о т о к о л р а б о т ы п р о г р а м м ы :

= = >2

COLOR-BLACK

3.4ВОПРОСЫ И УПРАЖНЕНИЯ

1.Описать переменную I как переменную ограничен­ ного типа, принимающую целочисленные значения от

20 до 35.

2. Можно ли задать переменную ограниченного типа, принимающую вещественные значения на отрезке [2; 5]?

3. Ойисать переменную перечислимого типа, прини­ мающую значения названий дней недели.

4*. Указать ошибки в следующих описаниях:

CONST А=2..30; В:=’В’; Р1=3,14159; ТУРЕ ОТРЕЗОК=(1..20);

ГОРОД= (МОСКВА; ТОМСК; ОМСК; БАКУ);

БУКВЫ= (’A’.’BVC’.’D’); ЦИФРЫ=(0,1,2,3,4,5,б,7,8,9);

2. Получение навыков в организации ввода/вывода зна­ чений переменных перечислимых типов данных.

П о с т а н о в к а з а д а ч и По заданным номеру квартала, дате, включающей

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

С о д е р ж а н и е о т ч е т а

1.Постановка задачи для конкретного варианта.

2.Блок-схема программы.

3.Текст программы.

4.Результаты отладки по тестам и счета основного ва­ рианта.

5.Анализ ошибок.

М е т о д и ч е с к и е у к а з а н и я 1. Задание может быть выполнено двумя способами:

а) номер квартала, дата и день недели задаются непосредственно в программе в виде констант;

б) исходная дата и день недели вводятся при по­ мощи оператора варианта.

2. Пример программы, которая по заданной дате (чис­ ло, месяц, год) определяет дату следующего дня:

PROGRAM ТА(INPUT,OUTPUT)|

TYPE МЕСЯЦ» <ЯНВ,ФЕВ,МАР,АЛР,МАИ,ИЮНfИЮЛ,АВГ,СЕНfОКТ,НОЯ,ДЕК); ДЕНЬ-1..31; ГОД-1900..2000;

VAR ДхДЕНЬ; М«МЕСЯЦ; Г*Г0Д| НОМ*1..12; BEGIN WRITE!*-»>*>; READLN!Д,НОМ,Г>;

CASE НОМ OF 1* Ms-ЯНВ; 2х Ms-ФЕВ; 3* Ms-МАР; 4; Мх-АПР; 5х Ms-МАИ; 6s Ms-ИЮН; 7s Ms-ИЮЛ; 8s Ms-АВГ; 9s Ms-СЕН; 10s Ms-ОКТ; 11s Ms-НОЯ; 12s Мх-ДЕК

END;

CASE M OF ЯНВ,MAP,МАИ,ИЮЛ,АВГ,OKTs IF Д-31 THEN

BEGIN Д:-1; Mr-SUCC(M) END ELSE Д:=Д+1;

АЛР,ИЮН,СЕН,НОЯ* IF Д-30 THEN BEGIN Да-l; Ms-SUCC<M) END ELSE Дх—Д-*-!;

РЕГУЛЯРНЫЕ ТИПЫ ДАННЫХ

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

4.1. МАССИВЫ

Регулярный тип, или массив, есть упорядоченный набор данных одинакового типа. Массив описывается при помощи задания типа его компонентов и типа индексов. При задании типа индексов(Т1) фактически указывается число компонентов массива, поэтому тип индексов может быть любым скалярным или ограни­ ченным, кроме неограниченного целого. Следует также помнить, что вещественный тип нельзя использовать при задании типа индексов. Тип компонентов массива(Т2) может быть любым простым или сложным.

Общий вид описания массива: ARRAYfTl] OF Т2. Рассмотрим примеры описания типов и перемен­

ных:

Переменная А есть вектор с вещественными ком­ понентами, перенумерованными от - 5 до 15. Пере­ менная В есть квадратная матрица целых чисел, со­ стоящая из 10 строк и 10 столбцов. Переменная С описана как матрица логических величин, у которой задано три строки ’А’,’В’,’С и пять столбцов. Обраще­ ние к элементу этой матрицы, стоящему на пересече­ нии 2-й строки и 1-го столбца, выглядит так: С[’В’, 1].

Переменная D -это символьный вектор, состоящий из двух компонентов; Тип переменной Е описан непос­ редственно в разделе переменных и является трехком­ понентным вещественным вектором, так как перечис­ лимый тип COLOR, указанный в качестве типа индек­ са, содержит три объекта и описан ранее. Три компо-