Программирование

Альмухаметов Валерий

. . .

890 NEXT

Закрываются вначале внутренние циклы, а затем внешние. Используется одно окончание NEXT для циклов по I и L.

Возможна передача управления из внутреннего цикла во внешний, но не наоборот. Выход из цикла с помощью оператора GOTO возможен, а вход внутрь цикла возможен только лишь через оператор FOR.

Подпрограммы

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

может быть оформлена в виде подпрограммы.

Вызов подпрограммы осуществляется оператором GOSUB N, где N – номер первой строки подпрограммы. Завершает подпрограмму оператор RETURN, возвращающий управление в основную программу на оператор, следующий за оператором обращения к подпрограмме GOSUB. Из подпрограммы также можно выйти с помощью операторов передачи управления: GOTO или IF – THEN. В операторе возврата в некоторых версиях Бейсика можно предусмотреть номер строки возврата RETURN N.

Операторы подпрограммы могут выполняться также в естественной последовательности при отсутствии в основной программе оператора END.

Графические операторы

CLS – очищает экран дисплея;

COLOR N1,N2,N3-устанавливает цвет экрана ( N1-номеp цвета переднего плана, задается от 0 до 8; N2 – номер цвета фона, задается от 0 до 8; N3 – номер цвета знакоместа);

SCREEN N – переключение экранов N=0 или N=1 символьный экран; N=2 или N=3 графический экран;

PSET (N1,N2),N3 – окрашивание точки экрана в цвет N3,выбирается от 0 до 8, N1 координата Х, N2 координата Y;

PRESET (N1,N2),N3 – окрашивание точки в цвет фона;

LINE (N1,N2)-(N3,N4),N5,A – вычерчивание линии или прямоугольника, N1,N3 – координаты Х; N2,N4 – координаты Y; N5 – цвет от 0 до 8; если А=В то чертится прямоугольник, если А=BF, то закрашенный прямоугольник;

CIRCLE (N1,N2),N3,N4,N5,N6,N7 – вычерчивание окружности, эллипса или дуги, N1,N2 – координаты центра X и Y ; N3 – радиус; N4 – цвет от 0 до 8; N5 – положение начальной точки дуги в радианах; N6 – положение конечной точки дуги в радианах; N7 – коэффициент сжатия эллипса;

PAINT (N1,N2),N3,N4 – окрашивание части экрана в один цвет, N1,N2 – координаты X и Y начальной точки, N3 – цвет, N4 – цвет границы закрашиваемой области.

Начало и конец задачи

Для обозначения начала задачи или отделения одного блока программы от другого, для лучшей ориентации по программе или для обозначения подпрограмм используется оператор КОММЕНТАРИЙ: REM, после оператора в строке можно записать любой текст. Для обозначения окончания программы используется оператор END.

Практические задания в среде языка BASIC

Внимание! В тексте программ используется исключительно латинский шрифт, буквы и слова русского языка могут быть использованы в некоторых операторах в кавычках.

Задача 1: (линейный алгоритм)

а). Набрать текст программы, переходя в следующие строки,

нажатием клавиши ENTER.

10 Q=5

20 Z=Q+8

30 PRINT Q,Z

40 END

б). Для просмотра записанного в память текста, выполнить команду LIST (F1).

в). Для исполнения записанной программы, выполнить команду RUN (F2).

г). В результате исполнения программы, на экране должен появиться ответ в виде двух чисел: 5 13

д). Очистить память ЭВМ от записанной программы, набрав в свободной строке и исполнив команду NEW. Очистить экран компьютера, набрав в свободной строке и исполнив команду CLS.

Задача 2: (линейный алгоритм)

а). Набрать текст программы, не забывая нажимать клавишу ENTER после каждой строки.

10 A=15

20 B=A/3+1

30 PRINT B

40 A=A+B

50 PRINT A,B

60 END

б). Просмотреть набранный текст, исполнив команду LIST.

в). Исполнить программу командой RUN.

г). Наблюдать на экране результат решения: 6 21 6

д). Очистить экран CLS, очистить память NEW.

Задача 3: (разветвленный алгоритм)

а). Набрать текст программы:

10 INPUT X

20 Y=SIN(X)

30 IF Y>0 THEN K=1 ELSE K=2

40 PRINT Y, K

50 END

б). Исполнить программу, выполнив RUN, при появлении на экране знака: ? , что означает запрос по команде INPUT на ввод числа с клавиатуры, набрать любое число и ввести его, нажав клавишу ENTER.

в). Наблюдать на экране результат решения в виде двух чисел, при этом, если первое из них положительно, то второе число будет равным 1, и наоборот, если первое число отрицательно, то второе равно 2.

г). Очистить память NEW и экран компьютера CLS.

Задача 4: (циклический алгоритм)

а). Набрать текст программы:

10 H=20

20 C=H-8

30 PRINT H, C

40 H=H-6

50 IF C>0 GOTO 20

60 END

б). Распечатать текст программы на экране.

в). Исполнить программу и наблюдать результат:

20 12

14 6

8 0

г). Очистить экран и память.

Задача 5: (разветвленный алгоритм)

Решить задачу с условием: подсчитать значение величины Y по формуле: Y=X²+А при X<0 и по формуле: Y=tg(X³)-sin(X/3)-А при X>=0.

а).Набрать текст программы:

10 INPUT “A, X=”;A,X

20 IF X>=0 GOTO 50

30 Y=X^2+A

40 GOTO 60

50 Y=TAN(X^3)-SIN(X/3)-A

60 PRINT “Результат=”,X,Y

70 END

б). Исполнить программу, при появлении на экране записи: A,X=? ввести с клавиатуры два числа через запятую и нажать клавишу ENTER.

в). Наблюдать результат в виде записи: Результат= с двумя числами, записанными с промежутком между ними.

г). Очистить экран и память ЭВМ.

Задача 6: (циклический алгоритм)