Var a,b,c: Real; D: Real

Begin
E:= strtoint(edit1.text);edit2.text:='';
If E>1 then
Begin I:=0;
Repeat
I:=I+1;m:=E mod 2;b[I]:=m;E:=E div 2;
If E<2 then begin I:=I+1;b[I]:=E;end;
Until E<2;
For j:=i downto 1 do edit2.text:=edit2.text+inttostr(b[j]);
End else edit2.text:=inttostr(E);
end;
4. “Button2” tugmachasining dasturlash maydonchasiga quyidagi dasturni kiritamiz:
begin
E:= strtoint(edit1.text);edit2.text:='';
If E>=8 then
Begin I:=0;
Repeat
I:=I+1;m:=E mod 8;b[I]:=m;E:=E div 8;
If E<8 then begin I:=I+1;b[I]:=E;end;
Until E<8;
For j:=i downto 1 do edit2.text:=edit2.text+inttostr(b[j]);
End else edit2.text:=inttostr(E);
end;
5. “Button3” tugmachasining dasturlash maydonchasiga quyidagi dasturni kiritamiz:
begin
E:= strtoint(edit1.text);edit2.text:='';
If E>=10 then
Begin
k:=E div 10;l:=E-k+10;
If l>=6 then
begin I:=0;
Repeat
I:=I+1;m:=E mod 16;b[I]:=m;E:=E div 16;
If E<16 then begin I:=I+1;b[I]:=E;end;
Until E<16;
For j:=i downto 1 do edit2.text:=edit2.text+inttostr(b[j]);
end;
S:=inttostr(k);edit2.text:=s+a[l];
End else edit2.text:=inttostr(E); end;
6. “Button4” tugmachasining dasturlash maydonchasiga quyidagi dasturni kiritamiz:
begin
Edit1.clear;
Edit2.clear;
end;
7. “F9” tugmasini tanlaymiz.
Dastur kodi va oynaning umumiy ko‘rinishini keltiramiz:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;