Цитата:
Сообщение от Lolbem
Нужно написать программу в pascal для решения неравенства a^x<b(a в степени x<b) помогите пожалуйста
|
Ну что ж, нужно, так нужно, куда ж денешься... В простейшем случае вещественных
a,
b и
x это выглядит так:
Код:
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.
Если же нужно рассмотреть более сложную задачу, например, с целыми
a и
x (тут допустимы отрицательные значения основания), сообщите.