Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2014, 17:42   #1
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию Как перевести?

Был вот такой код в mathcad что было.jpg
А надо чтобы было так как надо.jpg
Кто поможет как всё это дело перевести?или хотя бы сам код перевести в делфи
Nightway вне форума Ответить с цитированием
Старый 13.03.2014, 19:55   #2
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

А сам код хоть есть какой ни будь у тебя, а то, то что ты просиш это готовую программу
bulldog5293 вне форума Ответить с цитированием
Старый 13.03.2014, 20:45   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Многозначно в раздел фриланса
Человек_Борща вне форума Ответить с цитированием
Старый 13.03.2014, 20:45   #4
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

Цитата:
Сообщение от bulldog5293 Посмотреть сообщение
А сам код хоть есть какой ни будь у тебя, а то, то что ты просиш это готовую программу
есть кое какие наработки
For i:=0 to 100 do
s[i]:=0;

for i:=0 to 100 do begin
for j:=0 to 4 begin
ss[i,j]:=0;
for q:=1 to 6 do begin
q1:=1;
q2:=1;
for w:=1 to q do begin
q1:=q1*(1-p[i]);
q2:=q2*(1-kg);
end;
ss[i,j]:=ss[i,j]+k[q,j]*kg*(1-q1)*(1-q2);
end;

end;
end;
Nightway вне форума Ответить с цитированием
Старый 13.03.2014, 20:46   #5
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Многозначно в раздел фриланса
какой фриланс то...хотя бы формулу перевести прошу,там дальше справлюсь
Nightway вне форума Ответить с цитированием
Старый 13.03.2014, 21:14   #6
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

[Помочь]<>[Сделать за Вас]
Тем более, что кроме таких элементарных вещей, как if, for и математические операции здесь вроде ничем и не пахнет. Надеюсь, что Вы правильно поняли мою подсказку по трансляции формулы.
Streletz вне форума Ответить с цитированием
Старый 13.03.2014, 21:42   #7
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

Цитата:
Сообщение от Streletz Посмотреть сообщение
[Помочь]<>[Сделать за Вас]
Тем более, что кроме таких элементарных вещей, как if, for и математические операции здесь вроде ничем и не пахнет. Надеюсь, что Вы правильно поняли мою подсказку по трансляции формулы.
ну раз так легко,почему бы не помочь неучу?
Nightway вне форума Ответить с цитированием
Старый 13.03.2014, 21:58   #8
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
Сообщение от Nightway Посмотреть сообщение
ну раз так легко,почему бы не помочь неучу?
Пожалуйста, внимательно перечитайте первый абзац поста #6.
В прочем, лучше перепишу словами, чтобы точно было понятно.
"Помочь" вовсе не означает "сделать за Вас".
Streletz вне форума Ответить с цитированием
Старый 13.03.2014, 21:59   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
for i := 0 to 100 do
  for j := 0 to 4 begin
    ss[i,j] := k[1,j]*kg*p[i];
    q1 := 1 - p[i];
    q2 := 1 - kg;
    for q := 2 to 6 do begin
      q1 := q1*(1 - p[i]);
      q2 := q2*(1 - kg);
      ss[i,j] := ss[i,j] + k[q,j]*(1 - q1)*(1 - q2);
    end;
  end;
Вроде так. Не забудьте объявить все необходимые массивы.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 15.03.2014, 16:13   #10
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Код:
for i := 0 to 100 do
  for j := 0 to 4 begin
    ss[i,j] := k[1,j]*kg*p[i];
    q1 := 1 - p[i];
    q2 := 1 - kg;
    for q := 2 to 6 do begin
      q1 := q1*(1 - p[i]);
      q2 := q2*(1 - kg);
      ss[i,j] := ss[i,j] + k[q,j]*(1 - q1)*(1 - q2);
    end;
  end;
Вроде так. Не забудьте объявить все необходимые массивы.
вот такая ошибкаss (2014-03-15 at 04.07.41).jpg
Nightway вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как перевести Сергей2000 Помощь студентам 0 02.02.2012 14:00
Как перевести игру? Не придумал имя Помощь студентам 0 08.06.2011 20:32
Как перевести формулу? segion Помощь студентам 6 22.02.2011 19:46
Как перевести... ATOMIC Общие вопросы Delphi 9 20.01.2007 09:14