Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.69/32: Рейтинг темы: голосов - 32, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 9

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

26.02.2010, 20:50. Показов 6856. Ответов 33
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Решить уравнение log3(ax-b)=с

Добавлено через 15 секунд
И блок схему )
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.02.2010, 20:50
Ответы с готовыми решениями:

Решить уравнение с разделяющимися переменными или свести к нему
Проверить является ли заданная функция решением указаного уравнения. С - произвольная постоянная. Дифференциальные уравнения....

Дано уравнение ax2+bx+c=0. Решить уравнение, результат вывести на экран.
Здравствуйте. Завтра зачет, нужно сдать две программы на с++, как их писать у меня весьма смутное представление. Собственно задание: ...

Как записать log3?
Ув. программисты! Подскажите пожалуйста как написать функцию Log3?

33
1 / 1 / 0
Регистрация: 27.12.2010
Сообщений: 86
05.01.2011, 13:48
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от SEGA_RUS Посмотреть сообщение
во...эт правильно

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

Мне кажется b не только отрицательным может быть
допустим log3(1*x-0)=3 (x=27) Надо просто сделать проверку на возможность существования этого логарифма
0
1 / 1 / 1
Регистрация: 23.11.2010
Сообщений: 43
05.01.2011, 14:09
Цитата Сообщение от jerrald Посмотреть сообщение
Надо просто сделать проверку на возможность существования этого логарифма
ды-к она тут есть )))
Pascal
1
if a*x-b>0 then writeln(x);
https://www.cyberforum.ru/pasc... post570410
0
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(c*ln(3))+b)/a;
if a*x-b>0 then writeln(x); else writeln('нет решения')
end;
readln;
end.
0
1 / 1 / 1
Регистрация: 23.11.2010
Сообщений: 43
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-ю строчку
0
1 / 1 / 0
Регистрация: 27.12.2010
Сообщений: 86
05.01.2011, 14:19
Цитата Сообщение от SEGA_RUS Посмотреть сообщение
if a=0 then begin x:=0; writeln(x); end else begin
зачем х присваевает 0?
0
1 / 1 / 1
Регистрация: 23.11.2010
Сообщений: 43
05.01.2011, 14:22
Цитата Сообщение от jerrald Посмотреть сообщение
при а=0,х какое бы ни было число,его значении обращается в 0
вот почему
(тока не начинай всю песню заново)
(a,b,c - вводимые данные
х - надо найти)
0
1 / 1 / 0
Регистрация: 27.12.2010
Сообщений: 86
05.01.2011, 14:23
Цитата Сообщение от SEGA_RUS Посмотреть сообщение
вот почему
А ну да
0
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
42 / 42 / 14
Регистрация: 29.12.2010
Сообщений: 159
10.01.2011, 15:37
Цитата Сообщение от mifi Посмотреть сообщение
Тогда надо разбить на 2 условия: если а=0 и с=log3(-b) то х - любой, если а=0 и c<>log3(-b), то уравнение корней не имеет, ну а если а не равно 0, то дальше уже как и решено было...
Вот я и вернулся к своему утверждению!!!

Добавлено через 2 минуты
Цитата Сообщение от jerrald Посмотреть сообщение
скока я ему доказывал что х=0,не принял
И я бы не принял! Потому как х в таком случае - любой!!!
0
1 / 1 / 0
Регистрация: 27.12.2010
Сообщений: 86
10.01.2011, 15:42
Цитата Сообщение от mifi Посмотреть сообщение
Вот я и вернулся к своему утверждению!!!
А как это в программе можно записать?Что-то я не могу это условие записать.
0
42 / 42 / 14
Регистрация: 29.12.2010
Сообщений: 159
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 ...
0
1 / 1 / 0
Регистрация: 27.12.2010
Сообщений: 86
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 ?
0
42 / 42 / 14
Регистрация: 29.12.2010
Сообщений: 159
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;
Тип того...
0
1 / 1 / 0
Регистрация: 27.12.2010
Сообщений: 86
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;
Тип того...
Я понял спасибо,сейчас проверяю
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.01.2011, 16:08

[Error] 'log3' was not declared in this scope
#include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; int main() { double a,x,b,y; cout&lt;&lt;&quot;a=&quot;; cin&gt;&gt;a; cout&lt;&lt;&quot;b=&quot;;...

Решить уравнение
y+1 y-1 2 3 x +e |y-x| |y-x| h=...

Решить уравнение
неравенство: A ≤ B*x + C &lt; D. Дано: A, B, C и D: целые числа; (0 ≤ A, B, C, D ≤ 10000000000000000000, B ≠ 0). Помогите записать в...

Решить уравнение
6 sin^2x+sinxcosx-cos^2x=2

Решить уравнение
Привет всем!Помогите пожалуйста с решением уравнения в Turbo PascalБуду очень благодарен за помощь.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
34
Ответ Создать тему
Новые блоги и статьи
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru