Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ### まず、使う変数を定義しよう
- $YorN = 'N';
- while($a eq 'N') #選択がNでない限り
- {
- ### 1: 一つ目の数字をもらう
- ### 2: もう一つをもらう
- ### 3: やりたいことをもらう
- ### 4: 処理して表示する
- ### 5: 続けたいかどうか(YかN)を聞く
- print "一つ入れてください\n";
- $a = <>;
- print "もう一つ入れてください\n";
- $b = <>;
- print "やりたいことを教えてください 1: + 2: - 3: * 4: /\n";
- $c = <>;
- if ($c == 1)
- {
- print $a + $b
- }
- elsif($c == 2)
- {
- print $a + $b
- }
- elsif($c == 3)
- {
- print $a + $b
- }
- elsif($c == 4)
- {
- print $a + $b
- }
- else
- {
- print "1~4以外はいれるんじゃねぇ!";
- }
- print "ありがとうございます、結果はこれです\nまたやってみますか? Y/N\n";
- $YorN = <>;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement