Светлана Морозова
Ил
Иллиан
DIM i AS INTEGER, j AS INTEGER, a AS INTEGER
DIM b AS INTEGER, c AS INTEGER, d AS INTEGER
DIM s AS INTEGER, t AS INTEGER, u AS INTEGER
CLS
INPUT "write u ", u
DO
INPUT "write t ", t
INPUT "write s ", s
LOOP UNTIL t <> 0 OR s <> 0
DO
INPUT "write a,b ", a, b
INPUT "write c,d ", c, d
i = s * a + t * b + u
j = s * c + t * d + u
LOOP UNTIL i <> 0 OR j <> 0
IF i > 0 AND j > 0 OR i < 0 AND j < 0 THEN
PRINT "В одной полуплоскости"
ELSE
PRINT "В разных полуплоскостях"
END IF
DO WHILE INKEY$ = ""
LOOP
END
Похожие вопросы