CPL (Combined Programming Language – kombinovaný programovací jazyk) jemultiparadigmatický programovací jazyk vyvinutý Cambridgeskou a Londýnskou univerzitou v roce 1960. Byl ovlivněn jazykemALGOL. Vzhledem ke složitosti jazyka se první překladač objevil až v roce 1970.^[1] Tento jazyk se nikdy nestal populárním, ale vytvořil základ pro jazykBCPL.

CPL podporuje strukturované a funkcionální programování. Program se skládá z definic a příkazů a je uspořádán do bloků, které mohou být vnořené. Blok začíná i končí znakem§.

• integer (celé číslo, velikost je nespecifikována)
• real (reálné číslo, velikost je nespecifikována)
• complex (komplexní číslo, dvojice reálných čísel)
• index (celé číslo, které se vejde do B-registrů (indexové registry))
• logical (binární vzor, velikost je nespecifikována)
• Boolean (pravdivostní hodnota)
• label (návěstí pro skok)
• string (sekvence symbolů CPL abecedy)
• array (pole, deklaruje se takto:TypPole PocetRozmeru array NazevPole, pro1 array je zkratkavector a pro2 array je zkratkamatrix)
• list (seznam, podobný jako vLispu)

Přiřazení:proměnná:=hodnota.

Podmínka:if logická hodnota then do příkaz (provede se, pokud podmínka platí) nebounless logická hodnota then do příkaz (provede se, pokud podmínka neplatí) nebotest logická hodnota then do příkaz1 or do příkaz2 (pokud podmínka platí, provede sepříkaz1, jinak se provedepříkaz2.

Cykluswhile-do:while logická hodnota do příkaz (opakuje se, dokud podmínka platí) nebountil logická hodnota do příkaz (opakuje se, dokud podmínka neplatí).

Cyklusdo-while:příkaz repeat while logická hodnota (opakuje se, dokud podmínka platí) nebopříkaz repeat while logická hodnota (opakuje se, dokud podmínka neplatí).

Cyklus for:for proměnná=seznam do příkaz (proměnná nabývá postupně všech hodnot vseznamu).

Přiřazení:seznam:=hodnota, napříkladseznam:=1,2,3,4 neboseznam1:=seznam2.

Přiřazení seznamu do jiných proměnných:proměnná1,proměnná2,... :=seznam například:a,b,c,d:=seznam.

Paralelní přiřazení:proměnná1, proměnná2,... :=hodnota1, hodnota2,....

Výrazstep:step s, n, f (vrátí seznam obsahující každén-té číslo ods dof), používá se často v cyklufor.

Výpočetfaktoriálu:

function Faktorial[x] = result of    § real f = 1      until x = 0 do          f, x := xf, x — 1      result := f §

Funkce nesmí mít žádné vedlejší efekty.

Musí být uveden modifikátorrec.

Rekurzivní výpočetfaktoriálu:

rec function FaktorialRekurzivni[x] = (x = 0) → 1, x*FaktorialRekurzivni[x — 1]

ProgramHello World:

Write(‘Hello, World!’)

• Main features of CPL (anglicky)

Tento článek je příliš stručný nebopostrádá důležité informace. Pomozte Wikipedii tím, že jej vhodněrozšíříte. Nevkládejte všakbez oprávnění cizí texty.

• Programovací jazyky

• Pahýly