Реферат: Курсовик по FoxPro

?'Товары из России (цикл SCAN) :'

SCAN FOR supplier='Россия'

* Выводим наименование, цену и количество товара

? name_unit+' '+STR(price_unit)+' '+STR(amount)

ENDSCAN

* С помощью WHILE находим общую цену товаров, поступивших

* в период с 15.01.2001 по 15.03.2001

* _SUM - переменная суммирования

_SUM=0

* Находим первую запись

LOCATE FOR date_recep>={^2001/01/15} .AND. date_recep<={^2001/03/15}

IF FOUND()

* Если нашли - суммируем

_SUM=_SUM+NTOM(price_unit)*amount

ENDIF

* Продолжаем поиск

DO WHILE .NOT. EOF()

CONTINUE

IF FOUND()

_SUM=_SUM+NTOM(price_unit)*amount

ENDIF

ENDDO

?'Общая стоимость искомых товаров равна (цикл WHILE) :'+STR(_SUM)

* Вычисляем то же самое с помощью SCAN-цикла

_SUM=0

SCAN FOR date_recep>={^2001/01/15} .AND. date_recep<={^2001/03/15}

_SUM=_SUM+NTOM(price_unit)*amount

ENDSCAN

?'Общая стоимость искомых товаров равна (цикл SCAN) :'+STR(_SUM)