CoderNotes - заметки программиста

Публикации  »  4GL
Скидка 65% на Skillbox

Получите скидку 65% на любой курс программирования на популярной образовательной платформе Skillbox!

Подробнее
Бесплатный хостинг + SSL-сертификат

Зарегистрируйте домен и получите 2 месяца бесплатного хостинга и SSL-сертификат на 1 год в подарок

Подробнее

Массивы в 4GL

В языке 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.
Категория: 4GL

Комментарии к статье:

Пока комментариев нет, ваш будет первым ;)

Добавить комментарий: