fork download 
  1. ROTINA_TABELA_MULTIPLICAR
  2. 	NUMERO-LINHA	=1
  3. 	LINHA-NUMERO(1)	=1
  4. 	EXECUTAR PROC-LINHA ATE NUMERO-LINHA=10
  5. 	IMPRIMIR LINHA-NUMERO
  6.  
  7. PROC-LINHA
  8. 	NUMERO-LINHA	=NUMERO-LINHA+1
  9. 	NUMERO-COLUNA	=0
  10. 	IMPRIMIR LINHA-NUMERO
  11. 	EXECUTAR PROC-NUMERO ATE NUMERO-LINHA	=NUMERO-COLUNA
  12.  
  13. PROC-NUMERO
  14. 	NUMERO-COLUNA = NUMERO-COLUNA+1
  15. 	LINHA-NUMERO (NUMERO-COLUNA)=NUMERO-LINHA * NUMERO-COLUNA
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cob:1: Warning: Invalid indicator '_' at column 7
prog.cob:5: Warning: Invalid indicator 'I' at column 7
prog.cob:11: Warning: Invalid indicator 'U' at column 7
prog.cob:14: Warning: File not terminated by a newline
prog.cob:1: Error: syntax error, unexpected $undefined, expecting PROGRAM_ID
stdout 
Standard output is empty
https://ideone.com/R55Iv
language:
Cobol (gnucobol 2.2.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!