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

[BDA]

Проверил у себя - никакой ошибки не выдало. Может быть, Вы неправильно задали размеры для массивов? Попробуйте включить проверку диапазонов (Project - Options - Compiling - Range checking).
Кстати, я потерял слово do в одном из циклов (думаю, это Вы уже исправили, иначе бы не скомпилировалось).

[Nightway]

она компилируется но когда жмакаю по кнопке выдает ошибку на строчке "ss[i,j] := k[1,j]*kg*p[i];"

[BDA]

Покажите, как объявили ss, p, k (лучше всю процедуру целиком).

[Nightway]

procedure TForm1.btn3Click(Sender: TObject);
var ss:array [0..100,0..4] of Real;
q1,q2,kg:Real; k:array[1..6,0..4] of real; i,j,q:Byte;p:array of real;
begin
begin
for i:=0 to 100 do
for j:=0 to 4 do
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]

Длину массива p кто будет задавать?

[Nightway]

воу...вот я курятина тупая))а как вывод массивов через таблицы сделать?

[Nightway]

теперь такая шляпаss (2014-03-15 at 10.09.49).jpg

[BDA]

1) Не забывайте о кнопочке # Решетка для оформления кода
2) Не забудьте заполнить массив k данными
3) Если массив p всегда будет заполнен таким образом, как на скриншоте в первом сообщении, то:

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

4) Возьмите stringgrid и циклом выведите в него (пример):

with StringGrid do
begin
  rowcount := 6;
  colcount := 5;
  for i := 0 to 5 do
    for j := 0 to 4 do
      cells[j, i] := inttostr(colcount * i + j);
end;

[Nightway]

спасибо большое))

[Nightway]

выдает вот такую ошибку11.png