Page 84 - 33
P. 84
Для того, щоб “ шапка ” виводилась при кожному натискуванні, треба
відповідний фрагмент програми винести в підпрограму. Доцільно також
винести в підпрограму і оператори, що зупиняють вивід таблиці. Оператори
зупинки і виводу “ шапки ” можна об’єднати однією підпрограмою, але
зручніше їх розділити. Це надає можливості після виводу першої частки
виводити скорочений варіант “ шапки “. Фрагмент блок-схеми цього варіанту
зображено на рисунку 3.13, а сама програма набуває такого вигляду.
5 CLS
10 PRINT “ Зупинка виводу інформації ”
15 DIM X ( 60 ), Y ( 60 )
20 INPUT “ Кількість рядків у таблицці ”, N
25 FOR I = 1 TO N
30 X ( I ) = I * 3
35 Y ( I ) = X ( I ) ^ 2 – X ( I )
40 NEXT I
45 GOSUB 100
50 J = 4
55 FOR I = 1 TO N
60 J = J + 1
65 IF J = 20 THEN GOSUB 170 ELSE 75
70 GOSUB 120
75 PRINT I, X ( I ), Y ( I )
80 NEXT I
85 PRINT “ ---------------------------------------------------------------
90 END
100 PRINT “ Результати розрахунку
110 PRINT “ ---------------------------------------------------------------
120 PRINT “ N X Y
130 PRINT “ ---------------------------------------------------------------
84
