$ cat bubble_sort.bas 10 RANDOMIZE N% = 10 M% = 15 20 DIM A%(0 : N% - 1, 5 : 5 + M% - 1) 30 FOR I% = 0 TO N% - 1 FOR J% = 5 TO 5 + M% - 1 A%[I%][J%] = RND(131) PRINT A%[I%][J%] NEXT J% PRINT; 50 NEXT I% 60 FOR I% = 0 TO N% - 1 70 FOR J% = 5 TO 5 + M% - 1 FOR II% = 0 TO N% - 1 FOR JJ% = 5 TO 5 + M% - 1 IF A%[I%][J%] < A%[II%][JJ%] THEN TEMP% = A%[I%][J%] A%[I%][J%] = A%[II%][JJ%] A%[II%][JJ%] = TEMP% END IF NEXT JJ% NEXT II% 130 NEXT J% 140 NEXT I% PRINT; FOR I% = 0 TO N% - 1 FOR J% = 5 TO 5 + M% - 1 PRINT A%[I%][J%] NEXT J% PRINT; NEXT I% $ ../basic < bubble_sort.bas > bubble_sort.c && gcc -std=c99 bubble_sort.c -o bubble_sort && ./bubble_sort 78 3 105 8 0 125 33 118 24 61 102 9 111 7 30 120 58 28 128 82 120 31 98 5 104 128 113 42 63 70 101 17 81 76 25 88 77 66 76 101 127 54 117 114 61 16 110 127 51 115 85 47 15 52 53 126 49 42 37 112 120 15 5 70 98 31 27 44 104 110 14 100 33 0 83 102 23 69 98 81 53 59 128 69 111 57 64 30 100 109 11 96 124 24 35 91 55 69 11 35 56 32 4 96 32 94 74 62 32 48 19 86 107 23 31 88 81 102 118 57 80 5 22 80 29 64 47 91 9 58 126 72 90 6 38 129 100 112 67 9 30 86 102 6 110 2 101 67 104 88 0 0 2 3 4 5 5 5 6 6 7 8 9 9 9 11 11 14 15 15 16 17 19 22 23 23 24 24 25 27 28 29 30 30 30 31 31 31 32 32 32 33 33 35 35 37 38 42 42 44 47 47 48 49 51 52 53 53 54 55 56 57 57 58 58 59 61 61 62 63 64 64 66 67 67 69 69 69 70 70 72 74 76 76 77 78 80 80 81 81 81 82 83 85 86 86 88 88 88 90 91 91 94 96 96 98 98 98 100 100 100 101 101 101 102 102 102 102 104 104 104 105 107 109 110 110 110 111 111 112 112 113 114 115 117 118 118 120 120 120 124 125 126 126 127 127 128 128 128 129 $ ../basic < bubble_sort.bas > bubble_sort.c && gcc -Wall -Wextra -pedantic bubble_sort.c -o bubble_sort && ./bubble_sort bubble_sort.c: В функции ‘print’: bubble_sort.c:328:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf 105 88 88 109 24 101 120 75 12 104 35 122 86 10 7 61 15 27 36 62 1 90 49 26 72 19 124 88 128 102 63 109 59 27 87 91 129 76 42 17 56 77 15 19 94 22 80 110 49 116 48 58 83 104 91 24 123 85 119 127 63 52 113 130 86 69 97 84 15 8 108 78 92 123 97 55 21 47 41 71 39 89 5 122 62 96 23 61 57 11 65 128 70 47 127 26 123 100 117 14 108 95 93 69 94 59 124 116 113 42 63 22 0 68 13 70 40 43 7 98 55 79 95 1 2 98 34 126 67 21 9 51 123 102 120 86 38 120 78 20 31 10 49 39 78 70 109 126 113 123 0 1 1 2 5 7 7 8 9 10 10 11 12 13 14 15 15 15 17 19 19 20 21 21 22 22 23 24 24 26 26 27 27 31 34 35 36 38 39 39 40 41 42 42 43 47 47 48 49 49 49 51 52 55 55 56 57 58 59 59 61 61 62 62 63 63 63 65 67 68 69 69 70 70 70 71 72 75 76 77 78 78 78 79 80 83 84 85 86 86 86 87 88 88 88 89 90 91 91 92 93 94 94 95 95 96 97 97 98 98 100 101 102 102 104 104 105 108 108 109 109 109 110 113 113 113 116 116 117 119 120 120 120 122 122 123 123 123 123 123 124 124 126 126 127 127 128 128 129 130 $ echo 'DIM A(0:1) A[0][0]=1' | ../basic > error.c && gcc -Wall -Wextra -pedantic error.c -o error && ./error error.c: В функции ‘print’: error.c:328:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf ./error: too many indexes: should be 1 $ echo 'DIM A(0:1,1:2,3:4) A[0][3][4]=1' | ../basic > error.c && gcc -Wall -Wextra -pedantic error.c -o error && ./error error.c: В функции ‘print’: error.c:328:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf ./error: out of bounds: should be between 1 and 2, got 3 $ echo 'A[0][1]=1' | ../basic > error.c && gcc -Wall -Wextra -pedantic error.c -o error && ./error error.c: В функции ‘print’: error.c:335:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf ./error: array undeclared
Comments
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎