Добрый вечер!
Заинтересовался изучением паскаля, но не получается совместить две вещи.
Первым действием я число Х возвожу в степень У.
var
x,n:real;
begin
readln(x,n);
writeln(exp(ln(x)*n));
readln;
end.
Далее я хочу сравнить полученный результат с другим числом и вывести текст на экран о том, больше, меньше или равно указанного числа.
Уже часа два терзаюсь!!
Помогите, люди добрые)
Буду благодарен!
Могу помочь с объяснением финансовых тем
Ну для начала было бы что сравнивать. Допустим, X присвоим выражению X в степени N. Далее считаем второе число в свободную переменную N. Сравниваем и в зависимости от результата выводим сообщения на экран.
var
x, n :real;
begin
readln(x, n);
x := exp(ln(x) * n);
readln(n);
if x > n
then
{X > N}
else
if x < n
then
{X < N}
else
{X = N}
end.
В общем, сделал вот так:
Var
x,n,k,p:real;
begin
p:=10000;
Writeln ('Введите условие');
readln(x);
Writeln ('Введите степень');
readln(n);
k:=exp(ln(x)*n);
Writeln (k);
if (k>=p) then begin
writeln('Результат больше либо равен 10 000'); end
else
writeln('Результат меньше 10 000');
end.
Можно сделать покомпактнее. После подсчета K у тебя ни X, ни N не используются, т.е. вместо K можно использовать X, т.е. x:=exp(ln(x)*n); writeln(x); if (x >= p)...
И соответственно вместо P использовать N, т.е. не задавать значение 10000 сразу, а после подсчета K, суть от перестановки не поменяется. Ну и n := 10000; if (x >= n)...
Так будет в 2 раза меньше переменных. Ну на вкус и цвет, конечно.
В общем, сделал вот так:
Var
x,n,k,p:real;
begin
p:=10000;
Writeln ('Введите условие');
readln(x);
Writeln ('Введите степень');
readln(n);
k:=exp(ln(x)*n);
Writeln (k);
if (k>=p) then begin
writeln('Результат больше либо равен 10 000'); end
else
writeln('Результат меньше 10 000');
end.
