Cobol - Obtener el resto

 
Vista:

Obtener el resto

Publicado por Sole (1 intervención) el 18/11/2001 17:50:36
Queria saber si existe alguna manera de calcular el resto de una division, facilmente o que no sea tan complicado.
Por favor, gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Obtener el resto

Publicado por Diego Romero (34 intervenciones) el 18/11/2001 21:22:16
Si, hay dos maneras de hacerlo, la primera es simple matematica. Para que una división de resto ambos operandos deben ser enteros.
77 dividendo pic 99.
77 divisor pic 99.
77 resto pic 99.
77 resultado pic 99.
procedure division.
...
compute resultado = dividendo / divisor.
compute resto = dividendo - (resultado * divisor).

pero COBOL ofrese una sentencia para simplificar esto:
DIVIDE divisor INTO dividendo GIVING resultado REMINDER resto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Obtener el resto

Publicado por ruben (5 intervenciones) el 20/11/2001 19:01:14
Diego no se si te habrás equivocado al escribirlo o si REMINDER tambien funciona (la verdad nunca lo he probado), pero yo utilizo la sentencia REMAINDER.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Obtener el resto

Publicado por Diego Romero (34 intervenciones) el 20/11/2001 20:59:19
Efectivamente, fue un error de tipeo, la palabra reservada es REMAINDER y no la gansada que puse yo :).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Obtener el resto

Publicado por Agustin Zabala (17 intervenciones) el 24/11/2001 16:47:01
tutu11:

Este es muy simple:

1 w-variables.
3 w-importe pic 9(16)v9(02).
3 w-fraccion pic 9(16)v9(02).
3 w-enteros pic 9(18).
3 w-resto pic 9(16)v9(02).

divide w-importe by w-fraccion
giving w-enteros
remainder w-resto
end-divide

if w-resto <> zero
*> HA QUEDADO EL RESTO en W-RESTO
end-if

Saludos
Agustin Zabala

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar