Простая программа для расчета площади треугольника - PullRequest
Новая
       7

Простая программа для расчета площади треугольника

1 голос
/ 25 июня 2011

Интересно, что не так с моим кодом, потому что, когда я компилирую его, ошибка в следующих строках:

hello.cob: в абзаце 'DADOS':
hello.cob: 25: ошибка: синтаксическая ошибка, неожиданная '(', ожидаемая WORD
hello.cob: в абзаце 'FIM':
hello.cob: 31: ошибка: синтаксическая ошибка, неожиданная '('

Вот источник моей программы: 

   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(06) 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(10, 51) ALTURA.
    ACCEPT(12, 51) BASE.
CALCULO.
    MULTIPLY BASE BY ALTURA GIVING HAREA.
    DIVIDE 2 INTO HAREA.
FIM.    
    DISPLAY(14, 51) HAREA.
    DISPLAY(24, 31) "FIM DE PROGRAMA".
    STOP RUN.

Спасибо за помощь.

Я поместил эти 2 строки в коде: 

   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(06) 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.
       ACCEPT ESPERA AT LINE 0 COLUMN 0.
       DISPLAY "FIM DE PROGRAMA" LINE 24 COLUMN 31.
       STOP RUN.

Добавлено 

77  ESPERA  PIC 9(01) VALUE ZEROS.

и 

ACCEPT ESPERA AT LINE 0 COLUMN 0.

, но результат равен 000000

Ответы [ 2 ]

2 голосов
/ 30 июня 2011

Причина, по которой ваш результат «00000», заключается в том, что вы не проверяете ввод.

Поскольку ваша программа стоит, пользователь ДОЛЖЕН ввести четыре цифры для каждого значения, если введены только три цифры, расчет не удастся.

2 голосов
/ 26 июня 2011

Я получил программу для работы. Почти. Я не знаю, как держать экран включенным, когда программа завершается, поэтому результат никогда не виден, но, по крайней мере, можно запустить программу и ввести первые два числа: 

       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(06) VALUE ZEROS.
       77  DUMMY  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 DUMMY AT LINE 1 COLUMN 1.
           STOP RUN.

Гораздо чище, лучшая версия: 

       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(07) VALUE ZEROS.
   77  AGAIN   PIC X VALUE 'N'.

   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 10 COLUMN 50 PIC ZZZ9 Using ALTURA.
   02  LINE 12 COLUMN 21 VALUE "ENTRE COM O VALOR DA BASE...[____]".
   02  LINE 12 COLUMN 50 PIC ZZZ9 Using BASE.
   02  LINE 14 COLUMN 21 VALUE "            VALOR DA AREA..".
   02  LINE 14 COLUMN 48 PIC ZZZZZZ9 From HAREA.
   02  LINE 16 COLUMN 21 VALUE "                    FINIS...[N]".
   02  LINE 16 COLUMN 50 PIC X Using AGAIN.

   PROCEDURE DIVISION.
   INICIO.
       DISPLAY TELA.
       PERFORM SCREENS UNTIL AGAIN  = 'Y'
       STOP RUN.
   SCREENS.
       ACCEPT TELA.
       MULTIPLY BASE BY ALTURA GIVING HAREA.
       DIVIDE 2 INTO HAREA.
       DISPLAY TELA.
...