Başlangıç > Kodlar > Perl’de hesap makinesi

Perl’de hesap makinesi

 

#Hesap makinesi...
print "Islem sembolunu girin(+,-,*,/)\n";
$sembol=<STDIN>;
print "Ilk sayiyi girin:\n";
$sayi=<STDIN>;
print "Ikinci sayiyi girin:\n";
$sayi2=<STDIN>;
chop($sayi);
chop($sayi2);
chop($islem);
if($sembol eq "+"){
$sonuc = $sayi + $sayi2;
print "Sonuc=$sonuc\n";
}
if($sembol eq "-"){
$sonuc=$sayi - $sayi2;
print "Sonuc=$sonuc\n";

}
if($sembol eq "*"){
$sonuc=$sayi * $sayi2;
print "Sonuc=$sonuc\n";
}
if($sembol eq "/"){
$sonuc=$sayi / $sayi2;
print "Sonuc=$sonuc\n";
}
print "coded bY ++Karak0rsan++";
exit();

Reklamlar
Kategoriler:Kodlar Etiketler:
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: