ANA SAYFA
İÇİNDEKİLER
PROSEDÜR
FONKSİYON
=> Örnek 1
=> Örnek 2
=> Örnek 3
=> Örnek 4
=> Örnek 5
=> Örnek 6
=> Örnek 7
=> Örnek 8
=> Örnek 9
=> Örnek 10
=> Örnek 11
=> Örnek 12
=> Örnek 13
=> Örnek 14
=> Örnek 15
=> Örnek 16
=> Örnek 17
=> Örnek 18
=> Örnek 19
=> Örnek 20
=> Örnek 21
=> Örnek 22
=> Örnek 23
=> Örnek 24
=> Örnek 25
İSTATİSTİK
Z. DEFTERİ
İLETİŞİM
Örnek 1

 Soru= Girilen sayıyı string'e çevirmeyi yapan programı fonksiyonda yapınız.

Şekli :

Image Hosted by ImageShack.us 

Kodlar :
 
Procedure TForm1.Button1Click(Sender: TObject);

begin
Label1.Caption:=SayiYazi(StrToFloat(Edit1.Text));
end;
 
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
label1.Caption:='';
end;

Procedure TForm1.Button3Click(Sender: TObject);
begin
 halt;
end;
 
Function SayiYazi(Sayi: Extended): String;
Const
Yuzler: Array[1..3,0..9] of String=(('','YÜZ','İKİYÜZ','ÜÇYÜZ',
    'DÖRTYÜZ','BEŞYÜZ','ALTIYÜZ','YEDİYÜZ','SEKİZYÜZ', 
DOKUZYÜZ'),(
'','ON','YİRMİ','OTUZ','KIRK','ELLİ', 'ALTMIŞ',  
    'YETMİŞ','SEKSEN','DOKSAN')
('','BİR','İKİ','ÜÇ','DÖRT',
                                        'BEŞ','ALTI','YEDİ','SEKİZ','DOKUZ'));

Binler: Array[1..8] of String=
('KATTRİLYAR','TRİLYAR',
         'KATTRİLYON','TRİLYON','MİLYAR','MİLYON','BİN','');
 
Var
FloR: TFloatRec;
FloV: TFloatValue;
i, y, z: Integer;
Parca : String;
ASt: String[24];
EkSt: String[26];
AraSonuc, Sonuc: String;
n, hane: Integer;

Begin
Sonuc:='';
FloV:= fvExtended;
FloatToDecimal(FloR,Sayi,FloV,18,0);
ASt:=FloR.Digits;
n:=length(ASt);
if FloR.Exponent<>Length(ASt) then
begin
EkSt:='';
FillChar(EkSt,FloR.Exponent-n+1,'0');
EkSt[0]:=Chr(FloR.Exponent-n);
ASt:=ASt+EkSt;
end;
n:=Length(ASt);
if n<24 then
begin
EkSt:='';
FillChar(EkSt,24-n+1,'0');
EkSt[0]:=Chr(24-n);
ASt:=EkSt+ASt;
end;
n:=Length(ASt);
i:=1;
hane:=1;
while i<n do
begin
Parca:=Copy(ASt,i,3);
AraSonuc:='';
for y:=1 to 3 do
begin
z:=StrToInt(Copy(Parca,y,1));
AraSonuc:=AraSonuc+Yuzler[y,z];
end;
if AraSonuc<>'' then AraSonuc:=AraSonuc+Binler[hane];
if AraSonuc='BİRBİN' then AraSonuc:='BİN';
i:=i+3;
Inc(hane);
Sonuc:=Sonuc + ' ' + AraSonuc;
end;
SayiYazi:=Sonuc;
end; 
 
 
Çalışma Şekli :

Image Hosted by ImageShack.usImage Hosted by ImageShack.us 

                Burada ise klavyeden bir sayı giririz.ve stringe çevir butonuna bastığımızda girdiğimiz sayının stringleşmiş halini görürüz.Temizle butonu ise edit ve label ‘i sıfırlar. Çıkış ise programdan çıkmak için kullanılır.
 

Hakkında
Bu tasarım PINAR ÖZER tarafından sistem analizi dersi için verilen proje kapsamında yapılmıştır.
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol