¿Necesito ayuda en analizar el siguiente programa de COBOL y transcribirlo el código a C++ y Visual Basic.?

$ SET SOURCEFORMAT"FREE"

IDENTIFICATION DIVISION.

PROGRAM-ID. GettingStarted.

AUTHOR. Michael Coughlan.

* This program should accept two numbers from the user, multiply them together

* and then display the result. Unfortunately it does not work correctly.

* Re-write the program so that it prompts the user for input and displays

* the correct result.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 Num1 PIC 9 VALUE ZEROS.

01 Num2 PIC 9 VALUE ZEROS.

01 Result PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.

Calc-Result.

ACCEPT Num1.

MULTIPLY Num1 BY Num2 GIVING Result.

ACCEPT Num2.

DISPLAY "Result is = ", Result.

STOP RUN.

3 respuestas

Calificación
  • Anónimo
    hace 1 década
    Respuesta preferida

    Creo que el programa consiste en la multiplicacion de 2 numeros:

    c++

    #include <iostream>

    using namespace std;

    int main()

    {

    int Num1, Num2, Result;

    cout << "Introduce dos numeros: ";

    cin >> Num1 >> Num2;

    Result = Num1*Num2;

    cout << "Result is = " << Result;

    return 0;

    }

    vb

    dim Num1 as integer, Num2 as integer, Result as integer

    Num1 = val(inputbox("Numero 1: "))

    Num2 = val(inputbox("Numero 2: "))

    Result = Num1 + Num2

    msgbox Result

    Es correcto lo que dices salvador G pero lee los comentarios del programa

  • No lee dos numero y los multiplica, si te fijas bien primero lee un numero y lo guarda en la variable Num1, después lo multiplica por la variable Num2 y el resultado lo guarda en la variable Result, después lee un número y lo guarda en la variable Num2 y finalmente muestra el resultado.

    En el working section declaras las variables pic 9 son numericos y son inicializados en cero.

    #include <iostream>

    using namespace std;

    void Calc_Result()

    {

    int Num1, Num2, Result;

    Num1 = Num2 = Result = 0;

    cout << "Introduce un número: ";

    cin >> Num1;

    Result = Num1*Num2;

    cout << "Introduce un número: ";

    cin >> Num2;

    cout << "Result is = " << Result;

    }

    int main()

    {

    Calc_Result();

    return 0;

    }

    Fuente(s): /*salvadorG*/
  • BaxZ
    Lv 6
    hace 1 década

    Wow, todavia existe COBOL????? ... hace como 15 años dejaron de usarlo, NO ?.

¿Aún tienes preguntas? Pregunta ahora para obtener respuestas.