Информатика -продвинутый курс


БАЗОВЫЕ ОПЕРАТОРЫ - часть 3


При выдаче результатов используется форматная печать PRINT USING (для дробных чисел форматы могли бы быть, например, ###.## - выдаст результат типа 345.98, ##.##лллл - выдаст результат типа 34.17Е-02). В 20-й строке оператор DIM резервирует память под массив (аналог паскалевского описания array, но без явного указания типа элементов).

 

Программа 58 (см. программу 10).

10 REM bubble (пузырек)

20 DIM a(10)

30 DATA 19, 8, 17, 6, 15, 4, 13, 2, 11, 0

40 CLS

50 PRINT

"Исходный массив"

60 FOR i =

1 TO 10 STEP 1

70 READ a(i)

80 PRINT USING "»#»#"; a(i);

90 NEXT i

100 PRINT

110 p$ = "да"

120 FOR i = 10 TO 2 STEP -1

130 IF a(i) >= a(i-l) THEN GOTO 150

140 b = a(i): a(i) = a(i-l): a(i-l) = Ь: р$ = "нет"

150 NEXT i

160 IF p$ = "нет" GOTO 110

170 PRINT

"Упорядоченный массив"

180 FOR i = 1 TO 10

190 PRINT USING "####"; a(i);

200 NEXT i

210 END

 




Начало  Назад  Вперед



Книжный магазин