Показать сообщение отдельно
  #2  
Старый 04.10.2011, 15:30
chainik chainik вне форума
Начинающий
 
Регистрация: 30.06.2008
Сообщения: 140
Репутация: 8882
По умолчанию

Edit1,Edit2- исходные числа
Edit3- максим общий делитель

Код:
uses Math;

{---------------------------------------------------------
функция возвращает макс общий делитель
----------------------------------------------------------}
function GetMaxDiv(x1,x2:integer):integer;
begin
if (x1=0) or (x2=0) then Result:=-1
else
    begin
    Result:=min(x1,x2);
    while (x1 mod Result <> 0) or (x2 mod Result <> 0) do
                dec(Result)
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(GetMaxDiv(StrToInt(Edit1.Text),StrToInt(Edit2.Text)));
end;
Ответить с цитированием