Структура программы на Бейсике.

Любая, не очень сложная программа на Basic’е, имеет следующую структуру общего типа:

1. Заголовок программы.

2. Блок описания переменных (операторы описания).

3. Блок ввода значений для необходимых переменных.

4. Блок исполняемых инструкций (операторов).

5. Блок вывода значений переменных.

6. Конец программы

7. Блок подпрограмм (если необходимо).

Заголовок программы.

Заголовок программы содержит описательную информацию о программе(комментарий, вывод названия программы, описание процедуры-функции).

REM program Resiz

DEF FN_AV(A,B)=(A+B)/2

Примечание:Цифровые метки в начале строк ставитьне обязательно. Метки необходимы только для операторов перехода.

REM program Resiz

DEF FN_AV(A,B)=(A+B)/2

IF A > B THEN 10

…………………..

10 A = B

Блок описания переменных (операторы описания).

В данном разделе задаются размерности массивов, т.е.выделяется определённый размер оперативной памяти под соответствующую переменную. Для этого служит оператор DIM. Если необходимо задать (выделить память) для 100 последовательныхцелыхдействительных значений:

DIM A%(99)

т.е. у индексированной переменной A(I) индекс изменяется от 0 до 99.

Для задания 100 действительныхзначений (выделение памяти):

DIMB(99).

Простые переменные обычно задаются в контексте программы, причём к идентификаторам целых переменных добавляется %.

Блок ввода необходимых переменных.

INPUTC– программа будет запрашивать значение действительной переменнойC. Необходимо набрать на клавиатуре число и нажатьENTER.

Сочетание операторов DATAиREADпозволяет ввести достаточное большое количество простых переменных или элементов массива:

DIM Q(100)

DATA 1,2,3,4,5,6,7,8,9,10

INPUT N%

FOR I% = 1 TO N%

READ Q(I)

NEXTI

Вводит N% - нужное количество вводимых элементов массива, а затем в циклеFOR…NEXT(оператор будет рассмотрен позднее) вводится это количество действительных чисел.

Блок исполняемых инструкций (операторов).

В данном блоке реализуется алгоритм программы с помощью различных исполняемых операторов Basic’а.

Блок вывода значений переменных.

Необходимые переменные выдаются на экран дисплея с помощью оператора PRINTA,B,C,D- который выдаёт числа в строку в зонном формате.

PRINTA;B;C;D– выдача чисел в строку слитно, для обеспечения читаемости необходимо в операторPRINTвключить пробелы:

PRINT A;” “; B; ” “; C; ” “; D

Конец программы

Обычно это оператор END.

Блок подпрограмм (если необходимо).

Описание процедур – функций и процедур.

DEF FNA(x)=5*SIN(X)

……..

PROC C(x,y)

ENDPROC

Типовые программные шаблоны

Пример использования оператора присваивания
30	A=0.11
40	N%=7
50	A=A+N
55	B=1E-5
60	B=B+1

или

	A=0.11
	N%=7
	A=A+N
	B=1E-5
	B=B+1

Пример использования условного оператора:

10	INPUT N
	IF N=0 THEN 30 ELSE 10	Если N=0, управление передается строке30, в противном случае - строке10
30	END	Завершение работы программы

10	INPUT P
	IF P>=0 THEN GOTO 30 : C=C+1 ELSE GOTO 10 : K=K*6 ENDIF	Если P >= 0, управление передается строке30, переменная С увеличивается на 1, в противном случае переход на строку 10 и переменная К умножается на 6. Конец условного оператора.
30	END	Завершение работы программы

Пример использование оператора DATAиREAD:

	DATA 3,8,7,30,65	Присвоение оператору DATAразличных числовых данных
20	READ A	Оператор READсчитывает первое число (3) из оператораDATAи присваивает его переменнойА
	PRINT; A, SQR (A)	Вывод на экран числового значения переменной Аи квадратного корня из него
	GOTO 20	Передача управления строке 20, после чего оператор READ считывает второе число (8) из оператораDATAи присваивает его переменнойА и цикл повторяется, до тех пор, пока из оператораDATAбудет прочитано последнее число, после чего программа остановится и выведет на экран сообщение: OUT OF DATA IN 20 (данные исчерпаны в строке 20)
	END	Конец программы

Пример 2

Увеличивая переменную N=1 каждый раз на единицу, закончить работу программы, когда N станет равной 20 и вывести на экран окончательное значение N:

Программа			Пояснения работы программы
10	N=1		Присвоение переменной Nчислового значения (1)
20	IF N>19 TNEN 50		Если N>19то перейти на строку50
30	N=N+1		Увеличение значения Nна 1
40	GOTO 20		Передача управления строке 20 для повторения цикла
50	PRINT N		Вывод на экран окончательного значения N