логический тип 3, последовательность операторов
Примечание
if MONTH = DECEMBER and DAY = 31 then MONTH := JANUARY; DAY := 1; YEAR := YEAR + 1; end if;if LINE-JOO-SHORT then raise LAYOUT-ERROR; elsif LINEFULL then NEW-LINE; PUT(ITEM); else PUT(ITEM); end if;if MY-.CAR.OWNER.VEHICLE /= MY-.CAR then -- CM. 1 REPORT ("Incorrect data"); end if; Ссылки: выражение 4.4, выполнение 4.5, логический тип 3, последовательность операторов
Содержание раздела