Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Dreamkiller
1 / 1 / 1
Регистрация: 01.03.2013
Сообщений: 68
#1

Как прописать степень корня? - Turbo Pascal

04.01.2015, 12:49. Просмотров 640. Ответов 2
Метки нет (Все метки)

Как прописать степень корня? Вот эта тройка перед корнем.

http://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{2x-3y}{\sqrt[3]{\ln x-\ln y}}
http://www.cyberforum.ru/pascal/thread1308797.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2015, 12:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как прописать степень корня? (Turbo Pascal):

Дано число степень n . Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают степень n.
Дано число n . Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не...

Не пользуясь операцией возведение в степень возвести число а в степень n
Помогите написать программу , очень надо

Как в паскале прописать дату?
Необходимо написать программу, которая будет считать когда вам исполниться...

Как записать 3 корня в степени?
Как записать это выражение на Паскале? y=3√x4

Как прописать количество шагов в Turbo Pascal
Решаю задачу с циклами и нужно прописать количество шагов.... не знаю как......

2
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
04.01.2015, 13:15 #2
Pascal
1
2
3
4
5
if ln(x)-ln(y)=0 then z:=0
else if ln(x)-ln(y)>0 then z:=exp(ln( ln(x)-ln(y))/3)
else z:=-exp(ln( abs(ln(x)-ln(y)))/3);
if z=0 then writeln('Значение не определено, деление на 0')
else r:=(2*x-3*y)/z;
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,070
04.01.2015, 23:49 #3
Лучший ответ Сообщение было отмечено Dreamkiller как решение

Решение

Puporev, не учтена ситуация, когда x ≤ 0 или y ≤ 0. Также, используя свойства логарифма, вычисления можно несколько сократить:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var x, y, r: real;
begin
  write('x = '); readln(x);
  write('y = '); readln(y);
  if (x <= 0) or (y <= 0) or (x = y)
    then writeln('Функция не определена.')
    else begin
      if x > y
        then r :=  exp(ln(ln(x / y)) / 3)
        else r := -exp(ln(ln(y / x)) / 3);
      r := (2 * x - 3 * y) / r;
      writeln('r = ', r)
    end;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2015, 23:49
Привет! Вот еще темы с решениями:

Как организовать проход по дереву начиная от корня
как организовать проход по дереву начиная от корня? если левый корень левый то...

Как возвести в степень
Уважаемые форумчане! Извините за беспокойство, но возник вопрос... Мне...

Как возвести в целую степень?
Вот: y=k1x4+k2x3+k3x2+k4x+k5 Для возведения числа k в целую степень n...

как возвести в степень в Паскале
P:=(1-rho)/(1-rho в степени (N+1));


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru