В языке Progress предусмотрены только одномерные массивы.
В простейшем случае описание массива выглядит так:
DEFINE VARIABLE I AS T EXTENT N.
где I - идентификатор массива,
T - тип элементов массива,
N - число элементов массива.
В описании массива можно явно задавать начальные значения:
DEFINE VARIABLE I AS T EXTENT N INITIAL [ C1 , C2 ,..., Cn].
где Cn - изображения констант типа T.
Доступ к элементам массива осуществляется по индексу. Индекс - выражение типа INTEGER.
Пример 1.8.1
Программа по заданному интервалу выводит названия дней недели.
DEFINE VARIABLE dday AS CHARACTER EXTENT 7 INITIAL ["sunday","monday","tuesday","wednesday", "thursday","friday","saturday"]. DEFINE VARIABLE i AS INTEGER. DEFINE VARIABLE d1 AS DATE. DEFINE VARIABLE d2 AS DATE. DEFINE VARIABLE d AS DATE. SET d1 LABEL "enter a date1". SET d2 LABEL "enter a date2". DO d = d1 TO d2: i = WEEKDAY(d). DISPLAY d dday[i]. PAUSE 1. END.
Комментарии к статье:
Добавить комментарий: