Autor Tema: por favor me ayuda a corregir este codigo que diseñé...

0 Usuarios y 1 Visitante están viendo este tema.

11 Noviembre, 2008, 05:24 am
Leído 981 veces

canel2007

  • Nuevo Usuario
  • Mensajes: 2
  • Karma: +0/-0
  • Sexo: Masculino
Alguien me puede ayudar a corregir bien este codigo de modo que sea recursivo a nivel de hardware:

Inicio
Abrir archivos
Leer el primer nombreperiodico
DO WHILE hay mas nombre(s).periodici
PRINT fecha
PRINT NOMBRE.PERIODICO
Leer el primer registro(s).subcriptor
DO WHILE hay mas resgistros(s).suscriptor
IF transaccion= modificar.renovacion
THEN Duracion.suscrip=duracion.sucrip+Numero....
ELSE IF transacion=nueva
THEN PERFORM agregar.suscriptor
THEN duracion.suscrip=numero.semanas
ELSE IF transaccion=modificar.direccion
THEN PERFORM cambiar.direccion
ELSE IF transacion=eliminar.suscriptor
THEN PERFORM preparar.reembolsos.actualizar
PERFOM imprimir.reembolso.cheque
Duracion.suscrip=0
ELSE PERFOM error.en.transaccion
END IF
PERFOM preparar.suscriptor.lista
Leer otro registro.suscriptor
END DO
PERFOM imprimir.Suscriptor.lista
Obtener siguiente nombre.periodico
END DO
END
Cerrar archivos