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

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;
end.

Izoh: Hosil bo‘lgan dasturning tepa qismiga qiymat kiritib uchta sanoq
sistemasidan birotasiga o‘tkazishingiz mumkin.
13-misol. a^k ning oxirgi raqamini topish.
Dastur kodi va oynaning umumiy ko‘rinishini keltiramiz:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
g,a,b,c,d,e:Real;
begin
a:=strtofloat(Edit1.text);
g:=strtofloat(Edit2.text);
e:=frac(g/10)*10;
if e=2 then begin
b:=a/4;
c:=frac(b)*4;
if c=0 then d:=6 else
if c=1 then d:=2 else
if c=2 then d:=4 else d:=8;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
if e=3 then begin
b:=a/4;
c:=frac(b)*4;
if c=1 then d:=3 else
if c=2 then d:=9 else
if c=3 then d:=7 else d:=1;
Label2.Caption:='oxirgi raqami='+floattostr(d);
End;
if e=4 then begin
b:=a/2;
c:=frac(b)*2;
if c=0 then d:=6 else d:=4;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
If e=5 then begin d:=5;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
If e=6 then begin d:=6;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
if e=7 then begin
b:=a/4;
c:=frac(b)*4;
if c=0 then d:=1 else
if c=1 then d:=7 else
if c=2 then d:=9 else d:=3;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
if e=8 then begin
b:=a/4;
c:=frac(b)*4;
if c=0 then d:=6 else
if c=1 then d:=8 else
if c=2 then d:=4 else d:=2;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
if e=9 then begin
b:=a/2;
c:=frac(b)*2;
if c=0 then d:=1 else d:=9;
Label2.Caption:='oxirgi raqami='+floattostr(d);
End;
If e=1 then begin d:=1;
Label2.Caption:='oxirgi raqami='+floattostr(d);
end;
end;
end.

Izoh: Hosil bo‘lgan dasturdan foydalanib, aytilgan darajali sonni oxirgi raqami necha son bilan tugashini aniqlashingiz mumkin.


FOYDALANILGAN ADABIYOTLAR
1. Sh. A.Nazirov, M.M.Musayev, A.Ne`matov, R.V.Qobulov “Delphi tilida dasturlash asoslari”. Toshkent 2007 yil.
2. Informatika. A. Ahmedov, N. Tayloqov , Toshkent, “O‘zbekiston” 2008 -y.
3. P.Karimov, S.Irisqulov, A. isabayev “Dasturlash” Toshkent, “O‘zbekiston” 2003-y.
4. A.A. Xaldjigitov, Sh.F. Madraximov, A.M. Ikramov, S.I. Rasulov “Paskal tilida dasturlash bo´yicha masalalar t o´plami” 2002-y.
5. www.ref.uz – Referatlar , kurs ishilar va diploma ishilar.
6. Поляков Д.В., Круглов И.Ю.Програмирование в среде TURBO PASCAL . –М.Изд-во МАИ, 1992
7. C.А. Немнюгиню. Turbo Pascal, Москва Харьков-Минск 2000
8. Иллюстрированный самоучитель по Delphi 7 для начинающих. Lib.xost.ru, Kutubxonasi
9.Н.Б.Культин Delphi 6. программирование на object Pascal