منتدى متعدد المهام
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  التسجيلالتسجيل  دخولدخول  

 

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

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




عدد المساهمات : 98
نقاط : 282
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر Empty
مُساهمةموضوع: مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر   مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر Icon_minitimeالثلاثاء أبريل 28, 2015 7:33 am

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


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


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

ضع على الفورم 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.

الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
 
مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: