PC Toledo

Código: Selecionar todos

priv menor:=1000000, nova, parou:=.f.
* Define MENOR como uma temperatura absurda, bem alta.
* No primeiro MIN(), ela vai ser substituida pela temperatura real lida, que vai ser menor
do whil .t.
  pega_nova_temp()   
  if parou=.t.
     exit
  endi
  menor:=min(menor,nova)
endd
if menor=1000000
  ? "Não foram lidas temperaturas"
else
  ? menor // menor temperatura dentre todas as lidas
endi


function pega_nova_temp
if ... // sistema externo parou de informar temperatura
  parou:=.t.
  retu 
endi
nova:= ?? // nova temperatura informada pelo sistema externo

Código: Selecionar todos

// 1.pegue a primeira temperatura registrada
// 2.anote esta temperatura como sendo a menor de todas as temperaturas
nMenor := base->Temperatura 

// 3. Enquanto ainda houver registros de temperatura, execute rapidamente
// e em ordem todas as instruções numeradas abaixo
// ----------> "execute rapidamente" é esquisito
DO WHILE .NOT. Eof() 
// 3.1 pegue a próxima temperatura
// 3.2 se essa temperatura for menor que aquela registrada no momento como a menor, então
// 3.2.1 jogue fora a temperatura anterior registrada
// e anote a nova temperatura como sendo a menor de todas
   nMenor := Min( nMenor, base->Temperatura )
// continuação do item 3
   SKIP
ENDDO
// 4. Exiba a temperatura que está anotada como a menor
// Esta é a temperatura que estavamos procurando
? nMenor