GOSUB номер строки или метка
По этой команде управление передается подпрограмме - блоку команд, первая из которых помечена номером строки или меткой. Последней выполняемой командой подпрограммы является RETURN. По этой команде управление передается в основную программу на оператор, стоящий за оператором GOSUB.
Если нарушено согласование операторов RETURN и GOSUB, то выводится сообщение об ошибке “RETURN without GOSUB”.
Подпрограммы располагаются в конце основной программы и отделяются от основной программы оператором END.
Пример 1. Написать подпрограмму вывода подчеркивания информации. Длина черты переменная.
N=5
GOSUB A ‘вызов подпрограммы для вывода знака подчеркивания 5 раз
N=30
GOSUB A ‘вызов подпрограммы для вывода знака подчеркивания 30 раз
END
A: FOR I=1 TO N ‘подпрограмма вывода знака подчеркивания
PRINT ”_“;
NEXT I
RETURN ‘оператор возврата в основную программу
Пример 2. Вычислить функцию: C = m!n!/(m-n)!
1 INPUT “Введите m>n”;m,n
IF M<=N THEN 1 ‘проверка входных данных
R=M
GOSUB A ‘вызов подпрограммы для вычисления m!
R1=F : R=N
GOSUB A ‘вызов подпрограммы для вычисления n!
R2=F : R=M-N
GOSUB A ‘вызов подпрограммы для вычисления (m-n)!
C=(R1+R2)/F : PRINT “C=”;C
END
A: F=1 ‘подпрограмма вычисления факториала
FOR I=2 TO R
F=F*I
NEXT I
RETURN ‘оператор возврата в основную программу
Для самостоятельного решения
Составить программу расчета заработной платы по формуле: оклад * количество дней * 1.4-подоходный налог. Расчет заработной платы оформить в подпрограмме.
Дата добавления: 2015-09-14; просмотров: 1003;