АСУ на Ижевском радиозаводе
14. Запомнить значение поля "номер ДСЕ" заказа Z в переменную D.
15. Поиск D в файле KPN.DBF. Если запись найдена, то переход к пункту 16, иначе - к пункту 18.
16. Присвоить:
T := OPER, где Т - рабочая переменная для определения максимального опережения; OPER - опережение, соответствующее полю OPER в файле PRIM для данной ДСЕ.
17. Если T > MAX , где MAX - максимальное опережение, то запомнить все поля данной ДСЕ в соответствующие переменные.
18. Читать следующую запись из файла PRIM. Переход к пункту 13.
19. Запись полученной записи с максимальным опережением в выходной файл RESULT.DBF.
20. Вернуться в файле PRIM на одну запись назад. Переход к пункту 10.
21. Если не начало файла PRIM, вернуться в нём на одну запись назад. Переход к пункту 10.
22. Выдать сообщение о количестве записей в выходном файле RESULT.DBF. Переход к пункту 2.
23. Выдать на экран дисплея файл RESULT.DBF, сгенерированный в ходе работы программы, в виде таблицы. Выход из режима просмотра - нажатие клавиши Escape, при этом переход к пункту 2.
24. Печать машинограммы, сгенерированной на основе выходного файла RESULT.DBF Переход к пункту 2.
25. Конец.
3.8 Требования к программе, реализующей алгоритм
Текст программы рекомендуется писать на языке программирования FOXPRO, который широко используется в сети ЛВС ОАО "Ижевский радиозавод". Программа должна быть ориентирована на оператора с минимальными знаниями, то есть на пользователя-непрофессионала.