طيباوي
عدد المساهمات : 98 نقاط : 282 تاريخ التسجيل : 28/04/2015 الموقع : http://delph.forumalgerie.net
| موضوع: مجموعة قواسم عدد طبيعي والقواسم المشتركة لعددين طبيعيين و القاسم المشترك الأكبر الثلاثاء أبريل 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.
| |
|