Mercurial > hg > Members > nobuyasu > SampleSource
comparison Bison-Flex/BasicCompiler-MemoryBase/test.txt @ 0:db40c85cad7a default tip
upload sample source
| author | nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Mon, 09 May 2011 03:11:59 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:db40c85cad7a |
|---|---|
| 1 'コメントテスト | |
| 2 rem これもコメント | |
| 3 | |
| 4 ' 二重ループのテスト | |
| 5 for i=1 to 3 | |
| 6 for j=1 to 3 | |
| 7 print i, j | |
| 8 next | |
| 9 next | |
| 10 | |
| 11 | |
| 12 ' 代入とrand関数のテスト | |
| 13 a = rand(10) | |
| 14 b = rand(10) | |
| 15 | |
| 16 ' ある程度の計算式 | |
| 17 c = a + b * 10 / 3 | |
| 18 | |
| 19 print a, b, c | |
| 20 | |
| 21 ' if文 | |
| 22 if a == b then | |
| 23 a = 100 | |
| 24 else | |
| 25 b = 100 | |
| 26 endif | |
| 27 | |
| 28 print a, b | |
| 29 | |
| 30 ' for文 | |
| 31 for i=1 to 10 | |
| 32 a = a + 1 | |
| 33 next | |
| 34 | |
| 35 print a, b | |
| 36 | |
| 37 ' while文 | |
| 38 while a != 0 | |
| 39 a = a - 1 | |
| 40 wend | |
| 41 | |
| 42 print a, b | |
| 43 | |
| 44 end |