* Несколько простых примеров использования команды INPUT PROGRAM. * Автор: Raynald Levesque, 20.03.2004, rlevesque@videotron.ca. * сформируем список от 1 до 100. INPUT PROGRAM. LOOP id=1 TO 100. - END CASE. END LOOP. END FILE. END INPUT PROGRAM. LIST. * Создадим 50 единиц, а за ними - 50 двоек. INPUT PROGRAM. LOOP id=1 TO 2. LEAVE id. - LOOP #cnt=1 TO 50. - END CASE. - END LOOP. END LOOP. END FILE. END INPUT PROGRAM. LIST. * создадим последовательность 1,2,3,4,5, повторяющуюся 10 раз. INPUT PROGRAM. LOOP #id=1 TO 10. LEAVE #id. - LOOP val=1 TO 5. - END CASE. - END LOOP. END LOOP. END FILE. END INPUT PROGRAM. LIST. * Создадим 1000 (псевдо)случайных чисел из равномерного распределения. INPUT PROGRAM. LOOP #id=1 TO 1000. - COMPUTE draw=UNIFORM(1). - END CASE. END LOOP. END FILE. END INPUT PROGRAM. LIST /CASES=FROM 1 TO 25.