Mükemmel Sayı


   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

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
zeynep irem Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 11 Temmuz 2024 Konum: konya Durum: Aktif Değil Puanlar: 13	Mesaj Seçenekleri Yanıt Yaz Alıntı zeynep irem Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Mükemmel Sayı Gönderim Zamanı: 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