21.05.2020, 11:29 | #1 (permalink) |
Новичок
Регистрация: 21.05.2020
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Срочно нужно написать программу в pascal для решения неравенства a^x<b
|
21.05.2020, 11:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Иногда для успешного решения проблемы стоит лишь обратить внимание на схожие топики Помогите срочно написать программу,плиз. Pascal Помогите написать программу на Object Pascal. Очень срочно нужно. |
21.05.2020, 12:12 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var a,b:real; Begin Write(' a = '); Readln(a); Write(' b = '); Readln(b); if (a<=0) or (b<=0) then Writeln(' No solution') else Writeln(' x < ',Ln(b)/Ln(a):0:8); Readln End. |
|
03.06.2020, 10:29 | #5 (permalink) |
Новичок
Регистрация: 21.05.2020
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте,помогите опять пожалуйста,я сейчас скину пример и нужно на подобие его сделать мой(a^x<b).
var a,b,c:real; begin writeln('Введите a и b'); readln (a,b); if (a<0) or (b<0)or (a<>1) then writeln('Решения нет') else begin c:=ln(b)/ln(a); if a=1 then writeln('Решения нет'); if a>1 then writeln('x>',c) else writeln('x<',c); end; end. Вот математическая модель (это для a^x>b,а мне нужно a^x<b): Для решения показательного неравенства a^x>b приведем его к виду a^x>a^c. Тогда: если a>1, то x>c, если 0<a<1, то x<c. ОДЗ: a>0,b>0,a≠1 Выразим b как степень числа a: b=a^log_ab Обозначим: 〖с=log〗_ab Получим: a^x>a^с Если a>1, то x>c, если 0<a<1, то x<c. Итак, для решения задачи нам нужно: Знать значения a и b, то есть ввести их с клавиатуры; Проверить ОДЗ Найти с, то есть вычислить 〖с=log〗_ab Решить неравенство. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
03.06.2020, 11:41 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да, признаю — поторопился. Не учел ситуации с a<=1. По-моему, правильно так:
Код:
Var a,b:real; Begin Write(' a = '); Readln(a); Write(' b = '); Readln(b); if (a<=0) or (b<=0) or ((a=1) and (b<=1)) then Writeln(' No solution') else if (a=1) and (b>1) then Writeln(' x - random') else if (a<1) then Writeln(' x > ',Ln(b)/Ln(a):0:8) else Writeln(' x < ',Ln(b)/Ln(a):0:8); Readln End. Т.е. решения нет, если a<0 или b<0 (это правильно), но также если... a отлично от единицы! (?). Ну что за ерунда, ей-Богу! Когда ж, в таком случае, решение есть? Когда a=1? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|