Информатика -продвинутый курс
PRG осуществляет запрос на классы,
case dl=2
do APPN
case dl=l
do NEWBD
case dl=4
do SERVIS3
case dl=5
do DOC
case dl=6
store 8 to d2
endcase
loop
enddo
return
_____________ модуль DOP.PRG ______________
DOP. PRG осуществляет запрос на классы, по результатам ввода формирует логическую переменную kkk. используемую в некоторых других модулях для контроля за номерами классов, kkk принимает значение «истина», если поле «класс» соответствует введенным номерам, и «ложь» - в противоположном случае.
Программа 142
store 0 to kl
store to kl
store Т to pp
*** запрос на классы
@ 10,1 say 'Какие классы*
do while pp
@ 10,13 get kl picture '99-99'
read
if val($(kl,l,2))<12 .and. val($(kl,4,2))<l2
store F to pp
endif
loop
enddo
*** Формирование логической переменной kkk
if val ($(kl,4,2))=0
store 12 to kl
else
store val($(kl,4,2))+l to kl
endif
store 'Kлacc>val ($ (kl, 1,2))—1 .and. Knacc<kl' to kkk
return
____________ модуль
SERV1S2.PRG _________________
Этот модуль позволяет внести изменения в записи БД. Классы, в которых будет производиться корректировка, пользователь указывает, отвечая на запрос до вызова настоящей программы.
Программа 143
erase
set colon off
set talk off
goto top
if val(dd)=l
do shapka
else do shapkal
endif
store 1 to numl ,num2
store Т to log
store ' ' to rl
store 0 to pointer, num
store 't' to dl
count to num
do while num1<num .and. num2<num .and. log
store 10 to line
store 't' to dl
@ 21,25 say 'Нажмите«к>> для перехода к другим записям
@ 22,25 say "или ВВОД для внесения изменений'
if val(dd)=l
do newws2
else
do newws21
endif
skip - line + 10
store 10 to line
do i zm2
store pointer+1 to pointer
loop
if num1<num
skip
endif
enddo
_____________ модуль SHAPKA.PRG _____________
Программа 144
erase
text
таблица 1
Класс | Сохранение контингента | Неуспевающие | Второгодники, их успеваем. | Пропуски | Работа с трудными учащимися и их семьями | |||
Конец года | Четверти 1 2 3 4 | Четверти 1 2 3 4 | Четверти 1 2 3 4 | Без ув. причин | По болезни | Состоящ. на учете | Трудные семьи | |
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий