Бэббидж это язык ассемблера высокого уровня для GEC 4000 серии миникомпьютеры.[1] Он был назван в честь Чарльз Бэббидж, английский пионер вычислительной техники.
Пример
ПРОЦЕСС ГЛАВА FACTORIALENTRY LABEL ENTRYPOINTLITERAL TO = 4 // Предположим, что используется форма по умолчанию EXTERNAL ROUTINE OPEN, PUT, CLOSE, TOCHARVECTOR [0,19] OF BYTE ANSWER = "factorial x = xxxxxx" HALF COUNTHALF VALUEFULL RES ************************************************* ********************** ОБЫЧНЫЙ ФАКТ (ЗНАЧЕНИЕ) // вернуть факториал RA. VALUE => RESULT WHILE DECREMENT VALUE GT // 0 // DO << RESULT * VALUE => RESULT >> RETURN (RESULT) END // ******************* ************************************************* ********* ENTRYPOINT: OPEN (TO, 1) // Распечатать факториалы для чисел от 1 до 9 1 => RA REPEAT << RA => COUNT FACT (RA) => RA TOCHAR (RA, 7, ANSWER + 13) TOCHAR (COUNT, 2, ANSWER + 9) PUT (TO, 20, ANSWER) COUNT + 1 => RA >> WHILE RA LT 10 CLOSE (TO) STOP (0) END // ***** ************************************************* ***********************
Смотрите также
Рекомендации