Протестируйте и помогите

[k1r1ch]

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

k1r1ch
Ну что уж Вы, Алгоритм Евклида не знаете В школе это на обычной математике классе в 8ом проходят

Так я и так в 8 классе))) Почитаю, разберусь...

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

Тебе и smallInt подойдёт. Ну можешь integer юзать.

Так охото же сделать поддержку больших чисел!

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

Чё, у AIPM иконку стибрил?

Это временно))

---------------------------------------------------------

procedure TMainForm.Reducing(var N1, N2: Int64);
var MinN: Int64; I: integer;
begin
  InReducing := true;
  MinN := Min(Abs(N1), Abs(N2));
  if MinN > High(Integer) then MinN := High(Integer);
  for I := 2 to MinN do
    begin
      if (N1 mod I = 0) and (N2 mod I = 0) then
        while (N1 mod I = 0) and (N2 mod I = 0) do
          begin
            N1 := N1 div I;
            N2 := N2 div I;
          end;
      if I mod 10000 = 0 then
        begin
        Info.Caption := 'Сокращение (' + IntToStr(I) + ' из ' + IntToStr(MinN) +
        '). Нажмите Esc для остановки';
        Application.ProcessMessages;
        if ((GetAsyncKeyState(VK_ESCAPE) <> 0) and
        (GetAsyncKeyState(VK_ESCAPE) <> 1)) or not InReducing then
          begin
          InReducing := false;
          Exit;
          end;
        end;
    end;
  InReducing := false;
end;

Сделал, как подсказал Alex Cones! Сейчас просто летает (программа приложена). Сейчас попробую с Евклидом, может еще быстрее будет!

[k1r1ch]

Greblin - супер спасибо!!!
Алгоритм Евклида работает идеально. Вот код:

function TMainForm.nod(a, b: Int64): Int64;
begin
  while (a <> 0) and (b <> 0) do
    if a >= b then a := a mod b else b:= b mod a;
  nod := a + b;
end;

procedure TMainForm.Reducing(var N1, N2: Int64);
var MinN: Int64;
begin
  repeat
    MinN := nod(Abs(N1), Abs(N2));
    N1 := N1 div MinN;
    N2 := N2 div MinN;
  until MinN > 1;

Вот прога: