uses
crt;
var
a1, a2, b1, b2, c1, c2, x, y, det: double; // можно real
begin
readln(a1,a2,b1,b2,c1,c2);
det:=a1*b2-a2*b1;
if det<>0 then
begin
x:=(-c1*b2+c2*b1)/det;
y:=(-a1*c2+a2*c1)/det;
writeln(x:2:2);
writeln(y:2:2);
end
else
writeln('det=0');
readln;
end.
Разветвляющийся вычислительный процесс(Pascal)
Помогите выполнить задачу.
Даны действительные числа A1,B1,C1,A2,B2,C2. Выяснить, верно ли, что
И если верно, то найти решение системы линейных уравнений
A1*X + B1*Y + C1 = 0
A2*X + B2*Y + C2 = 0
(при выполнении написанного неравенства система заведомо совместна и имеет единственное решение).
ПОдробние-
Даны действительные числа A1,B1,C1,A2,B2,C2. Выяснить, верно ли, что
И если верно, то найти решение системы линейных уравнений
A1*X + B1*Y + C1 = 0
A2*X + B2*Y + C2 = 0
(при выполнении написанного неравенства система заведомо совместна и имеет единственное решение).
ПОдробние-
Подробние...
Цитата: Asu2007
Выяснить, верно ли, что
:rolleyes: что верно то
система линейных уравнений имеет единственное решение, когда
определитель = A1*B2-A2*B1 <> 0 . стало быть это условие он и пропустил, вроде как.
определитель = A1*B2-A2*B1 <> 0 . стало быть это условие он и пропустил, вроде как.
спасибо
[COLOR="Red"]Читать Правила раздела Студентам пункт 8 и не постить такие вопросы.Нарушение - 5 баллов за некорректное поведение[/COLOR].модератор.
Заданы действительные числа X и Y. Определить, принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости
[COLOR="Red"]Я ж сказал читать Правила раздела Студентам.Теперь нарушение пункта 10.Один вопрос - одна тема,для нового вопроса создавай новую тему.
Нарушение - 10 баллов.Не удаляю только потому что тебе ответили,в следующий раз удалю[/COLOR].модератор.
[COLOR="Red"]Я ж сказал читать Правила раздела Студентам.Теперь нарушение пункта 10.Один вопрос - одна тема,для нового вопроса создавай новую тему.
Нарушение - 10 баллов.Не удаляю только потому что тебе ответили,в следующий раз удалю[/COLOR].модератор.
так вроде
Код:
if (y<-x+1) and
(y<x+1) and
(y>-x-1) and
(y>x-1) then .......
(y<x+1) and
(y>-x-1) and
(y>x-1) then .......
так проще же можно
то же самое но не развернуто )
Код:
if ((abs(x)+abs(y))<=1) then
то же самое но не развернуто )