Comal (COMmon Algorithmic Language) jest językiem programowania wysokiego poziomu, stworzonym dla potrzeb edukacji.

Historia języka

Język ten zaprojektowany stał się przez duńskiego wykładowcę, Borge Christensena. Jest on wzorowany w zasadzie na dwóch innych, językach : Basicu oraz Pascala. Z założenia jako język do nauki podstaw programowania, zachowano w nim prostotę Basica oraz wprowadzono elementy niezbędne do programowania strukturalnego, wzorowane na strukturach zawartych w języku Pascal. W literaturze wielokrotnie spotyka się określenie Comalu jako "strukturalny Basic".

Pierwsza implementacja tego języka była zbudowana w 1981 r. dla komputerów Commodore PET, następnie m.in. dla Commodore 64.

Język ten zdobył uznanie w poniektórych krajach oraz stał się wprowadzony do programu nauczania w szkołach, np. w Danii oraz Irlandii.

Aktualnie Comal to już tylko ciekawostka z historii informatyki.

Charakterystyka języka

Główną właściwością przejętą z Basica-a jest wykonywanie własnego, pełnego środowiska systemowego, udostępniającego polecania systemowe, dzięki czemu podczas pracy nie ma konieczności wychodzenia poza powłokę Comal.

Program w Comal stanowi ciąg instrukcji umieszczonych w wierszach kodu źródłowego. Kolejne wiersze są numerowane analogicznie jak we wczesnych wersjach Basica (powstały implementacje, w których nie numeruje się wierszy). Można jednak umieszczać parę instrukcji w jednym wierszu rozdzielonych średnikiem. W instrukcji przypisania stosuje się zapożyczony z Pascala symbol dwuznakowy ":=". W języku dostępna jest przeważajaca ilość instrukcji znanych z Basica, w tym polecenia systemowe oraz edycyjne (np. LIST, RUN, LOAD, SAVE) oraz dodatkowe (np. CAT, ENTER), instrukcje danych (np. DATA, READ), instrukcje we-wy (np. PRINT, INPUT) oraz inne, oraz instrukcje strukturalne, wzorowane na rozwiązaniach zawartych w języku Pascal:

• warunkowa:

 IF warunek THEN
   instrukcje
 ENDIF

• wyboru

 CASE wyr OF
   WHEN wyroznik-1
     instrukcje-1
   WHEN wyroznik-2
     instrukcje-2
 …
   WHEN wyroznik-n
     instrukcje-n
   OTHERWISE
     instrukcje-oth
 ENDCASE

• iteracyjna

 FOR i=w_p TO w_e
         instrukcje
 NEXT i

• repetycyjne

 WHILE warunek DO
         instrukcje
 ENDWHILE

 REPEAT
          instrukcje
 UNTIL warunek

• definicji procedury

 PROC nazwa(parametry)
         instrukcje
 ENDPROC nazwa

• wywołania procedury

 EXEC nazwa(argumenty)

Przykład

 10  PRINT "Przykład programu w jezyku Comal"
 20  REPEAT
 25    EXEC PiszOpcje
 30    INPUT "Wybierz opcje": Opcja
 40    INPUT "X=": X
 50    INPUT "Y=": Y
 60    EXEC Wybor(Opcje, X, Y)
 70  UNTIL Opcje=5
 80  PROC PiszOpcje
 90    PRINT "1. suma"
 100   PRINT "2. roznica"
 110   PRINT "3. iloczyn"
 120   PRINT "4. iloraz"
 130   PRINT "5. wyjscie"
 140 ENDPROC PiszOpcje
 150 PROC Wybor(A,B,C)
 160   CASE A OF
 170     WHEN 1
 175        PRINT "SUMA=", B+C
 180     WHEN 2
 185        PRINT "ROZNICA=", B-C
 190     WHEN 3
 195        PRINT "ILOCZYN=", B*C
 200     WHEN 4
 205        PRINT "ILORAZ=", B/C
 210     WHEN 5
 215        PRINT "Koniec"
 220     OTHERWISE
 225        PRINT "Bledna opcja"
 230   ENDCASE
 240 ENDPROC Wybor

Bibliografia

1. Mike Duck, Języki mikrokomputerów. Przewodnik dla początkująych. Basic, Pascal, Logo, Prolog, Comal, Forth, Wydawnictwa Naukowo-Techniczne, Warszawa 1988, tłumaczenie: Marcin Turski, ISBN 83-204-0966-7

Sprawdź też

• Podprogram w języku Comal
• język programowania
• BASIC
• Pascal