Реферат: Алгоритмизация и программирование процессов на Fox

Clear

@ 4,18 to 4,62 Color u/w*

@ 3,18 Say 'Процесс печати сведений о заданной продукции' Color u/w*

@ 12,0

Accept ' Введите имя файла данных: ' to NameFd

@ 12,0 Clear

@ 12,0

Accept ' Введите вид продукции: ' to TypeProd

If Len(NameFd) >0 And Len(TypeProd) > 0 && Если имя файла или

&& вид продукции не ввели,

&& то делать нечего

* Изменение заголовка

@ 3,0 Clear

Zag='Сведения о продукции: ' + TypeProd

LenZag=Int(Len(Zag))

@ 4,Int((80-lenZag)/2) to 4,Int((80-lenZag)/2)+LenZag Color u/w*

@ 3,Int((80-LenZag)/2) Say Zag Color u/w*

Use &NameFd

* Формирование шапки

L='+-----------------+---------------+--------+-----------+'

@ 7,12 Say L

@ 8,12 Say '| Код предприятия | Объем выпуска | Цена | Стоимость |'

@ 9,12 Say L

Row=10 && Текущий номер строки для вывода данных

Do While .Not.EOF()

If VidProd=TypeProd

* Формирование строки

@ Row,12 Say '|'

@ Row,20 Say KodOrg