Genel İşlemler - Mükemmel Sayı

Sayfayı Yazdır | Pencereyi Kapat

Mükemmel Sayı

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=668
Tarih: 06 Ocak 2025 Saat 13:12
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Mükemmel Sayı

Mesajı Yazan: zeynep irem
Konu: Mükemmel Sayı
Mesaj Tarihi: 12 Temmuz 2024 Saat 16:56

var

i,toplam : Integer;

values:String;

form:TCLform;

void SetInputQueryString;

{

toplam=0;

try

values = Clomosy.GlobalResult;

values=StrToInt(values);

for(i=1 to values)

{

if (values mod i == 0)

{

toplam=toplam+i;

}}

if(values==toplam)

{

ShowMessage(' Mükemmel Sayidir');

}

else{

ShowMessage(' Mükemmel Sayi Degildir');

}

except

//ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

ShowMessage('Bir sayi giriniz ');

}

void InputExit;{

Exit;

}

{

form=TCLform.Create(self);

InputAndCall('Sayı giriniz','default','SetInputQueryString','InputExit');

}

//mükemmel değildir diyor her seferinde