Главная » Delphi, Исходники, Разное » Нахождение наибольшего общего делителя двух целых чисел в Delphi
Окт
12

Нахождение наибольшего общего делителя двух целых чисел в Delphi

Задание: создать программу для нахождения наибольшего общего делителя двух целых чисел.

Пример работы программы:

  


[sourcecode language=»css»] 
unit algoritm;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 var
  p, n1, m1, n, m, R: LongWord;
begin
   n:= StrToInt(edit1.text);
   m:= StrToInt(edit2.Text);
  if (n = 0) or (m = 0) then
    R:= 0
  else
  begin
    if m < n then
    begin
      n1 := m;
      m1 := n;
    end;
    else
    begin
      n1 := n;
      m1 := m;





    end;
    while n1 > 0 do
    begin
      p := m1 mod n1;
      m1 := n1;
      n1 := p;
    end;
    R := m1;
    panel1.Caption:=IntToStr(R);
  end;
end;
end.
[/sourcecode]

Скачать программу для Нахождение наибольшего общего делителя двух целых чисел



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.