Turbo Pascal

[KoLoB]

Ответ: Turbo Pascal

А библиотеки для мат функций не надо подключать?

 

[Русечкин]

Ответ: Turbo Pascal

А библиотеки для мат функций не надо подключать?

А подробнее

 

[KoLoB]

Ответ: Turbo Pascal

Это я с С++ перепутал.

А разве есть функция log в Паскале?
По-моему только десятичные и натуральные.

Натуральные - ф-ция ln.

Для перехода к обычному:
lg(a)=ln(a)/ln(10)


Хотя я могу ошибатся

 

[Русечкин]

Ответ: Turbo Pascal

Это я с С++ перепутал.

А разве есть функция log в Паскале?
По-моему только десятичные и натуральные.

Натуральные - ф-ция ln.

Для перехода к обычному:
lg(a)=ln(a)/ln(10)


Хотя я могу ошибатся

program func;
uses CRT;
var a,b,x,y:real;
begin
writeln('vvedite a,b,x:');
readln(a,b,x);
writeln('zna4en9 func:');
y:=(exp(arctan(a*b))-ln(8*x-a)/ln(10)))/((sqrt(abs((x-a)/(x-b)))-((x*x-a)exp(1/3)));
writeln ('y=',y:3);
readln;
end.

заменил как ты сказал теперь после этого выражения говорит типа ; не хватает... Бред полный


Вот картинка примера:

 

[KoLoB]

Ответ: Turbo Pascal

program func;
uses CRT;
var a,b,x,y:real;
begin
writeln('vvedite a,b,x:');
readln(a,b,x);
writeln('zna4en9 func:');
y:=(exp(arctan(a*b))-ln(8*x-a)/ln(10)))/((sqrt(abs((x-a)/(x-b)))-((x*x-a)exp(1/3)));
writeln ('y=',y:3);
readln;
end.

заменил как ты сказал теперь после этого выражения говорит типа ; не хватает... Бред полный


Вот картинка примера:

естественно будет ошибка.
В этом куске текста:

b)))-((x*x-a)exp(1/3)));

Я вот не помню как корень кубический делается, но если через экспоненту, то надо * перед экспонентой поставить.
y:=(exp(arctan(a*b)-ln(8*x-a)/ln(10)))/(sqrt(abs((x-a)/(x-b)))-((x*x-a)*exp(1/3)));

В делфи есть функция pow(). Не знаю есть ли в Паскале.

 

[Пух]

Ответ: Turbo Pascal

Во многих математических вычислениях требуется возвести некоторое число в степень. В паскале такой функции нет, приходится придумывать циклы для целочисленных степеней, а от возведения в дробную степень, зачастую, отказываться.
Используя свойства логарифмов, можно избавиться от мучительного программирования.

Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) }
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;

You must be registered for see links

 

[Русечкин]

Ответ: Turbo Pascal

естественно будет ошибка.
В этом куске текста:


Я вот не помню как корень кубический делается, но если через экспоненту, то надо * перед экспонентой поставить.
y:=(exp(arctan(a*b)-ln(8*x-a)/ln(10)))/(sqrt(abs((x-a)/(x-b)))-((x*x-a)*exp(1/3)));

В делфи есть функция pow(). Не знаю есть ли в Паскале.

program func;
uses CRT;
var a,b,x,y:real;
begin
writeln('vvedite a,b,x:');
readln(a,b,x);
y:=(exp(arctan(a*b))-ln(8*x-a)/ln(10)))/((sqrt(abs((x-a)/(x-b)))-((x*x-a)exp(1/3)));
writeln ('y=',y:3);
readln;
end.

на этом месте просит как и просио поставить ж причем она там или ошибка где-то више? Помогите пожалуйста

 

[KoLoB]

Ответ: Turbo Pascal

Сравните ваш код с моим.

Я писал выше.

y:=(exp(arctan(a*b)-ln(8*x-a)/ln(10)))/(sqrt(abs((x-a)/(x-b)))-((x*x-a)*exp(1/3)));

Работают. Правда правильно или нет - хз.

З.Ы. Большие выражение считайте по частям.

 

[Русечкин]

Ответ: Turbo Pascal

Сравните ваш код с моим.

Я писал выше.


Работают. Правда правильно или нет - хз.

З.Ы. Большие выражение считайте по частям.

Спасибо. как ты написал не работает, работает в следующем виде.

program func;
uses CRT;
var a,b,x,y:real;
begin
writeln('vvedite a,b,x:');
readln(a,b,x);
y:=exp(arctan(a*b)-ln(8*x-a)/ln(10))/(sqrt(abs((x-a)/(x-b)))-(x*x-a*exp(1/3)));
writeln ('y=',y:3);
readln;
end.

 

[Пух]

Ответ: Turbo Pascal

и что правильно считает? или только компилится?