Урок 'Процесс листания' (8 класс)

ПРОЦЕСС ЛИСТАНИЯ

После того, как Титульный лист будет готов, необходимо произвести одно из основных моментов программы - это переход на следующую страницу. Для этого мы воспользуемся операторами условного и безусловного переходов, оператором вывода текста, функциями INKEY$ и CHR$.

400 LOCATE 27, 5: PRINT "dla perexoda nazmite klavishu 0"

410 IF INKEY$ = CHR$(48) THEN 1000

420 GOTO 410

В строчке 410 функция CHR$(48) управление программой передает цифре - 0. Оператор же THEN это управление переводит на строчку 1000. Новую тему лучше всего начинать с новой тысячи. Так легче будет ориентироваться в самой программе.

В строчке 420 оператор GOTO вновь передает управление именно на предыдущую строчку - 410.

При следующих переходах необходимо ориентироваться на эти правила. Если эти правила не соблюдать, то переход к новой странице может не осуществиться.

После того, как все элементы первого окна встанут на места, то есть редактирование будет завершено, приступаем к программированию второго листа - Оглавления. В этом окне и последующих окнах, где имеет место обработка текстовой информации, особую роль будет играть оператор LOCATE. В режиме экрана SCREEN 12 количество столбцов 78, строк 29. ориентируясь на эти параметры, нужно будет выводить текстовую информацию.

Программа: ОГЛАВЛЕНИЕ

1000 CLS

1010 LOCATE 3, 35: PRINT "OGLAVLENIE"

1020 LOCATE 5, 35: PRINT "Glava # 1"

1030 LOCATE 7, 4: PRINT "-Preobrazovanie podobia "

1040 LOCATE 9, 4: PRINT "-Svoictva preobrazovania podobia "

1050 LOCATE 11, 4: PRINT "-Podobie figur "

1060 LOCATE 13, 4: PRINT "-Priznak; podobia; treugol'nikov po dvum yglam "

1070 LOCATE 15, 4: PRINT "-Priznak podobia treugol'nikov po dvum stoponam i uglu mezdu nimi "

1080 LOCATE 17, 4: PRINT "-Priznak podobia treugol'nikov po trem storonam "

1090 LOCATE 19, 4: PRINT "-Podobie pramoygol'nix treygol'nikov "

1100 LOCATE 21, 4: PRINT "-Ugli, vpisannie v okruznost'"

1110 LOCATE 23, 4: PRINT "-Proporcional'nost' otrezkov xord i sekusix okruznosti "

Начиная со сточки 1120 осуществляется переход к следующему окну. Новая тема начинается с 3000 строки.

1120 LOCATE 28, 5: PRINT "dla perehoda nazmite klavishu 1"

1130 IF INKEY$ = CHR$(49) THEN 3000

1140 GOTO 1130

Программа: 1 ТЕМА

3000 CLS

3010 LOCATE 2, 30: PRINT "PREOBRAZOVANIE PODOBIA"

3020 LOCATE 4, 5: PRINT "Preobrazovanie figuri F v figuru F' nazivaeysa"

3030 LOCATE 6, 5: PRINT "preobrazovaniem podobia"

3040 LOCATE 8, 5: PRINT "T.Gomotetia-preobrazovanie podobia."

3050 LOCATE 10, 30: PRINT "Dokazatel'stvo"

3051 LOCATE 11, 6: PRINT "Pus't' O-centr gomotetii,k-koeficient gomotetii"

3052 LOCATE 13, 6: PRINT "X i Y-dve proizvol'nie tchk. figuri."

3060 LOCATE 15, 5: PRINT "Pri gomotetii tchk. X i Y perehod'at v tchk. X' i Y'"

3070 LOCATE 17, 5: PRINT "na luchah OX i OY,prichom OX'=k*OX,OY'=k*OY."

3080 LOCATE 19, 5: PRINT "=> vektornie ravenstva"

3090 LOCATE 21, 35: PRINT "OX'=k*OX,OY'=k*OY"

3100 LOCATE 23, 5: PRINT "Vichitaja poluchim"

3101 LOCATE 25, 35: PRINT "OY'-OX'=k(OY-OX)"

3102 LOCATE 27, 35: PRINT "X'Y'=kXY"

3103 LOCATE 28, 5: PRINT "CH.T.D."

3140 LOCATE 29, 10: PRINT "dla perehoda k risuhku nazmite A"

3150 IF INKEY$ = CHR$(65) THEN 3330

3160 GOTO 3150

В итоге получим:

Если текст занимает большую часть экранного пространства, то рисунки, если они есть, лучше вывести на отдельном экране и сделать их визуально «читаемыми». Это означает, что он должен быть более или менее большого размера. Этот вариант представлен в следующей программе, а итог на картинке.

Программа: РИСУНОК К 1 ТЕМЕ

3330 CLS

3333 LINE (310, 50)-(130, 170), 2: LINE -(310, 350), 2

3334 LINE (210, 120)-(210, 240)

3335 LINE (250, 90)-(250, 300)

3336 LOCATE 12, 12: PRINT "O"

3337 LOCATE 7, 25: PRINT "X"

3338 LOCATE 5, 30: PRINT "X'"

3339 LOCATE 16, 25: PRINT "Y"

3340 LOCATE 20, 30: PRINT "Y'"

3933 LOCATE 28, 10: PRINT "dla perehoda nazmite 2"

3940 IF INKEY$ = CHR$(50) THEN 4000

3950 GOTO 3940

После этого переходим к программированию второй темы. Опять же обращаем внимание на объем текста и наличие графики.

Программа: 2 ТЕМА

4000 CLS

4010 LOCATE 3, 25: PRINT "Svoictva preobrazovania podobia"

4020 LOCATE 5, 5: PRINT "Preobrazovanie podobia perevodit pramie v pramie,"

4030 LOCATE 7, 4: PRINT "polypramie v polypramie,otrezki v otrezki"

4040 LOCATE 9, 25: PRINT " Dokazat'"

4050 LOCATE 11, 5: PRINT "Preobrazovanie podobia sohranaet ugli mezdu polupramimi"

4051 LOCATE 13, 5: PRINT "Pust' ugol ABC preobrazovanie podobia perevoditsya v udol A1B1C1"

4052 LOCATE 15, 5: PRINT "Podvergnem ugol ABC perobrazovany gomotetii otnositel'no ego verwini B"

4053 LOCATE 17, 5: PRINT "Pri etom tochki A i C pereydut v tochki A2 i B2 "

4054 LOCATE 19, 5: PRINT "Treugol'niki A2BC2 i A1B1C1 ravni po 3 priznacy ravenstva treugol'nikov"

4055 LOCATE 21, 5: PRINT "Iz ravenstva treygol'nikov sleduet ravenstvo A2BC2 i A1B1C"

4056 LOCATE 23, 5: PRINT "Znachit , ugli ABC i A1B1C1 ravni"

4057 LOCATE 25, 45: PRINT "ch.t.d."

4097 LOCATE 27, 10: PRINT "dla perehoda k risunky namite B"

4098 IF INKEY$ = CHR$(66) THEN 4100

4099 GOTO 4098

Программа: РИСУНОК КО 2 ТЕМЕ

4100 CLS

4333 LINE (310, 50)-(130, 170), 2: LINE -(310, 350), 2

4334 LINE (210, 120)-(210, 240)

4335 LINE (250, 90)-(250, 300)

4336 LOCATE 12, 12: PRINT "B"

4337 LOCATE 7, 25: PRINT "A"

4338 LOCATE 5, 30: PRINT "A'"

4339 LOCATE 16, 25: PRINT "C"

4340 LOCATE 20, 30: PRINT "C'"

4345 LOCATE 28, 5: PRINT "DLA PEREHODA NAZMITE 3"

4346 IF INKEY$ = CHR$(51) THEN 4350

4347 GOTO 4346