Как исправить ошибку арифметического переполнения в паскале?

[Poma][a]

На Вашем месте, я бы перечитал пост Виктора..
Удачи

[DarkDen]

Все равно выскакивает та же ошибка... токлько теперь раньше...

[Poma][a]

Взял код от сюда : тыц

Внес некоторые изменения..

const
	n = 52;
	m = 13;
	RedOne = '1';
	WhiteOne = '2';	
	
type str52 = string[52];

var
	OurComb, AllComb : Int64;
	
procedure Permute(const t,s: str52);
var
  lenS, i, j: Byte;
  ch : char;
begin
  lenS := length(s);
  if lenS=0 then begin
    {writeln(t); уберем вывод} 
    Inc (AllComb);
    i := 1;
    while (i <= Length(s)-1) and 
          ((s[i] <> RedOne) or (s[i+1] <> RedOne))  do 
				Inc (i);
				
	if i <> Length(s) then
		Inc (OurComb);
  end    
  else
    for i:=1 to lenS do begin
      ch := s[i];
      j:=1;
      while s[j]<>ch do inc(j);
      if j=i then
        Permute(t+ch, Copy(s,1,i-1)+Copy(s,i+1,Length(s)-i))
    end;
end;


var
  s    : str52;
  i : integer;
 
begin
  {cгенерим S, сначала пойдут красные}
  s := '';
  for i := 1 to m do
	s := s + RedOne;
	
  for i := m+1 to n do
	s := s + WhiteOne;
  {сообственно и сами перестановки}
  OurComb := 0;
  AllComb := 0;
  Permute('',s);
  WriteLn (AllComb, ' ', OurComb)
end.

[BDA]

Poma][a, я не понял, как происходит увеличение OurComb (по какому правилу), поэтому написал свою проверку:

const
  n = 52;
  m = 13;
  k = 4;
  RedOne = '1';
  WhiteOne = '2';

type
  str = string[n];

var
  OurComb, AllComb: Int64;
  s, ms: str;
  i: integer;

procedure Permute(const t, s: str);
var
  lenS, i, j: Byte;
  ch: ansichar;
begin
  lenS := length(s);
  if lenS = 0 then
  begin
    { writeln(t); уберем вывод }
    Inc(AllComb);
    if pos(ms, t + t) > 0 then
      Inc(OurComb);
  end
  else
    for i := 1 to lenS do
    begin
      ch := s[i];
      j := 1;
      while s[j] <> ch do
        Inc(j);
      if j = i then
        Permute(t + ch, Copy(s, 1, i - 1) + Copy(s, i + 1, length(s) - i))
    end;
end;

begin
  { cгенерим S, сначала пойдут красные }
  s := '';
  for i := 1 to k do
    s := s + RedOne;
  ms := s;
  for i := k + 1 to m do
    s := s + RedOne;
  for i := m + 1 to n do
    s := s + WhiteOne;
  { сообственно и сами перестановки }
  OurComb := 0;
  AllComb := 0;
  Permute('', s);
  writeln(AllComb, ' ', OurComb);
  readln;
end.

[Poma][a]

я не понял, как происходит увеличение OurComb (по какому правилу)

Блин.. Я был уверен что надо вычислить вероятность того что 2 (а не 4) красных шара будут стоять вместе.. Каюсь.. Мой косяк

[DarkDen]

Спасибо
Но я понимаю всё меньше и меньше.
Убрали ввод N и M, ясно.
Я заменил код.
Запустил.
Дальше(как я понимаю) идет расчёт комбинаций, но без вывода рсчёта на экран.
Эти визуальные расчёты мне нужны для определения времени расчётов.
Что я понял не так???
Спасибо

[BDA]

Добавил тестовый вывод (не комбинации, а номер рассматриваемой).
На Core i5 M450 займет теоретически 17 часов (1000000 комбинаций в секунду).

[DarkDen]

Ну не програмер я, физик. Извините что не дагоняю.
Завтра запущу, может не выкинет ошибку.
Спасибо

[Poma][a]

Дальше(как я понимаю) идет расчёт комбинаций, но без вывода рсчёта на экран.

Ага. Т.к. вывод на экран - это очень трудоемкое дело.. и может существенно увеличить время работы программы.

Если хотите, то после строки Inc (AllComb) можно написать WriteLn (AllComb), что бы Вы видели что процесс идет..

[DarkDen]

Я понял. Спасибо.