Решить уравнение log3(ax-b)=с

@Kensei6 · Регистрация: 25.02.2010

Студворк — интернет-сервис помощи студентам

Решить уравнение log3(ax-b)=с

Добавлено через 15 секунд
И блок схему )

@jerrald · 05.01.2011, 13:48

Сообщение от SEGA_RUS

во...эт правильно

ну да, только сделать контроль вводимых данных
а - любое
b - всегда отрицательное
с - любое, удовлетворяющее требованию

Мне кажется b не только отрицательным может быть
допустим log3(1*x-0)=3 (x=27) Надо просто сделать проверку на возможность существования этого логарифма

@SEGA_RUS · 05.01.2011, 14:09

Сообщение от jerrald

Надо просто сделать проверку на возможность существования этого логарифма

ды-к она тут есть )))

Pascal
1
if a*x-b>0 then writeln(x);

https://www.cyberforum.ru/pasc... post570410

@jerrald · 05.01.2011, 14:13

программа будет выглядеть вот так?

Uses Crt;
var
a,b,c,x:real;
begin
Clrscr;
readln(a,b,c);
if a=0 then writeln('решение яв множество х') else begin
x:=(exp(c*ln(3))+b)/a;
if a*x-b>0 then writeln(x); else writeln('нет решения')
end;
readln;
end.

@SEGA_RUS · 05.01.2011, 14:18

Сообщение от jerrald

программа будет выглядеть вот так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses Crt;
var
a,b,c,x:real;
begin
Clrscr;
readln(a,b,c);
if a=0 then begin x:=0; writeln(x); end else begin
x:=(exp(c*ln(3))+b)/a;
if a*x-b>0 then writeln(x); else writeln('нет решения') 
end;
readln;
end.

вроде так
тока я изменил 7-ю строчку

@jerrald · 05.01.2011, 14:19

Сообщение от SEGA_RUS

if a=0 then begin x:=0; writeln(x); end else begin

зачем х присваевает 0?

@SEGA_RUS · 05.01.2011, 14:22

Сообщение от jerrald

при а=0,х какое бы ни было число,его значении обращается в 0

вот почему
(тока не начинай всю песню заново)
(a,b,c - вводимые данные
х - надо найти)

@jerrald · 05.01.2011, 14:23

Сообщение от SEGA_RUS

вот почему

А ну да

@jerrald · 10.01.2011, 14:47

Препод не принял.
т.к при a = 0 x будет принимать любое значение из ax-b>=с (скока я ему доказывал что х=0,не принял)
Еще при a = 0 уравнение будет иметь вид log3(-b)=с
надо сделать проверку log3(-b)=с.как это осуществить?

Походу у него крыша едет...

@mifi · 10.01.2011, 15:37

Сообщение от mifi

Тогда надо разбить на 2 условия: если а=0 и с=log3(-b) то х - любой, если а=0 и c<>log3(-b), то уравнение корней не имеет, ну а если а не равно 0, то дальше уже как и решено было...

Вот я и вернулся к своему утверждению!!!

Добавлено через 2 минуты

Сообщение от jerrald

скока я ему доказывал что х=0,не принял

И я бы не принял! Потому как х в таком случае - любой!!!

@jerrald · 10.01.2011, 15:42

Сообщение от mifi

Вот я и вернулся к своему утверждению!!!

А как это в программе можно записать?Что-то я не могу это условие записать.

@mifi · 10.01.2011, 15:42

Pascal
1
2
3
4
...
if (a=o) and (exp(c*ln(3))=-b) then writeln('х - любое!')
else if (a=o) and (exp(c*ln(3))<>-b) then writeln('Уравнение корней не имеет!')
else ...

@jerrald · 10.01.2011, 15:50

Сообщение от mifi

Pascal
1
2
3
4
...
if (a=o) and (exp(c*ln(3))=-b) then writeln('х - любое!')
else if (a=o) and (exp(c*ln(3))<>-b) then writeln('Уравнение корней не имеет!')
else ...

а в четвертой строчке что будет? корень уравнения log3(-b)<c ?

@mifi · 10.01.2011, 16:08

Да нет! Дальше идет тот же расклад вычисления х, который ты сдавал и не сдал... )

Добавлено через 12 минут

Pascal
1
2
3
4
...
if (a=o) and (exp(c*ln(3))=-b) then writeln('х - любое!')
else if (a=o) and (exp(c*ln(3))<>-b) then writeln('Уравнение корней не имеет!')
else x:=(exp(c*ln(3))+b)/a;

Тип того...

@jerrald · 10.01.2011, 16:08

Сообщение от mifi

Да нет! Дальше идет тот же расклад вычисления х, который ты сдавал и не сдал... )

Добавлено через 12 минут

Pascal
1
2
3
4
...
if (a=o) and (exp(c*ln(3))=-b) then writeln('х - любое!')
else if (a=o) and (exp(c*ln(3))<>-b) then writeln('Уравнение корней не имеет!')
else x:=(exp(c*ln(3))+b)/a;

Тип того...

Я понял спасибо,сейчас проверяю

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Kensei6 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 9

	Решить уравнение log3(ax-b)=с 26.02.2010, 20:50. Показов 6924. Ответов 33 Метки нет (Все метки) Решить уравнение log3(ax-b)=с Добавлено через 15 секунд И блок схему ) 0

@jerrald 1 / 1 / 0 Регистрация: 27.12.2010 Сообщений: 86
	05.01.2011, 14:13
	программа будет выглядеть вот так? Uses Crt; var a,b,c,x:real; begin Clrscr; readln(a,b,c); if a=0 then writeln('решение яв множество х') else begin x:=(exp(cln(3))+b)/a; if ax-b>0 then writeln(x); else writeln('нет решения') end; readln; end. 0

@jerrald 1 / 1 / 0 Регистрация: 27.12.2010 Сообщений: 86
	10.01.2011, 14:47
	Препод не принял. т.к при a = 0 x будет принимать любое значение из ax-b>=с (скока я ему доказывал что х=0,не принял) Еще при a = 0 уравнение будет иметь вид log3(-b)=с надо сделать проверку log3(-b)=с.как это осуществить? Походу у него крыша едет... 0