Ver Mensaje Individual
  #3
Antiguo 12 de abril de 2023, 23:05
JCantero
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros 
Última Actividad 02.09.2026 00:15
Posts Posts: 442
Likes enviados Enviados: 167
Likes recibidos Recibidos: 269

@dariodr, define una variable en working

Código COBOL:
  1.        01 venta-menor    pic 9(6)v99 value 0.


y a la vez que calculas suma vas metiendo la venta menor y luego la displayas


Código COBOL:
  1.        calcular-promedio.
  2.            compute suma = suma + monto-venta.
  3.            if venta-menor = 0 then
  4.                  move monto-venta to venta-menor
  5.            end-if.
  6.            if venta-menor > monto-venta then
  7.                  move monto-venta to venta-menor
  8.            end-if.
  9.  
  10.  
  11.        mostrar-promedio.
  12.            compute promedio = suma / 3.
  13.            display "Promedio: " line 10 col 30.
  14.            move promedio to promedio-f.
  15.            display promedio-f line 10 col 43.
  16.  
  17.            display "Venta menor: " line 11 col 30.
  18.            move venta-menor to promedio-f.
  19.            display promedio-f line 11 col 43.
JCantero is offline   Responder Con Cita