دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر

مُساهمة  mah11 في 22/12/2014, 2:11 pm


مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر


بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله


مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر

ضع على الفورم 7 من نوع TLabel من Standard
ضع على الفورم 3 من نوع TMemo من Standard
ضع على الفورم 3 من نوع TEdit من Standard
ضع على الفورم 2 من نوع TBitBtn من Supplément


الكود:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes,
  Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  floatA: Integer;
  floatC: Integer;
  i,j: Integer;

begin
 if (Edit1.Text <> '') and (Edit2.Text <> '') then
 begin
  Memo1.Lines.Clear; Memo2.Lines.Clear;
  Memo3.Lines.Clear;
  floatA := StrToInt(Edit1.Text);
  for i := 1 to StrToInt(Edit1.Text) do
  begin
    floatC := floatA div i;
    if floatC * i = floatA then
      Memo1.Lines.Add(IntToStr(floatC));
  end;

  floatA := StrToInt(Edit2.Text);
  for i := 1 to StrToInt(Edit2.Text) do
  begin
    floatC := floatA div i;
    if floatC * i = floatA then
      Memo2.Lines.Add(IntToStr(floatC));
  end;
/////

  for i := 0 to Memo1.Lines.Count - 1 do
    for j := 0 to Memo2.Lines.Count - 1 do
      if Memo1.Lines.Strings[i]=Memo2.Lines.Strings[j] then
        Memo3.Lines.Add(Memo1.Lines.Strings[i]);
  Edit3.Text := Memo3.Lines.Strings[0];
  if(Edit3.Text = '1')and(Edit1.Text <> '1')and(Edit2.Text <> '1')then
  ShowMessage(
  ' العددان أوّليان في ما بينهما');
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  Form1.Top := 107;
  Form1.Left := 192;
  Form1.Width := 600;
  Form1.Height := 375;
  Form1.Position := poScreenCenter;
  Form1.BiDiMode := bdRightToLeft;
  Form1.Font.Charset := ARABIC_CHARSET;
  Form1.Font.Name := 'Arial';
  Form1.Font.Size := 10;
  Form1.Font.Style := [fsBold];
  Form1.Caption := 'مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين';

  Form1.Edit1.Top := 64;
  Form1.Edit1.Left := 8;
  Form1.Edit1.Width := 121;
  Form1.Edit1.Height := 21;
  Form1.Edit1.BiDiMode := bdRightToLeft;
  Form1.Edit1.Font.Charset := ARABIC_CHARSET;
  Form1.Edit1.Font.Name := 'Arial';
  Form1.Edit1.Font.Size := 10;
  Form1.Edit1.Font.Style := [fsBold];
  Form1.Edit1.Text := '24';

  Form1.Edit2.Top := 112;
  Form1.Edit2.Left := 8;
  Form1.Edit2.Width := 121;
  Form1.Edit2.Height := 21;
  Form1.Edit2.BiDiMode := bdRightToLeft;
  Form1.Edit2.Font.Charset := ARABIC_CHARSET;
  Form1.Edit2.Font.Name := 'Arial';
  Form1.Edit2.Font.Size := 10;
  Form1.Edit2.Font.Style := [fsBold];
  Form1.Edit2.Text := '18';

  Form1.Edit3.Top := 240;
  Form1.Edit3.Left := 16;
  Form1.Edit3.Width := 121;
  Form1.Edit3.Height := 21;
  Form1.Edit3.BiDiMode := bdRightToLeft;
  Form1.Edit3.Font.Charset := ARABIC_CHARSET;
  Form1.Edit3.Font.Name := 'Arial';
  Form1.Edit3.Font.Size := 10;
  Form1.Edit3.Font.Style := [fsBold];
  Form1.Edit3.Text := '';

  Form1.BitBtn1.Top := 152;
  Form1.BitBtn1.Left := 24;
  Form1.BitBtn1.Width := 99;
  Form1.BitBtn1.Height := 25;
  Form1.BitBtn1.BiDiMode := bdRightToLeft;
  Form1.BitBtn1.Font.Charset := ARABIC_CHARSET;
  Form1.BitBtn1.Font.Name := 'Arial';
  Form1.BitBtn1.Font.Size := 10;
  Form1.BitBtn1.Font.Style := [fsBold];
  Form1.BitBtn1.Caption := 'حساب';
  Form1.BitBtn1.Kind := bkOK;
  Form1.BitBtn1.Layout := blGlyphRight;

  Form1.BitBtn2.Top := 288;
  Form1.BitBtn2.Left := 16;
  Form1.BitBtn2.Width := 97;
  Form1.BitBtn2.Height := 33;
  Form1.BitBtn2.BiDiMode := bdRightToLeft;
  Form1.BitBtn2.Font.Charset := ARABIC_CHARSET;
  Form1.BitBtn2.Font.Name := 'Arial';
  Form1.BitBtn2.Font.Size := 10;
  Form1.BitBtn2.Font.Style := [fsBold];
  Form1.BitBtn2.Caption := 'إغلاق';
  Form1.BitBtn2.Kind := bkClose;

  Form1.Memo1.Top := 24;
  Form1.Memo1.Left := 144;
  Form1.Memo1.Width := 137;
  Form1.Memo1.Height := 305;
  Form1.Memo1.BiDiMode := bdRightToLeft;
  Form1.Memo1.Font.Charset := ARABIC_CHARSET;
  Form1.Memo1.Font.Name := 'Arial';
  Form1.Memo1.Font.Size := 10;
  Form1.Memo1.Font.Style := [fsBold];
  Form1.Memo1.Text := '';

  Form1.Memo2.Top := 24;
  Form1.Memo2.Left := 296;
  Form1.Memo2.Width := 145;
  Form1.Memo2.Height := 305;
  Form1.Memo2.BiDiMode := bdRightToLeft;
  Form1.Memo2.Font.Charset := ARABIC_CHARSET;
  Form1.Memo2.Font.Name := 'Arial';
  Form1.Memo2.Font.Size := 10;
  Form1.Memo2.Font.Style := [fsBold];
  Form1.Memo2.Text := '';

  Form1.Memo3.Top := 24;
  Form1.Memo3.Left := 456;
  Form1.Memo3.Width := 113;
  Form1.Memo3.Height := 305;
  Form1.Memo3.BiDiMode := bdRightToLeft;
  Form1.Memo3.Font.Charset := ARABIC_CHARSET;
  Form1.Memo3.Font.Name := 'Arial';
  Form1.Memo3.Font.Size := 10;
  Form1.Memo3.Font.Style := [fsBold];
  Form1.Memo3.Text := '';

  Form1.Label1.Top := 48;
  Form1.Label1.Left := 62;
  Form1.Label1.Width := 58;
  Form1.Label1.Height := 13;
  Form1.Label1.BiDiMode := bdRightToLeft;
  Form1.Label1.Font.Charset := ARABIC_CHARSET;
  Form1.Label1.Font.Name := 'Arial';
  Form1.Label1.Font.Size := 10;
  Form1.Label1.Font.Style := [fsBold];
  Form1.Label1.Caption := 'العدد الاول';


  Form1.Label2.Top := 96;
  Form1.Label2.Left := 53;
  Form1.Label2.Width := 66;
  Form1.Label2.Height := 13;
  Form1.Label2.BiDiMode := bdRightToLeft;
  Form1.Label2.Font.Charset := ARABIC_CHARSET;
  Form1.Label2.Font.Name := 'Arial';
  Form1.Label2.Font.Size := 10;
  Form1.Label2.Font.Style := [fsBold];
  Form1.Label2.Caption := 'العدد الثاني';

  Form1.Label3.Top := 224;
  Form1.Label3.Left := 11;
  Form1.Label3.Width := 118;
  Form1.Label3.Height := 13;
  Form1.Label3.BiDiMode := bdRightToLeft;
  Form1.Label3.Font.Charset := ARABIC_CHARSET;
  Form1.Label3.Font.Name := 'Arial';
  Form1.Label3.Font.Size := 10;
  Form1.Label3.Font.Style := [fsBold];
  Form1.Label3.Caption := 'القاسم المشترك الاكبر';

  Form1.Label4.Top := 8;
  Form1.Label4.Left := 128;
  Form1.Label4.Width := 141;
  Form1.Label4.Height := 13;
  Form1.Label4.BiDiMode := bdRightToLeft;
  Form1.Label4.Font.Charset := ARABIC_CHARSET;
  Form1.Label4.Font.Name := 'Arial';
  Form1.Label4.Font.Size := 10;
  Form1.Label4.Font.Style := [fsBold];
  Form1.Label4.Caption := 'محموعة قواسم العدد الاول';

  Form1.Label5.Top := 8;
  Form1.Label5.Left := 283;
  Form1.Label5.Width := 149;
  Form1.Label5.Height := 13;
  Form1.Label5.BiDiMode := bdRightToLeft;
  Form1.Label5.Font.Charset := ARABIC_CHARSET;
  Form1.Label5.Font.Name := 'Arial';
  Form1.Label5.Font.Size := 10;
  Form1.Label5.Font.Style := [fsBold];
  Form1.Label5.Caption := 'محموعة قواسم العدد الثاني';

  Form1.Label6.Top := 8;
  Form1.Label6.Left := 442;
  Form1.Label6.Width := 139;
  Form1.Label6.Height := 13;
  Form1.Label6.BiDiMode := bdRightToLeft;
  Form1.Label6.Font.Charset := ARABIC_CHARSET;
  Form1.Label6.Font.Name := 'Arial';
  Form1.Label6.Font.Size := 10;
  Form1.Label6.Font.Style := [fsBold];
  Form1.Label6.Caption := 'القواسم المشتركة للعددين';

  Form1.Label7.Top := 264;
  Form1.Label7.Left := 48;
  Form1.Label7.Width := 35;
  Form1.Label7.Height := 13;
  Form1.Label7.BiDiMode := bdRightToLeft;
  Form1.Label7.Font.Charset := ARABIC_CHARSET;
  Form1.Label7.Font.Name := 'Arial';
  Form1.Label7.Font.Size := 10;
  Form1.Label7.Font.Style := [fsBold];
  Form1.Label7.Caption := 'PGCD';

end;

end.


mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر

مُساهمة  sdk11 في 12/6/2015, 11:33 pm

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى