penggalan program buat ujian (1IA01-1IA09) ver 1

5 CLS
INPUT "MASUKAN ANGGOTA HIMP A(MAX 10):", NA
IF NA > 10 OR NA = 0 THEN PRINT "ULANGI": SLEEP 3: GOTO 5
PRINT "{";
INPUT "", HIMPA$(1)
ROWS% = CSRLIN
COLS% = POS(0)
FOR I = 2 TO NA
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
INPUT ; ",", HIMPA$(I)
NEXT I
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
PRINT "}"
PRINT
PRINT
INPUT "MASUKAN ANGGOTA HIMP B(MAX 10):", NB
IF NB > 10 OR NB = 0 THEN PRINT "ULANGI": SLEEP 3: GOTO 5
PRINT
PRINT "{";
INPUT "", HIMPB$(1)
ROWS% = CSRLIN
COLS% = POS(0)
FOR I = 2 TO NB
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
INPUT ; ",", HIMPB$(I)
NEXT I
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
PRINT "}"
PRINT
PRINT
11 INPUT "MASUKAN ANGGOTA RELASI (MAX 10):"; REL
IF (REL > 10) OR (REL = 0) THEN PRINT "ULANGI LAGI!!": SLEEP 10: GOTO 11
PRINT
I = 1
PRINT
PRINT "PASANGAN RELASI :"
FOR I = 1 TO REL
PRINT "{";
INPUT "", A$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 4)
INPUT "==> ", B$(I)
LOCATE (ROWS% - 1), (COLS% + 9)
PRINT "}"
NEXT I

ND = 0
NR = 0
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF A$(K) = A$(L) THEN 50
NEXT L
ND = ND + 1
D$(ND) = A$(K)
50 NEXT K

IF ND <> NA THEN 200
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF A$(K) = A$(L) AND B$(K) <> B$(L) THEN 200
NEXT L
NEXT K
PRINT
PRINT "RELASI ADALAH FUNGSI"
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF B$(K) = B$(L) THEN 70
NEXT L
NR = NR + 1
R$(NR) = B$(K)
70 NEXT K
PRINT
PRINT "DOMAIN : {";
FOR K = 1 TO ND
PRINT D$(K);
IF K <> ND THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
PRINT "KODOMAIN : {";
FOR K = 1 TO NR
PRINT R$(K);
IF K <> NR THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
IF ND = NR THEN PRINT "FUNGSI ONTO" ELSE PRINT "FUNGSI TIDAK ONTO"
FOR K = 1 TO REL
FOR L = K + 1 TO REL
IF B$(K) = B$(L) AND A$(K) <> A$(L) THEN PRINT "TIDAK SATU-SATU"
NEXT L
NEXT K
PRINT "FUNGSI SATU-SATU": GOTO 220
200 PRINT "BUKAN FUNGSI": GOTO 5
PRINT " "
PRINT " "
PRINT " "
220 PRINT "FUNGSI INVERS DARI RELASI INI"
PRINT
PRINT "DOMAIN : {";
FOR K = 1 TO NR
PRINT R$(K);
IF K <> NR THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
PRINT "KODOMAIN : {";
FOR K = 1 TO ND
PRINT D$(K);
IF K <> ND THEN PRINT ",";
NEXT K
PRINT "}"
PRINT
PRINT "INVERS PASANGAN RELASI"
FOR I = 1 TO REL
PRINT "{";
PRINT B$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 4)
PRINT "==>", A$(I)
LOCATE (ROWS% - 1), (COLS% + 15)
PRINT "}"
NEXT I
PRINT
PRINT
PRINT "HASIL PRODUK FUNGSI"
PRINT "F: A ==> B DAN G : B ==> C DIDEFINISIKAN OLEH DIAGRAM-DIAGRAM:"
PRINT
INPUT "MASUKAN BANYAKNYA ANGGOTA HIMP C(MAX 10):", NC
IF NC > 10 OR NC = 0 THEN PRINT "ULANGI": SLEEP 3: GOTO 5
PRINT "{";
INPUT "", HIMPC$(1)
ROWS% = CSRLIN
COLS% = POS(0)
FOR I = 2 TO NC
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
INPUT ; ",", HIMPC$(I)
NEXT I
LOCATE (ROWS% - 1), (COLS% + 4 * (I - 1))
PRINT "}"
PRINT
PRINT "PASANGAN RELASI"
FOR I = 1 TO REL
PRINT "{";
PRINT B$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 4)
PRINT "==>", A$(I)
LOCATE (ROWS% - 1), (COLS% + 15)
INPUT "==>", C$(I)
LOCATE (ROWS% - 1), (COLS% + 29)
PRINT "}"
NEXT I
PRINT
PRINT
PRINT "HASIL PRODUK FUNGSI"
PRINT "HASILKALI FUNGSI (g o f): A ==> C"
FOR I = 1 TO REL
PRINT "{";
PRINT B$(I)
ROWS% = CSRLIN
COLS% = POS(0)
LOCATE (ROWS% - 1), (COLS% + 15)
PRINT "==>", C$(I)
LOCATE (ROWS% - 1), (COLS% + 29)
PRINT "}"
NEXT I
PRINT
250 END