Hammayoqni bo'ladi yuqori darajadagi yig'ilish tili uchun GEC 4000 seriyali minikompyuterlar.[1] Uning nomi berilgan Charlz Babbig, an Ingliz tili hisoblash kashshofi.
Misol
PROSES BOBI FACTORIALENTRY ENTRYPOINTLITERAL TO = 4 // Standart proformadan foydalanishni taxmin qiling EXTERNAL ROUTINE OPEN, PUT, CLOSE, TOCHARVECTOR [0,19] BAYTE ANSWER = "factorial x = xxxxxx" HALF COUNTHALF VALUE ************************************************** ********************** ROUTINE FACT (VALUE) // RA faktorialini qaytarish. VALUE => NECULT DECREMENT VALUE GT // 0 // DO << Natija * VALUE => Natija >> Qaytish (Natija) END // ******************* ************************************************** ********* ENTRYPOINT: OPEN (TO, 1) // 1 dan 9 gacha bo'lgan raqamlar uchun faktoriallarni chop eting 1 => RA REPEAT << RA => COUNT FACT (RA) => RA TOCHAR (RA, 7, Javob + 13) TOCHAR (COUNT, 2, JAVOB + 9) QO'YING (TO, 20, JAVOB) COUNT + 1 => RA >> RA LT 10 YAQIN (TO) STOP (0) END // ***** ************************************************** ***********************
Shuningdek qarang
Adabiyotlar