İ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