Помощь в понимании задачи ax+b<=0, Помощь в понимании задачи Опции

[kkk008009kkk]

Здравствуйте.
Есть неравенство ax+b<=0
Чтобы найти х,его нужно перевести в такое неравенство: X<=-b/a

И вот тут испытываю затруднение:

При b=0 and a=0, уравнение имеет решение при всех Х(если подставить Х в первоначальное неравенство) и имеет решение только при отрицательных Х до нуля(если подставить Х во второе неравенство).

Какие Х будут правильными в этом случае?

Сообщение отредактировано: kkk008009kkk - 24.03.2011 21:05

[прогамёр]

uses
  crt;
 procedure line(a,b:real);
var x: real;
begin
  if a <> 0 then
    if a >= 0 then
      writeln('x<=', -b / a: 8: 2)
    else
      writeln('x>=', -b / a: 8: 2);
  if a = 0 then
    if b <= 0 then
      Write('Любое число')
    else
      Write('нет решений');
  end;
var
a, b, x: real;
begin
  writeln(' Введите а:');
  readln(a) ;
  writeln('Введите b:');
  readln(b)  ;
  line(a,b);
readln;
end.

Учимся пользоваться тегами!

Сообщение отредактировано: APAL - 18.11.2013 15:08

[програмёр]

uses
  crt;
 procedure line(a,b:real);
var x: real;
begin
  if a <> 0 then
    if a >= 0 then
      writeln('x<=', -b / a: 8: 2)
    else
      writeln('x>=', -b / a: 8: 2);
  if a = 0 then
    if b <= 0 then
      Write('Любое число')
    else
      Write('нет решений');
  end;
var
a, b, x: real;
begin
  writeln(' Введите а:');
  readln(a) ;
  writeln('Введите b:');
  readln(b)  ;
  line(a,b);
readln;
end.

Учимся пользоваться тегами!

окееееееееееей