View difference between Paste ID: sAbD7mti and 8K0aiQ5p
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
    }