Pascal. Программа решения неравенства ax+b<0 для любых a и b

Last Crow · 16.06.2010, 16:50

Написать программу решения неравенства ax+b<0 для любых a и b .

NDV · 16.06.2010, 16:55

Код:

var a, b, x: real;
begin
  Writeln('Введите a:');
  Readln(a);
  if a=0 then writeln('Error: a=0!') else
begin
  Writeln('Введите b:');
  Readln('b');
  x:=-b/a;
  writeln('x<',x);
end;
  readln;
end.

Проверь, должна работать

Last Crow · 16.06.2010, 16:58

Благодарю тебя, о мудрейший...

NDV · 16.06.2010, 17:00

Коэффициент а в любом случае не должен быть равен нулю

shrek=) · 16.06.2010, 17:12

На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

NDV · 16.06.2010, 17:20

Цитата:

Сообщение от shrek=)

На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

Блин, виноват. Сейчас перепишу

Vladimir_S · 16.06.2010, 17:21

Цитата:

Сообщение от shrek=)

На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

Абсолютно верно, нужно обязательно в программу добавить такое ветвление.

NDV · 16.06.2010, 17:23

Код:

var a, b, x: real;
begin
  Writeln('Введите a:');
  Readln(a);
  if a=0 then writeln('Error: a=0!') else
begin
  Writeln('Введите b:');
  Readln('b');
  x:=-b/a 
if a>0 then
  writeln('x<',x)
else
  writeln('x>',x)
end;
  readln;
end.

Поторопился чуть-чуть :-(

16.06.2010, 16:50	#1 (permalink)
Last Crow Новичок Регистрация: 16.06.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal. Программа решения неравенства ax+b<0 для любых a и b Написать программу решения неравенства ax+b<0 для любых a и b .

16.06.2010, 16:55	#2 (permalink)
NDV Member Регистрация: 13.06.2010 Сообщений: 55 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 40	Код: var a, b, x: real; begin Writeln('Введите a:'); Readln(a); if a=0 then writeln('Error: a=0!') else begin Writeln('Введите b:'); Readln('b'); x:=-b/a; writeln('x<',x); end; readln; end. Проверь, должна работать

16.06.2010, 17:23	#8 (permalink)
NDV Member Регистрация: 13.06.2010 Сообщений: 55 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 40	Код: var a, b, x: real; begin Writeln('Введите a:'); Readln(a); if a=0 then writeln('Error: a=0!') else begin Writeln('Введите b:'); Readln('b'); x:=-b/a if a>0 then writeln('x<',x) else writeln('x>',x) end; readln; end. Поторопился чуть-чуть :-(

16.06.2010, 16:58	#3 (permalink)
Last Crow Новичок Регистрация: 16.06.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Благодарю тебя, о мудрейший...

16.06.2010, 17:00	#4 (permalink)
NDV Member Регистрация: 13.06.2010 Сообщений: 55 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 40	Коэффициент а в любом случае не должен быть равен нулю

16.06.2010, 17:12	#5 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	На сколько мне известно, то при а<0 знак неравенства меняется на противоположный

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070