Kod:
#!/usr/bin/perl
print ("1. sayiyi giriniz:");
$sayi1 = <>;
print ("2. sayiyi giriniz: ");
$sayi2 = <>;
print ("1: Toplama 2:Cıkarma 3:Carpma 4:Bolme\n");
print ("islem numarasini giriniz: ");
$islem = <>;
if ($islem == 1){
print ("Sonuç: ", $sayi1+$sayi2, "\n");
}
elsif ($islem == 2){
print ("Sonuç: ", $sayi1-$sayi2, "\n");
}
elsif ($islem == 3){
print ("Sonuç: ", $sayi1*$sayi2, "\n");
}
elsif ($islem == 4){
print ("Sonuç: ", $sayi1/$sayi2, "\n");
}
else{
print ("yanlis bir islem numarasi girdiniz.\n");
}
Son düzenleme: