Система линейных уравнений

@Rom@ · Регистрация: 29.11.2009

Даны действительные числа x, y, z. Выяснить, верно ли, что (I-модуль)Ia1b2- ф2и2І>=0.001и если правильно, то найти решение системы линейных уравнений
a1x+b1y+c1=0
a2x+b2y+c2=0

Pascal

program lr2_1;
uses crt;
var W,S,x,z,y:real;
a1,a2,b1,b2,c1,c2:real;
begin
writeln('vvedit x,y,z');
readln(x,y,z);
if abs(a1*b2-a2*b1)>=0.001 then begin
W:=a1*x+b1*y+c1;
S:=a2*x+b2*y+c2;
end;
writeln('W=',W:4:5);
writeln('S=',S:4:5);
repeat until keypressed;
end.

проврка
vvedit x,y,z
1
2
3
W=0.0000
S=0.0000

@Puporev · 29.11.2009, 15:54

Rom@,

Сообщение от Rom@

Ia1b2- ф2и2І>=0.001

Это напишите без ошибок и со знаками арифметических действий.

Добавлено через 2 минуты
Rom@, Зачем Вы вводите z, которого нет в программе, но не вводите коэффициенты? Какой Вы хотите получить результат, если программа понятия не имеет, что такое a1,a2,b1,b2,c1,c2

@Rom@ · 29.11.2009, 16:03 **[ТС]**

а какие коефициенти надо вводить и что делать с a1,a2,b1,b2,c1,c2

@Puporev · 29.11.2009, 16:05

Rom@, Ты вообще уникум! Ты в школе вообще не учился?

@Puporev Модератор 62965 / 46969 / 32371 Регистрация: 18.05.2008 Сообщений: 113,838
	29.11.2009, 15:54	2
	Rom@, Сообщение от Rom@ Ia1b2- ф2и2І>=0.001 Это напишите без ошибок и со знаками арифметических действий. Добавлено через 2 минуты Rom@, Зачем Вы вводите z, которого нет в программе, но не вводите коэффициенты? Какой Вы хотите получить результат, если программа понятия не имеет, что такое a1,a2,b1,b2,c1,c2 0

@Rom@ 23 / 23 / 12 Регистрация: 29.11.2009 Сообщений: 210
	29.11.2009, 16:03 [ТС]	3
	а какие коефициенти надо вводить и что делать с a1,a2,b1,b2,c1,c2 0

@Puporev Модератор 62965 / 46969 / 32371 Регистрация: 18.05.2008 Сообщений: 113,838
	29.11.2009, 16:05	4
	Rom@, Ты вообще уникум! Ты в школе вообще не учился? 0

Опции темы