3.1. Этапы программирования.

1. Составление алгоритма решения поставленной задачи в виде блок-схемы;

2. Cоставление программы.

3. Ввод текста программы в память ПК.

4. Компиляция – трансляция (перевод) программы с языка программирования на машинный язык (т.е. в машинные коды).

5. Исправление ошибок в программе(отладка программы).

6. Выполнение программы и получение предварительных результатов.

7. Анализ полученных результатов и, при необходимости, корректировка программы.

3.2. Работа в окне Quick Basic.

Для входа в среду Qbasic необходимо запустить файл tb.exe, ко-

торый обычно находится в каталоге Qbasic . После успешного вызова системы верхняя строка экрана монитора содержит «Меню» возмож-

ных режимов работы среды Qbasic.

Начнем с меню File. Для того, чтобы открыть это меню, нужно щелкнуть на нем мышкой. В нем есть пункты New Program - создать новую программу; Open Program. – открыть программу; Save и Save As - сохранить и сохранить как, и Exit - остальные нам пока не понадобятся. В меню  Edit : Undo - отменить последний ввод; Cut - вырезать в буфер; Copy - копировать туда же; Paste - вставить оттуда; Clear - удалить все.

Меню Search: Find - найти какие-нибудь символы, а Change – найти что-нибудь, а потом заменить (иногда довольно полезная вещь).

Меню Run: Start- запуск написанной вами программы с начала;

Continue - продолжение выполнения программы после прерывания ее. Make EXE File... - позволяет сделать из *.bas файла настоящую EXE-версию вашего программы, чтобы ее можно было запускать на компьютере без Бейсика.

Чтобы переключиться на русский язык, надо нажать правый Ctrl и правый Alt, а чтобы на английский язык, то нажать надо на те же клавиши, только слева.

И еще - если вы запустили программу, а выхода из нее не предусмотрели, то нажмите Ctrl+Break. Чтобы при наборе кода перейти на новую строку, нажмите на кнопку ENTER.

При необходимости сохранить написанную программу, нужно воспользоваться меню “File - Save As” . Откроется следующее окно:

3.3. Способы заполнения массивов.

Массив представляет собой последовательность переменных одного типа. Отдельные элементы этой последовательности называются элементами массива. Каждый элемент массива обозначается именем массива и списком индексов. Список индексов должен содержать столько индексов, сколько измерений имеет соответствующий массив.

Элементы массивов можно задавать несколькими способами. Рассмотрим примеры программ по заданию и распечатке массивов.

Пример. Задать и распечатать массив А(15). Значения элементов

массива ввести с клавиатуры.

PRINT : PRINT : PRINT : PRINT " ";

DIM A(15)

FOR I = 1 TO 15

INPUT A(I)

NEXT I

FOR I = 1 TO 15

PRINT A(I);

NEXT I

1 2 3 4 5 6 7 8 9 0 5 4 3 6 7

Пример. Задать и распечатать массив . Значения элементов массива подсчитать по формуле:

При принять .

CLS

PRINT : PRINT : PRINT : PRINT " ";

DIM B(10)

FOR I = 1 TO 10

IF I - 2 = 0 THEN B(I) = 10: GOTO 20

B(I) = (25 - I) / (I - 2)

20 : PRINT B(I);

NEXT I

-24 10 22 10.5 6.666667 4.75 3.6 2.833333 2.285714 1.875

Пример. Задать и распечатать массив . Значения элементов массива задать в блоке DATA.

CLS

DATA 25, 15, 36, 18, 3, 24, 12, 41, 56, 8

DATA 4, 23, 78, 9, 43, 14, 17, 80, 16, 46

PRINT : PRINT : PRINT : PRINT " ";

DIM D(20)

FOR I = 1 TO 20

READ D(I)

PRINT USING "#####"; D(I);

IF I MOD 10 = 0 THEN PRINT : PRINT " ";

NEXT I

25 15 36 18 3 24 12 41 56 8

4 23 78 9 43 14 17 80 16 46

Пример. Задать и распечатать массив .

Значения элементов массива задать случайными числами.

CLS

PRINT : PRINT : PRINT : PRINT " ";

DIM E(60)

FOR I = 1 TO 60

E(I) = INT(RND * 300) - 120

PRINT USING "######"; E(I);

IF I MOD 10 = 0 THEN PRINT : PRINT " ";

NEXT I

91 40 53 -34 -30 112 -116 108 124 92

-107 4 138 117 -8 168 141 -104 164 -11

37 110 -104 57 20 -31 66 74 -41 -37

128 127 56 175 153 -52 88 174 -47 40

-89 179 82 -116 52 -90 -90 119 -35 -107

-32 -6 -30 164 173 0 -37 -72 -72 73

Пример. Задать и распечатать двухмерный массив (матрицу) . Значения элементов массива задать случайными числами.

CLS

PRINT : PRINT : PRINT : PRINT " ";

DIM A(6, 6)

FOR I = 1 TO 6

FOR J = 1 TO 6

A(I, J) = INT(RND * 300) – 120

PRINT USING "######"; A(I, J);

NEXT J

PRINT : PRINT " ";

NEXT I

91 40 53 -34 -30 112

-116 108 124 92 -107 4

138 117 -8 168 141 -104

164 -11 37 110 -104 57

20 -31 66 74 -41 -37

128 127 56 175 153 -52