zadach32.BAS

{* Задача32 *}

REM basic

' Решите систему уравнений

'


INPUT “Введите исходные данные для первого ур-ния a1,b1,c1”;a1,b1,c1 
INPUT”Введите исходные данные для второго ур-ния a2,b2,c2”;a2,b2,c2 
D=a1*b2 – a2*b1 
DX= c1*b2 – c2*b1 
DY=a1*c2 – a2*c1 
If D=0 And DX=0 And DY =0 Then 
PRINT”Система имеет бесконечное множество решений” 
Else 
If D=0 Then 
PRINT”Система не имеет решений” 
Else 
X=DX/D: Y=DY/D 
PRINT”Решение системы:”;”x=”;X,”y =”;Y 
End If 
End If 
End