Я извиняюсь, но можно еще и вероятности посчитать.
Можно просто добавить в эту строку.
mmoResult.Lines.Add('Кол-во серий цифры '+ IntToStr(i)+' длинной '+IntToStr(j)+' : '+IntToStr(arr[i, j]+'вероятность'+Р));

очень нужно вычислить вероятность . Стоимость вопроса изменю до 45 рублей.
формула для вычисления вер-ти P=(1/10)^L, где L-количество цифр в серии

вам нужно написать программный код ля вычисления вероятности??? или вручную пойдет???
так смотрите для цифр из одной серии вероятность 1/10
из двух цифр 1/100
3х- 1/1000
4х- 1/10000
подставляете вместо L нужное вам значение и получаете вероятность или вопрос я не так понял?

нужно дописать программный код.

var
i:integer;
begin
for i:=1 to 9 do a[i]:=(1/10)**i;
end;

ну вот типа такого получаете вероятности для цепочек от 1 до 9, только возведение в степень может не так в делфи записывается не помню
можно еще

var
i:integer;
begin
a[i]:=1/10;
for i:=2 to 9 do a[i]:=a[i-1]/10;
end;
ну это если степенной записи нет

только там как то не так степень записывается , вроде бы a[i]:=exp(ln(1/10)*i)
сейчас попробую.

[DCC Error] Unit1.pas(185): E2010 Incompatible types: 'Byte' and 'Extended'
в строчке
for i:=1 to 9 do a[i]:=exp(ln(1/10)*i);

второй вариант даже покрасивее чем запись в степень пошустрее работать будет (хотя для данной задачи это и незаметно будет :)).
novij2011 расскажете все ли в норме.
ага надо массив a[i] определить новый и обозвать его не Byte а к примеру Char или Real ну чтобы массив из дробных чисел был, да это не учел :)

ошибки про несоответствие типов выдает.
Может как то можно привязать к основной программе к этой строчке mmoResult.Lines.Add('Кол-во серий цифры '+
IntToStr(i)+' длинной '+IntToStr(j)+
' : '+IntToStr(arr[i, j]));
?

если применить его к программе выше то выдал число 10 = вероятности 0,1 и все

Cradlea
посмотрите пожалуйста на результат
Кол-во серий цифры 1 длинной 1 : 28 вероятность 0,1
Кол-во серий цифры 1 длинной 2 : 2 вероятность 0,1
Кол-во серий цифры 2 длинной 1 : 19 вероятность 0,01
Кол-во серий цифры 3 длинной 1 : 9 вероятность 0,001
Кол-во серий цифры 3 длинной 3 : 1 вероятность 0,001
Кол-во серий цифры 4 длинной 1 : 14 вероятность 0,0001
Кол-во серий цифры 5 длинной 1 : 14 вероятность 1E-5
Кол-во серий цифры 6 длинной 1 : 19 вероятность 1E-6
Кол-во серий цифры 6 длинной 2 : 2 вероятность 1E-6
Кол-во серий цифры 7 длинной 1 : 11 вероятность 1E-7
Кол-во серий цифры 7 длинной 2 : 1 вероятность 1E-7
Кол-во серий цифры 8 длинной 1 : 14 вероятность 1E-8
Кол-во серий цифры 8 длинной 2 : 1 вероятность 1E-8
Кол-во серий цифры 9 длинной 1 : 9 вероятность 1E-9
Кол-во серий цифры 9 длинной 2 : 1 вероятность 1E-9

очень смущает меня буковка E, или так и должно быть?

var arver:array[0..9] of Extended;
i:integer;
begin
arver[i]:=1/10;
for i:=2 to 9 do arver[i]:=arver[i-1]/10;
end;
Вы получили массив вероятностей для чисел от 1 до 9 вернее для последовательностей в 1, 2... 9 цифр
теперь Вам нужно вывести эти вероятности,

mmoResult.Lines.Add('Кол-во серий цифры '+
IntToStr(i)+' длинной '+IntToStr(j)+
' : '+IntToStr(arr[i, j])+'вероятность ' +FloatToStr(arver[i]) );

ну что-то типа того должно быть

так и должно быть
это показатель того что число очень маленькое
1E-9 означает что число равно 0,0000000001 так оно записывается
сумма всех вероятностей равна единице все верно.

спасибо.
Программа работает.

красотень, обращайтесь еще кол-ьчего :)

хорошо

Господа! Слово "длина" пишется с одной буквой "н".

cradlea:
Добрый вечер! Вы пишетеи т.д.
У Вас в ответе arver - одновременно и одномерный и двумерный массив. Мистика какая-то.

тут же главное чтобы код заработал
ctrl+C ctrl+V - злая штука
var arver:array[0..9] of Extended; так должно быть

cradlea:
Проверьте еще раз свой код и попросите модераторов внести исправления в ответ.

не ну и лошара ж я.
МОДЕРАТОРЫ!
замянице калиласка код, в минифоруме пральна, а в ответе размерность массива не совподает, спасибо.

cradlea:
Приводите правильный код полностью. Модераторы заменят приложение к Вашему ответу.

Печально то, что Вы не извлекаете уроков из своих ошибок. По-прежнему спешите.

cradlea:
Приведите ПОЛНОСТЬЮ исправленный текст приложения, который должен заменить ныне имеющийся.

Если Вы хотите обратиться к кому-то лично в какой-либо ветке, пользуйтесь опцией "Выбрать адресата" под кнопочной панелью в этой ветке.

var arver:array[0..9] of Extended;
i:integer;
begin
arver[i]:=1/10;
for i:=2 to 9 do arver[i]:=arver[i-1]/10;
end;
Вы получили массив вероятностей для чисел от 1 до 9 вернее для последовательностей в 1, 2... 9 цифр
теперь Вам нужно вывести эти вероятности,

mmoResult.Lines.Add('Кол-во серий цифры '+
IntToStr(i)+' длиной '+IntToStr(j)+
' : '+IntToStr(arr[i, j])+'вероятность ' +FloatToStr(arver[i]) );


такая тема должна быть! для модераторов.

cradlea:
Вашу просьбу выполнил. Приложение исправил.

о как все получается. Спасибо.

только я не понял зачем было делать новый массив и в нем считать, я добавил
memo1.Lines.Add('Кол-во серий цифры '+IntToStr(i)+' длинной '+IntToStr(j)+' : '+IntToStr(arr[i, j])+' вероятность '+floattostr(exp(ln(1/10)*i)));
и результат получается одинаковый?
Или я в чем то не прав?

да все правильно все работает, но для красоты кода.
один масив за одно отвечает другой за другое, к примеру если нужно что-то хранить и воспользоваться данными.

спасибо