Comal (język) — część 3

Przykład 10 PRINT "Przykład programu w języku Comal" 20 REPEAT 25 EXEC PiszOpcje 30 INPUT "Wybierz opcje": Opcja 40 INPUT "X=": X 50 INPUT "Y=": Y 60 EXEC Wybor(Opcja, X, Y) 70 UNTIL Opcja=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

Zobacz też podprogram język programowania BASIC Pascal

Bibliografia Mike Duck, Języki mikrokomputerów. Przewodnik dla początkujących. Basic, Pascal, Logo, Prolog, Comal, Forth, Wydawnictwa Naukowo-Techniczne, Warszawa 1988, tłumaczenie: Marcin Turski,

Kategoria:Języki programowania