Bencz

Olá (:

Após escrever 2 programas em cobol, para testar a resposta das operações de soma e multiplcação, eu notei que tem algum erro muito tenso, não sei dizer onde é, se é no código, ou é coisa da compilção, bom, mas vamos la, o primeiro programa que eu escrevi, foi para calcular a area do triangulo:

       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      TRIANG.
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       77  BASE    PIC 9(04) VALUE ZEROS.
       77  ALTURA  PIC 9(04) VALUE ZEROS.
       77  HAREA   PIC 9(04) VALUE ZEROS.	
	77  ESPERA  PIC 9(01) VALUE ZEROS.

       SCREEN SECTION.
       01  TELA.
       02  BLANK SCREEN.
       02  LINE 04 COLUMN 21 VALUE "CALCULO DA AREA DE UM TRIANGULO".
       02  LINE 06 COLUMN 15 VALUE "AUTOR: Alexandre".
       02  LINE 10 COLUMN 21 VALUE "ENTRE COM O VALOR DA ALTURA... ".
       02  LINE 12 COLUMN 21 VALUE "ENTRE COM O VALOR DA BASE...   ".
       02  LINE 14 COLUMN 21 VALUE "ENTRE COM O VALOR DA AREA...   ".

       PROCEDURE DIVISION.
       INICIO.
           DISPLAY TELA.
       DADOS.
           ACCEPT ALTURA AT LINE 10 COLUMN 51.
           ACCEPT BASE AT LINE 12 COLUMN 51.
       CALCULO.
           MULTIPLY BASE BY ALTURA GIVING HAREA.
           DIVIDE 2 INTO HAREA.
       FIM.
           DISPLAY HAREA LINE 14 COLUMN 51.
           DISPLAY "FIM DE PROGRAMA" LINE 24 COLUMN 31.
	    ACCEPT ESPERA AT LINE 0 COLUMN 0.
           STOP RUN.

E o segundo, foi só para somar mesmo

	IDENTIFICATION DIVISION.
	PROGRAM-ID.	 TESTE.
	DATA 		 DIVISION.

	WORKING-STORAGE SECTION.
	77 A 	 PIC 9(02) VALUE ZEROS.
	77 B 	 PIC 9(02) VALUE ZEROS.
	77 RESP PIC 9(03) VALUE ZEROS.
	77 ESP  PIC 9(01) VALUE ZEROS.

	SCREEN SECTION.
	01 TELA.
	02 BLANK SCREEN.
	02 LINE 02 COLUMN 08 VALUE "ENTRE COM O VALOR DE A:".
	02 LINE 04 COLUMN 08 VALUE "ENTRE COM O VALOR DE B:".
	02 LINE 06 COLUMN 08 VALUE "RESPOSTA:".

	PROCEDURE DIVISION.
	INICIO.
		DISPLAY TELA.
	DADOS.
		ACCEPT A AT LINE 2 COLUMN 32.
		ACCEPT B AT LINE 4 COLUMN 32.
	CALCULA.
		COMPUTE RESP = (A+<img src='http://forum.wmonline.com.br/public/style_emoticons/default/cool.gif' class='bbc_emoticon' alt='B)' />.
	FIM.
		DISPLAY RESP LINE 6 COLUMN 18.
		ACCEPT ESP AT LINE 1 COLUMN 1.
		STOP RUN.

Bom, o erro é +/- assim, no programa para calular a area:

ENTRE COM O VALOR DA ALTURA...4

ENTRE COM O VALOR DA BASE... 5

ENTRE COM O VALOR DA AREA... 0000

E no programa se soma:

ENTRE COM O VALOR DE A: 5

ENTRE COM O VALOR DE B: 5

RESPOSTA: 004

Agradeço a ajuda, caso saiba onde está o problema.