Примеры составления типовых программ

Пример 1: Вычислить и вывести на экран в виде таблицы значений функ­ции Y, заданной в интервале изменений аргу­мента Х от X_н до X_к с ша­гом Н. Блок-схема алгоритма может быть представлена в следующем виде:

или в следующем виде:

10 INPUT XN, XK, H

20 FOR X=XN TO XK STEP H

30 Y=EXP(-X) + 1

40 PRINT "X="; X, " Y="; Y

50 NEXT X

60 END

Пример 2: Вывести все положительные числа, кратные 7, не превы­шаю­щие 50, и вычислить их сумму этих чи­сел.

10 S=0

20 PRINT " ,<=50"

30 FOR I=7 TO 50

40 IF I/7=INT (I/7) THEN PRINT I;: S=S+I

50 NEXT I

60 PRINT " ="; S

70 END

S=0

S=S+I

+

-

Обработка одномерных массивов

Как было указано выше, в Вasic-программе массив дол­жен быть опи­сан с помощью оператора DIM(N), в результате работы которого резервиру­ется па­мять в объеме N ячеек. Для обра­ботки элементов массива необходимо задать числовые зна­чения всем его элементам. Это может быть сделано в ре­зультате ввода числовых значений последовательно в каждую ячейку па­мяти операто­ром INPUT или оператором READ из блока DATA. Кроме того, элементы данных могут вычисляться в соот­ветствие с алгоритмом или гене­рироваться датчиком случайных чисел с помощью процедуры RND. После заполнения числовой инфор­мацией области памяти элементы массива обра­батываются в соответствие с алгоритмом.

Пусть описан массив Х(10). Обработка массива, как правило, осуществляется с помо­щью операто­ров цикла, значение управляющей переменной слу­жит указателем текущего номера элемента. Когда указатель при­нимает i-е значение, рассматривается элемент массива с номе­ром i и значением Х(i).

Пример: _N

Вычислить значение функции: G = max { Х_i }+ ∏ Х_i

^{Xi > 2 i=1}

10 INPUT N

20 DIM X(N)

30 P=1

40 FOR I=1 TO N

50 INPUT X(I): NEXT I

60 FOR I=1 TO N

70 IF X(I)>2 THEN P=P*X(I)

75 NEXT I

80 MAX=X(1)

90 FOR I=1 TO N

100 IF X(I)> MAX THEN MAX=X(I)

110 NEXT I

120 PRINT “ X “

130 FOR I=1 TO N

140 PRINT X(I);

150 NEXT I

160 PRINT

170 PRINT “ G= “; MAX+P

180 END

В строках 40-50 описан цикл ввода элементов массива по запросу с дисплея.

В строках 60-75 программы - цикл накопления произведения элементов мас­сива, удовлетворяющих условию Х_i> 2. Начальное значение произведе­ния Р=1.

В строках 80-110 реализуется поиск максимального эле­мента среди эле­ментов массива Х. В операторе 80 в качестве претен­дента на максимальное значение фиксируется 1-й эле­мент мас­сива.

Строка 120 - печать заголовка массива.

Операторы в строках 130 - 150 реализуют вывод в строку элементов мас­сива Х.

Оператор PRINT без параметров в строке 160 обеспечивает пропуск строки и установку курсора на первую позицию следующей строки.

В строке 170 выводится значение искомого выражения под име­нем G.