Парадигма | процедурный, структурированный, Ассемблер высокого уровня |
---|---|
Впервые появилось | около 1971 г.; 49 лет назад (1971) |
Стабильный выпуск | 308 |
OS | COS, GEC DOS, OS4000 |
Под влиянием | |
BCPL |
Бэббидж - высокий уровень ассемблер для миникомпьютеров серии GEC 4000 . Он был назван в честь Чарльза Бэббиджа, английского пионера вычислительной техники.
ГЛАВА ПРОЦЕССА FACTORIAL ENTRY LABEL ENTRYPOINT LITERAL TO = 4 // Предположим, используется проформа по умолчанию EXTERNAL ROUTINE OPEN, PUT, CLOSE, TOCHAR VECTOR [0,19] OF BYTE ANSWER = " факториал x = xxxxxx "ПОЛОВИНА СЧЕТЧИК ПОЛОВИНА ПОЛНЫЙ РЕЗУЛЬТАТ // ************************************ **************************************** ROUTINE FACT (VALUE) // вернуть факториал РА. 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 // *********** ************************************************* *****************
.