osnova


0010 Define data
0020 local
0030 1 #Tabl_NPP(N2/1:10)
0040 init<1,2,3,4,5,6,7,8,9,10>
0050 1 #Tabl_TIME(t/1:10)
0060 init<t'08:00:00',t'08:35:00',t'09:15:00',t'09:45:00',t'10:50:00',t'11:40:00',t'13:10:00',t'13:40:00',t'14:00:00',t'14:30:00'>
0070 1 #Tabl_FIO(A180/1:10)
0080 init<'Иванов И.И.','Петров П.П','Зайцев З.З.','Васин В.В.','Ивасенко И.И.','Романов Р.Р.','Иващенко И.И.','Семенов С.С.','Гарынич Г.Г','Крутой К.К.'>
0090 1 #Tabl_TIME_Coming(A5/1:10)
0100 1 #Tabl_delta(t/1:10)
0110 1 #j(N2)
0120 1 #NPP(N3)
0130 1 #Index (N2)
0140 1 #Index_FND (N2)
0150 1 #buft(t)
0160 1 #time(t)
0170 1 #coming(A20/1:10)
0180 1 #pryem(t/1:10)
0190 1 #time_coming(t)
0200 1 #sv(N4)
0210 1 #sluch_time(t/1:10)
0220 1 #start_work(t)
0230 init<t'07:59:00'>
0240 1 #start_dinner(t)
0250 init<t'12:00:00'>
0260 1 #end_work(t)
0270 init<t'17:00:00'>
0280 1 #end_dinner(t)
0290 init<t'13:00:00'>
0300 1 #start_time(N3)
0310 1 #end_time(N3)
0320 1 #raspisanie(A30/1:10)
0330 1 #table_sv(t/1:480)
0340 1 #index_t(t)
0350 1 #i(N3)
0360 End-define
0370 callnat 'WUP'
0380 #table_sv(*)
0390 #index_t
0400 #i
0410 for #NPP 1 to 10
0420 * input (ad=im)'Bведите номер клиента:' #NPP
0430 if #NPP=0
0440 escape bottom
0450 end-if
0460 * reset #index_FND
0470 * for #Index=1 to 10
0480 * if #Tabl_NPP(#Index)=#NPP
0490 * #Index_FND:=#index
0500 * Escape Bottom
0510 * End-if
0520 * End-for
0530 for #i = 1 to 480
0540 if #table_sv(#i) = #Tabl_time(#NPP)
0550 escape bottom
0560 end-if
0570 end-for
0580 if #i > 20
0590 #start_time := (#i - 20)
0600 end-if
0610 if #i < 460
0620 #end_time := (#i + 20)
0630 end-if
0640 NPP.
0650 repeat
0660 callnat "WTF"
0670 #sv
0680 set control 'n'
0690 input (ad = io) #NPP #sv #start_time #end_time
0700 if #sv > #end_time and #sv < #start_time
0710 escape top
0720 else
0730 decide for first condition
0740 when #sv > #start_time and #sv <= #i
0750 * input (ad=io)'0' #NPP #sv #start_time #i #end_time
0760 #coming(#NPP) := 'пришел вовремя'
0770 #raspisanie(#NPP) := 'принимаем по расписанию'
0780 #pryem(#NPP) := #tabl_time(#NPP)
0790 #sluch_time(#NPP) := #table_sv(#sv)
0800 escape bottom(NPP.)
0810 when #sv > #i and #sv <= (#i + 10)
0820 * input (ad=io)'1' #NPP #sv #start_time #i #end_time
0830 #coming(#NPP) := 'опоздал'
0840 #raspisanie(#NPP) := 'принимаем в'
0850 #pryem(#NPP) := #table_sv(#sv)
0860 #sluch_time(#NPP) := #table_sv(#sv)
0870 escape bottom(NPP.)
0880 when #sv > (#i + 10) and #sv < #end_time
0890 * input (ad=io)'2' #NPP #sv #start_time #i #end_time
0900 #coming(#NPP) := 'опоздал'
0910 #raspisanie(#NPP) := 'не принимаем'
0920 #pryem(#NPP) := 0
0930 #sluch_time(#NPP) := #table_sv(#sv)
0940 escape bottom(NPP.)
0950 when none
0960 * input (ad=io)'3' #NPP #sv #start_time #i #end_time
0970 escape top
0980 end-decide
0990 end-if
1000
1010 end-repeat
1020 end-for
1030 for #j = 1 to 10
1040 print #Tabl_NPP(#j) #Tabl_FIO(#j) #tabl_time(#j) #sluch_time(#j) #coming(#j) #raspisanie(#j) #pryem(#j)
1050 * print #tabl_time(#NPP)
1060 * print #table_sv(#sv)
1070 * print #coming
1080 * print #raspisanie
1090 * print #pryem
1100 end-for
1110 End

Приложенные файлы

  • docx 18395295
    Размер файла: 14 kB Загрузок: 0

Добавить комментарий