|
Вопрос # 4 919/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Помогите перевести уравнения на язык DELPHI.
Уравнения в файле
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задала: Marime (статус: Посетитель)
Вопрос отправлен: 16 января 2011, 01:35
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 45; последнее сообщение — 20 января 2011, 08:17; участников в обсуждении: 5.
Страницы: [« Предыдущая] [1] [2] [3] [Следующая »]
|
|
Marime (статус: Посетитель), 19 января 2011, 14:51 [#21]:
мне надо через функцию...
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 15:03 [#22]:
Цитата (Marime):
мне надо через функцию
В задании про функцию ни слова:
Цитата (Marime):
Помогите перевести уравнения на язык DELPHI. Уравнения в файле
О какой функции идёт речь? И почему именно через функцию? Почему не через процедуру или несколько функций/процедур?
Задача же решена! Какие нафиг функции? Откуда такие требования? Какие именно функции имеются в виду: стандартные, сторонние, пользовательские?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 15:08 [#23]:
Может так сойдёт?
function F1(const X, Y, Z: Real): Real;
begin
Result:= := Ln(Abs(Sqrt(Exp(X - Y)) + Exp(Ln(X) * Abs(Y)) + Z));
end;
function F2(const X: Real): Real;
begin
Result:= X * (1 - Sqr(X) / 6 + Sqr(Sqr(X)) / 120);
end;
var
A, B: Real;
const
X = 1.542;
Y = -3.26;
Z = 80.05;
begin
// использование функций
A:= F1(X, Y, Z);
B:= F2(X);
WriteLn('A = ', A, ', B = ', B);
ReadLn;
end.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 19 января 2011, 18:31 [#25]:
1) выражение - а что же в нем используется? как раз функция Stepeny
2) а это я смутно представляю, зачем переписывать..
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Marime (статус: Посетитель), 19 января 2011, 18:41 [#26]:
2)ну сначала прописываешь код для расчета такой функции,а в уравнение вместо (а,b) подставляешь свои значения. вот что мне надо сделать
1) Правильно ли записано выражение через функцию эту???
|
|
|
Marime (статус: Посетитель), 19 января 2011, 18:42 [#27]:
2)точнее в выражение вписываешь эту функцию и в выражение вместо (а,b) подставляешь свои значения. вот что мне надо сделать
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 18:51 [#28]:
А чем мой вариант не подходит?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 18:56 [#30]:
Цитата (Marime):
ну блин потому что надо именно через такую
Почему именно так?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 18:57 [#31]:
Срочно читать вот это.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Marime (статус: Посетитель), 19 января 2011, 19:05 [#32]:
потому что препод сказал прописать через такую функцию.
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 19:15 [#33]:
Цитата (Marime):
потому что препод сказал прописать через такую функцию.
Передай преподу, что он осёл.
// Stepeny - идиотское имя функции, я заменил его на Power.
function Power(const X, Y: Double): Double;
begin
Result:= Exp(Ln(X) * Y); // X^Y
end;
function F1(const X, Y, Z: Double): Double;
begin
Result:= Ln(Abs(Power(Exp(X - Y), 0.5) + Exp(Ln(X) * Abs(Y)) + Z));
end;
function F2(const X: Double): Double;
begin
Result:= X * (1 - Power(X, 2.0) / 6 + Power(X, 4.0) / 120);
end;
var
A, B: Double;
const
X = 1.542;
Y = -3.26;
Z = 80.05;
begin
// использование функций
A:= F1(X, Y, Z);
B:= F2(X);
WriteLn('A = ', A, ', B = ', B);
ReadLn;
end.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Marime (статус: Посетитель), 19 января 2011, 19:51 [#34]:
ответ получается не верный,если просто посчитать эти выражения ответ другой получается(((
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 20:04 [#35]:
А ты на калькуляторе проверяешь или в столбик?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 20:11 [#36]:
Сколько получилось-то?
У меня: A ≈ 4.556, B ≈ 1.004.
Проверял в маткаде.
Скриншот, как доказательство:
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 20:18 [#37]:
Прога на delphi выдала вот такой результат:
A = 4.55585084663539E+0000
B = 1.00356548907009E+0000
Так шо извините, всё совпадает!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Marime (статус: Посетитель), 19 января 2011, 20:28 [#38]:
delphi расчитавал сам просто выражения
A:=x-(exp(3)*Ln(x)/(6))+(exp(5)*Ln(x)/(120));
B:=ln(sqrt(exp(x-y))+exp(abs(Ln(x))+z));
и получилось
A=0,627848
B=80,4830
|
|
|
Marime (статус: Посетитель), 19 января 2011, 20:32 [#39]:
Marime (статус: Посетитель), понедельник, 20:03:
1 выражение: Ln(sqrt(exp(x-y))+exp(abs(Ln(x))+z)
2 выражение:x-(exp(3)*Ln(x))/(1*2*3))+(exp(5)*Ln(x)/(1*2*3*4*5))
ТАК???
min@y™ (статус: Кандидат наук), понедельник, 20:09:
Похоже, но проверять не буду.
|
|
|
Marime (статус: Посетитель), 19 января 2011, 20:32 [#40]:
и чё я тама не правильно записала???
|
Страницы: [« Предыдущая] [1] [2] [3] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
ouble)