30 de mai de 2011

Desenvolvimento de Software 1, aula 21


Aula 21
7/10/2003

Exercícios

4.
use PRODUTOS
do while .not. Eof()

    if QTDATU <= 0
       ? CODBAR, DESPRO, QTDATU
    endif
    skip
enddo

5.


WITENS = 0

do while .not. Eof()

    if QTDATU > 0
       WITENS = WITENS + QTDATU
    endif
    skip
enddo

? WITENS

Nenhum comentário: