مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر
ضع على الفورم 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.
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
2014-12-22, 12:50
مجموعة قواسم عدد طبيعي والقواسم
العرض العادي
