FILL AND DANCE 2
Материал из Фабиус wiki
Версия от 11:35, 10 апреля 2017; Hisava (обсуждение | вклад)
FILL_AND_DANCE_2 - это процедура из справочника R266
Заполнить документ AND за период
Текст программы
local ip, my, end_data
ip := InputPeriod( true ) if Empty( ip ) return endif my := StoD( ip[1] ) end_data := StoD( ip[2] ) + 1 while my <> end_data Fill_and_dance( my ) my := my + 1 end