Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

If AllPrice > LastAP

If AllPrice < MinAP Or MinAP=0

MinAP=AllPrice

MinVP=VP

EndIf

EndIf

If RNom < RecCount()

GoTo RNom+1 && Переход на следующую запись

EndIf

EndDo

* Формирование строки таблицы

@ 9+I,17 Say '|'

@ 9+I,19 Say MinVP

@ 9+I,39 Say '|'

@ 9+I,46 Say MinAP Picture '### ###.##'

@ 9+I,61 Say '|'

LastAP=MinAP && Предыдущее минимальное значение

&& (нижняя граница минимальных значений)

MinAP=0

GoTo Top && Возобновить просмотр с первой строки

Next

* Формирование итоговой части таблицы

@ 15,17 Say L

Close DataBases && Закрытие ФД
EndIf
* Конец работы
@ 24,0
Wait 'Для возврата в меню нажмите любую клавишу ...'
@ 24,0 Clear
Return

Результаты решений

Рекомендуем скачать другие рефераты по теме: инновационный менеджмент, курсовая работа.





Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата