Cobol - AYUDA COBOL!!!

 
Vista:

AYUDA COBOL!!!

Publicado por Cristian (2 intervenciones) el 21/02/2010 05:10:22
Hola tengo problemas con los vectores en cobol y la verdad no puedo resolver los siguientes problemas!!! alguien podra darme una mano ??? ya que estuve viendo en manuales pero no logro entender la logica de como usar los vectores en Cobol je... quiero aprender para entrar en una capacitacion! espero que me puedan ayudar!
(Estoy usando visual age en windows 7)
los enunciados son :

Problema #4
Codificar un programa que calcule el factorial de un número ingresado por el usuario y lo informe en
pantalla.
Problema #5
Realizar un programa que calcule el máximo de 20 números ingresados por el usuario.
Problema #6
Realizar un programa que calcule el máximo y el mínimo de 10 números ingresados por el usuario, y
obtenga el promedio.

espero su repuesta!!
desde ya muchas gracias! =)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder

RE:AYUDA COBOL!!!

Publicado por SuperIndio (138 intervenciones) el 22/02/2010 16:16:37
(4)###################################################
factorial = 1
PERFORM Calcula-Factorial.
..
Calcula-Factorial.
IF n > 1
COMPUTE factorial = factorial * n
SUBTRACT 1 FROM n
PERFORM Calcula-Factorial
END-IF.
(5)###################################################
MOVE LOW-VALUE TO nMayor.
PERFORM VARYING I FROM 1 BY 1 UNTIL I = 20
*>
*>
IF Vector(I) > nMayor
MOVE Vecor(I) TO nMayor
END-IF
*>
*>
END-PERFORM.
DISPLAY nMayor.
(6)###################################################

MOVE LOW-VALUE TO nMayor.
MOVE HIGH-VALUE TO nMenor.
PERFORM VARYING I FROM 1 BY 1 UNTIL I = 20
*>
*>
IF Vector(I) > nMayor
MOVE Vecor(I) TO nMayor
END-IF
IF Vector(I) < nMenor
MOVE Vecor(I) TO nMenor
END-IF
*>
*>
END-PERFORM.
DISPLAY nMayor.
DISPLAY nMenor.
(-)###################################################

ESPERO TE SIRVA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar