İKİ BİLİNMEYENLİ DENKLEM CÖZÜMÜ

CLS
INPUT "P1=", P1
INPUT "P2=", P2
INPUT "D1=", D1
INPUT "D2=", D2
INPUT "S1=", S1
INPUT "S2=", S2
IF P1 * D2 - P2 * D1 = 0 THEN
PRINT "Tek Çözümü Yok"
END
END IF
X = (S1 * D2 - D1 * S2) / (P1 * D2 - P2 * D1)
Y = (P1 * S2 - P2 * S1) / (P1 * D2 - P2 * D1)
PRINT "BULUNAN X DEGERI=", X
PRINT "BULUNAN Y DEGERI=", Y
END

GİRİLEN SAYININ TEK Mİ ÇİFT Mİ OLDUĞUNU BULAN PROGRAM

CLS
PRINT "GIRILEN SAYININ TEK-CIFT OLUP OLMADIGINI BULAN PROGRAM"
INPUT "SAYI = ", N
IF INT(N / 2) * 2 = N THEN
PRINT "SAYI CIFTTIR"
ELSE
PRINT "SAYI TEKTIR"
END IF