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

@ Row,36 Say Volum Picture '# ###'

@ Row,46 Say '|'

@ Row,48 Say Price Picture '###.##'

@ Row,55 Say '|'

@ Row,57 Say Volum*Price Picture '## ###.##'

@ Row,67 Say '|'

Row=Row+1

EndIf

Skip

EndDo

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

@ Row,12 Say L

Row=Row+1

* Расчет суммарной стоимости

Sum Volum*Price For VidProd=TypeProd to AllPrice

* Расчет среднего выпуска

Average Volum For VidProd=TypeProd to AvVol

@ Row,29 Say 'Общая суммарная стоимость:'

@ Row,56 Say AllPrice Picture '### ###.##'

@ Row+1,21 Say 'Средний выпуск одним предприятием:'

@ Row+1,58 Say AvVol Picture '# ###'

Close DataBases && Закрытие ФД

EndIf

* Конец работы

@ 24,0

Wait 'Для возврата в меню нажмите любую клавишу ...'

@ 24,0 Clear

Return

1.10. Печать сведений о суммарной стоимости и суммарном выпуске каждой продукции.

* Командный файл Zad2 - печать сведений об объемах и стоимости продукции