• 0
نادين01

مساعدة في كود PGCD

سؤال

السلام عليكم

 

 

اريد تصحيح هذا الكود لحساب القاسم المشترك الاكبر

procedure TForm1.Button1Click(Sender: TObject);begin val1:=StrToInt(Edit1.Text); val2:=StrToInt(Edit2.Text);   asm            mov eax,val1;            mov ebx,val2;            jmp @clacul;     @clacul:            div ebx;            cmp edx,0 ;            jne @suitch ;            jmp @fini ;      @suitch:  mov eax,ebx;            mov ebx,edx;            jmp @clacul ;      @fini:      end;  edit3.text:=IntToStr(val1);end;end.
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .


  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .