Светлана Морозова
Светлана Морозова

помогите пожалуйста решение задачи перевести с ПАСКАЛЯ на Basic. картинка решения внутри.

Ил
Иллиан

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

Похожие вопросы
Решение задачи в "Паскале"
помогите с решенями задач на паскале
помогите с решением задачи в паскале
Решение задачи в паскале
Помогите в решении задач простых на паскале
Подскажите пожалуйста по решению задачи в паскале
Подскажите пожалуйста по решению задачи в паскале.
Паскаль. Матрицы. Помогите с решением задачи!
Ребята, помогите пожалуйста перевести задачу из Basic в Pascal
Решение задачи (Паскаль)