|
Вопрос # 5 067/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Помогите составить на алгоритмическом языке выражение (см. прикрепленный файл)
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задала: Shiza (статус: Посетитель)
Вопрос отправлен: 4 марта 2011, 20:04
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 9; последнее сообщение — 6 марта 2011, 16:13; участников в обсуждении: 5.
4 марта 2011, 20:07: Вопрос перемещён из тематического раздела Delphi » Алгоритмы, преобразования в раздел Лабораторный практикум » Delphi модератором min@y™ Причина: 1600 кг - лаба!
|
min@y™ (статус: Доктор наук), 4 марта 2011, 20:09 [#1]:
Нам всем срочно поставить delphi, написать программу и проверить?
Не хватает условий, а именно, область и шаг переменой под магическим именем "i"! 
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Shiza (статус: Посетитель), 4 марта 2011, 20:26 [#2]:
непосредственно вся программа:
procedure TForm1.Button1Click(Sender: TObject);
var
i, n, x: integer;
z: extended;
begin
if (edit1.text='') or (edit2.text='')
then ShowMessage ('Введите данные')
else
begin
i:=1;
z:=0;
n:=StrToInt(Edit1.text);
x:=StrToInt(Edit2.text);
repeat
z := z + ((-1) * ln(i)) * (((x * i) * ln(i)) / i);
inc(i);
until i > n;
Edit3.text:=FloatToStr(z);
end;
end;
просьба проверить правильность написания именно уравнения.
Успешность метода научного тыка обратно пропорциональна извилистости головного мозга на кривизну рук.
|
|
|
min@y™ (статус: Доктор наук), 4 марта 2011, 20:31 [#3]:
Цитата (Shiza):
просьба проверить правильность написания именно уравнения.
Для этого есть Mathcad. Мудрецы заниматься этим не будут, сорри.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Мережников Андрей (статус: Абитуриент), 5 марта 2011, 04:52 [#4]:
Цитата (Shiza):
у меня получилось вот так(но думаю не правильно):
Правильно думаете. Из Вашей формулы следует, что операция по возведению в степень тождественна взятию логарифма.
Если сможете это доказать, то подавайте заявку на Филдсовскую премию.
Поищите правильную формулу либо в учебнике по математике, либо в Google.
|
|
bugmenot (статус: 3-ий класс), 5 марта 2011, 05:08 [#5]:
Не надо формулу, надо использовать функцию Math.Power или сделать свою
и использовать for от цифирьки снизу до цифирьки сверху сигмы
PS: ЕМНИП я гдето здесь выводил
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
Толяныч (статус: 4-ый класс), 5 марта 2011, 13:30 [#6]:
Надо произвести преобразования - вынести х за знак суммы, а
i в степени i / i <заменить на> i в степени (i-1), и тогда будет просто :
z := 0 ; a := -1.0 ;
for i := 1 to n do
begin
z := z - ( IntPower (a,(i-1)) ) ;
a := (a - 1.0) ;
end
z := z * x ;
Как-то неэлегантно. Вот попытавшись дать ответ, обнаружил у себя пробел в казалось бы простейшем вопросе : возвести целое в целую степень ( как на Фортране i ** j ).
|
|
|
Shiza (статус: Посетитель), 5 марта 2011, 17:49 [#7]:
всем большое спасибо за помощь
Успешность метода научного тыка обратно пропорциональна извилистости головного мозга на кривизну рук.
|
|
|
Толяныч (статус: 4-ый класс), 6 марта 2011, 12:31 [#8]:
Дык чтоб закончить тему, ответьте мне, как эксперты-эксперту ) : функции ЦЕЛОЕ_В_ЦЕЛУЮ_СТЕПЕНЬ нет в Дельфи ? Только циклом ?
|
|
|
min@y™ (статус: Доктор наук), 6 марта 2011, 16:13 [#9]:
Цитата (Толяныч):
функции ЦЕЛОЕ_В_ЦЕЛУЮ_СТЕПЕНЬ нет в Дельфи ? Только циклом ?
Ога. В math.pas есть только Power() и IntPower(). Они возвращают Extended.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
