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