16.06.2010, 16:50 | #1 (permalink) |
Новичок
Регистрация: 16.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal. Программа решения неравенства ax+b<0 для любых a и b
|
16.06.2010, 16:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите на эти темы, наверняка там уже есть нужные ответы Программа в Pascal abc Программа в Pascal Качественный ремонт ноутбуков и мониторов любых производителей в Москве Нужна программа для преобразования любых видеофайлов в формат DVD-Video(VOB ) Программа на Pascal. Помогите пожалуйста! |
16.06.2010, 16:55 | #2 (permalink) |
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:12 | #5 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
На сколько мне известно, то при а<0 знак неравенства меняется на противоположный
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.06.2010, 17:23 | #8 (permalink) |
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|