Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » как в паскале писать корень квадратный в 3 степени

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

langoler89

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста, как в Паскале вводить корень в третьей степени.
Т.е. нужно решить выражение :
W=√(x^2+a)  - a2sin2(x+b)/2     и  
Y = cos(в кубе)x^3/3  -  x/∛(a^2+b^2 )
При с=1.6, b=14.7, x=1.38
 
Я написал:
 
Var a, b, c, x, w, y:real
begin  
c:=1.6;
b:=14.7;
c:=1.38;
 writeln(‘Введите  значение для «а»’);
 readln (a);
  w:=(sqrt(sqr(x)+a)-(sqr(a)*sqr(sin)*(x+b)/2);
  y:=(sqr(cos)*cos*(sqr(x)*x/3))-(x/{и вот тут у меня уже начинаются проблемы. Как писать корень в 3 степени?}
 P.S.  
и если кто сможет, подскажите, почему паскаль в первом уравнение выдает ошибку предполагается ‘(‘ в значении синуса.  
 
^ - означает степень

Всего записей: 1 | Зарегистр. 02-04-2013 | Отправлено: 14:28 02-04-2013
SevereK20

Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
langoler89
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Turbo Pascal 7.0

Всего записей: 7714 | Зарегистр. 07-05-2010 | Отправлено: 14:44 02-04-2013
sleemp



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
langoler89
Вот формула для любой степени корня
exp(ln(ваше число)*(1/степень корня))
В твоем случае будет  
 
exp(ln(ваше число)*(1/3))

Всего записей: 1 | Зарегистр. 20-02-2013 | Отправлено: 15:10 02-04-2013
dimitriy7



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
langoler89

Цитата:
и если кто сможет, подскажите, почему паскаль в первом уравнение выдает ошибку предполагается ‘(‘ в значении синуса

Скобочку ) забыли поставить, открывающих получилось больше, чем закрывающих.
 
А по поводу корня -- sleemp вам уже подсказал, а еще лучше сделать так:
В раздел описаний (в самое начало программки, перед Var a, b, c, x, w, y:real ) добавьте
Код:
 
function koren3(x: real): real;
    begin
    koren3:=0;
    if x>0 then koren3:=exp(ln((x))/3);
    if x<0 then koren3:=-exp(ln(abs(x))/3);
    end;
 
, и в программе сможете использовать новую ф-цию koren3 наравне со стандартными ф-циями.
 
Добавлено:
PS
Стоп.

Цитата:
корень квадратный в 3 степени  
-- это квадратный корень из (x3) ведь?
Тогда всё еще проще:
x3 это ж просто x*x*x

Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 15:40 02-04-2013
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
langoler89
Я бы без корней пиасл - типа умножить. А экспонента отдельно. Вводить корень этомат часть.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 21:14 03-04-2013
romano501



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
langoler89
 
sqrt(x*x*x)

Всего записей: 137 | Зарегистр. 24-03-2007 | Отправлено: 05:38 05-04-2013
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » как в паскале писать корень квадратный в 3 степени


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

LiteCoin: LgY72v35StJhV2xbt8CpxbQ9gFY6jwZ67r

Рейтинг.ru