SHOW:
|
|
- or go back to the newest paste.
1 | - | print "文字を入れてください\n"; |
1 | + | |
2 | $YorN = 'N'; | |
3 | while($a eq 'N') #選択がNでない限り | |
4 | { | |
5 | ### 1: 一つ目の数字をもらう | |
6 | ### 2: もう一つをもらう | |
7 | ### 3: やりたいことをもらう | |
8 | ### 4: 処理して表示する | |
9 | ### 5: 続けたいかどうか(YかN)を聞く | |
10 | ||
11 | print "一つ入れてください\n"; | |
12 | $a = <>; | |
13 | ||
14 | print "もう一つ入れてください\n"; | |
15 | $b = <>; | |
16 | ||
17 | print "やりたいことを教えてください 1: + 2: - 3: * 4: /\n"; | |
18 | $c = <>; | |
19 | ||
20 | if ($c == 1) | |
21 | { | |
22 | print $a + $b | |
23 | } | |
24 | elsif($c == 2) | |
25 | { | |
26 | print $a + $b | |
27 | } | |
28 | elsif($c == 3) | |
29 | { | |
30 | print $a + $b | |
31 | } | |
32 | elsif($c == 4) | |
33 | { | |
34 | print $a + $b | |
35 | } | |
36 | else | |
37 | { | |
38 | print "1~4以外はいれるんじゃねぇ!"; | |
39 | } | |
40 | ||
41 | print "ありがとうございます、結果はこれです\nまたやってみますか? Y/N\n"; | |
42 | $YorN = <>; | |
43 | } |