Delphi 4 Haneli Sayıyı İkiye Ayırıp , Karelerini Al Ve Topla

Delphi programı gelişim aşamasında  zaman zaman karşımıza delphi 4 Haneli Sayıyı İkiye Ayır, Karelerini Al Ve Topla işlemi  nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte delphi programında 4 Haneli Sayıyı İkiye Ayır, Karelerini Al Ve Topla  işlemini kolayca yapabileceksiniz.

Delphi 4 Haneli Sayıyı İkiye Ayır, Karelerini Alma Ve Toplama

 

procedure TForm1.Button1Click(Sender: TObject);
var
sayi :Integer;
islem,a,b:Real;
begin
sayi := StrToInt( Edit1.Text);
a:=sayi/100;
a:=Floor(a);
b:=sayi mod 100;
islem :=( a*a)+( b*b);
Label1.Caption := FloatToStr( islem);
end;
end.

 

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Delphi ile ilgili kavramlara ek olarak, Delphi öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.

Diğer örneklere de göz atabilirsiniz:
Permütasyon Hesaplama Programı
Fibonacci Sayısı Hesaplayan Program:
Girilen İki Sayı Arasındaki Asal Sayıları Bulan Program: 
Boy-Kilo Endeksi Hesaplama: 
Armstrong Sayısı Gösteren Program:

Faktöriyel: 

Girilen Sayınn Rakamlarını Topla:
Haftanın Günlerini Bulan Program: 

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.