Basic Combined Programming Language(BCPL),是一种早期的高级语言。

中文名：BCPL

外文名：Basic Combined Programming Language

性质：一种早期的高级语言

适用范围：UNIX上的常用开发语言

产生时间：1967年

BCPL有些类似于Fortran，也是典型的面向过程的高级语言。BCPL的语法更加靠近机器本身，适合于开发精巧，高要求的应用程序，同时对编译器的要求也不高。BCPL也是最早使用库函数封装基本输入输出的语言之一，这使得他跨平台的移植性很好。BCPL的代码用小写字母书写，有别于同时代的BASIC和PASCAL。BCPL对于字符串的支持很差，这种缺点一直延续到了他的后代中，BCPL的内存管理也很糟糕，不过幸好在他的后代中这个缺点被改掉了。BCPL程序从一个主函数中开始，功能模块可以添加在各个函数中，函数支持嵌套和递归。

BCPL本身并没有被使用太长时间，这是因为他的后代们实在太强大了。1970年，贝尔实验室的Ken Thompson在BCPL的基础上改进出了B语言，用于书写UNIX。这个名字取自BCPL中的第一个字母。B语言使用的时间更短，因为三年后的1973年同样是贝尔实验室的D.M.RITCHIE将B语言进一步改进，并且取了BCPL中的第二个字母将其命名为C语言。而C语言和C++则在日后成为了最流行的高级语言。

Printing factorials: GET "libhdr" LET start() = VALOF { FOR i = 1 TO 5 DO writef("fact(%n) = %i4*n", i, fact(i)) RESULTIS 0 } AND fact(n) = n=0 -> 1, n*fact(n-1) N个皇后问题： N个皇后问题： GET "libhdr" GLOBAL { count:200; all:201 } LET try(ld, row, rd) BE TEST row=all THEN count := count + 1 ELSE { LET poss = all & ~(ld | row | rd) UNTIL poss=0 DO { LET p = poss & -poss poss := poss - p try(ld+p << 1, row+p, rd+p >> 1) } } LET start() = VALOF { all := 1 FOR i = 1 TO 12 DO { count := 0 try(0, 0, 0) writef("Number of solutions to %i2-queens is %i5*n", i, count) all := 2*all + 1 } RESULTIS 0 }