Как перевести?

[Nightway]

Был вот такой код в mathcad что было.jpg
А надо чтобы было так как надо.jpg
Кто поможет как всё это дело перевести?или хотя бы сам код перевести в делфи

[bulldog5293]

А сам код хоть есть какой ни будь у тебя, а то, то что ты просиш это готовую программу

[Человек_Борща]

Многозначно в раздел фриланса

[Nightway]

Сообщение от 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]

Сообщение от Человек_Борща

Многозначно в раздел фриланса

какой фриланс то...хотя бы формулу перевести прошу,там дальше справлюсь

[Streletz]

[Помочь]<>[Сделать за Вас]
Тем более, что кроме таких элементарных вещей, как if, for и математические операции здесь вроде ничем и не пахнет. Надеюсь, что Вы правильно поняли мою подсказку по трансляции формулы.

[Nightway]

Сообщение от Streletz

[Помочь]<>[Сделать за Вас]
Тем более, что кроме таких элементарных вещей, как if, for и математические операции здесь вроде ничем и не пахнет. Надеюсь, что Вы правильно поняли мою подсказку по трансляции формулы.

ну раз так легко,почему бы не помочь неучу?

[Streletz]

Сообщение от Nightway

ну раз так легко,почему бы не помочь неучу?

Пожалуйста, внимательно перечитайте первый абзац поста #6.
В прочем, лучше перепишу словами, чтобы точно было понятно.
"Помочь" вовсе не означает "сделать за Вас".

[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;

Вроде так. Не забудьте объявить все необходимые массивы.

[Nightway]

Сообщение от 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