El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
HOME Els meus cursos Finalitzats
◄ Anterior
◄

Operacions Aritmètiques

Següent ►
►

En aquest tema, aprendrem com realitzar operacions aritmètiques bàsiques en COBOL. Les operacions aritmètiques són fonamentals en qualsevol llenguatge de programació, i COBOL no és una excepció. COBOL proporciona una sèrie d'instruccions per dur a terme aquestes operacions de manera eficient.

Conceptes Clau

  1. Operadors Aritmètics Bàsics:

    • ADD: Suma dos o més valors.
    • SUBTRACT: Resta un valor d'un altre.
    • MULTIPLY: Multiplica dos valors.
    • DIVIDE: Divideix un valor per un altre.
    • COMPUTE: Realitza operacions aritmètiques complexes.

  2. Variables i Constants:

    • Les operacions aritmètiques es realitzen sobre variables i constants definides en la secció de dades.

  3. Sintaxi de les Instruccions Aritmètiques:

    • Cada instrucció té una sintaxi específica que cal seguir per evitar errors.

Exemples Pràctics

  1. Instrucció ADD

L'instrucció ADD s'utilitza per sumar valors. La sintaxi bàsica és:

ADD valor1 TO valor2 GIVING resultat.

Exemple:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 10.
01 valor2 PIC 9(2) VALUE 20.
01 resultat PIC 9(3).

PROCEDURE DIVISION.
    ADD valor1 TO valor2 GIVING resultat.
    DISPLAY "El resultat de la suma és: " resultat.
    STOP RUN.

  1. Instrucció SUBTRACT

L'instrucció SUBTRACT s'utilitza per restar un valor d'un altre. La sintaxi bàsica és:

SUBTRACT valor1 FROM valor2 GIVING resultat.

Exemple:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 10.
01 valor2 PIC 9(2) VALUE 20.
01 resultat PIC 9(3).

PROCEDURE DIVISION.
    SUBTRACT valor1 FROM valor2 GIVING resultat.
    DISPLAY "El resultat de la resta és: " resultat.
    STOP RUN.

  1. Instrucció MULTIPLY

L'instrucció MULTIPLY s'utilitza per multiplicar dos valors. La sintaxi bàsica és:

MULTIPLY valor1 BY valor2 GIVING resultat.

Exemple:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 10.
01 valor2 PIC 9(2) VALUE 20.
01 resultat PIC 9(4).

PROCEDURE DIVISION.
    MULTIPLY valor1 BY valor2 GIVING resultat.
    DISPLAY "El resultat de la multiplicació és: " resultat.
    STOP RUN.

  1. Instrucció DIVIDE

L'instrucció DIVIDE s'utilitza per dividir un valor per un altre. La sintaxi bàsica és:

DIVIDE valor1 INTO valor2 GIVING resultat.

Exemple:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 10.
01 valor2 PIC 9(2) VALUE 20.
01 resultat PIC 9(2).

PROCEDURE DIVISION.
    DIVIDE valor2 BY valor1 GIVING resultat.
    DISPLAY "El resultat de la divisió és: " resultat.
    STOP RUN.

  1. Instrucció COMPUTE

L'instrucció COMPUTE s'utilitza per realitzar operacions aritmètiques complexes. La sintaxi bàsica és:

COMPUTE resultat = expressió aritmètica.

Exemple:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 10.
01 valor2 PIC 9(2) VALUE 20.
01 resultat PIC 9(4).

PROCEDURE DIVISION.
    COMPUTE resultat = (valor1 + valor2) * 2.
    DISPLAY "El resultat de l'operació complexa és: " resultat.
    STOP RUN.

Exercicis Pràctics

Exercici 1

Escriu un programa COBOL que sumi tres valors i mostri el resultat.

Solució:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 10.
01 valor2 PIC 9(2) VALUE 20.
01 valor3 PIC 9(2) VALUE 30.
01 resultat PIC 9(3).

PROCEDURE DIVISION.
    ADD valor1 TO valor2 GIVING resultat.
    ADD valor3 TO resultat GIVING resultat.
    DISPLAY "El resultat de la suma és: " resultat.
    STOP RUN.

Exercici 2

Escriu un programa COBOL que resti dos valors i mostri el resultat.

Solució:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 50.
01 valor2 PIC 9(2) VALUE 20.
01 resultat PIC 9(2).

PROCEDURE DIVISION.
    SUBTRACT valor2 FROM valor1 GIVING resultat.
    DISPLAY "El resultat de la resta és: " resultat.
    STOP RUN.

Exercici 3

Escriu un programa COBOL que multipliqui dos valors i mostri el resultat.

Solució:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 5.
01 valor2 PIC 9(2) VALUE 4.
01 resultat PIC 9(3).

PROCEDURE DIVISION.
    MULTIPLY valor1 BY valor2 GIVING resultat.
    DISPLAY "El resultat de la multiplicació és: " resultat.
    STOP RUN.

Exercici 4

Escriu un programa COBOL que divideixi dos valors i mostri el resultat.

Solució:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 valor1 PIC 9(2) VALUE 100.
01 valor2 PIC 9(2) VALUE 4.
01 resultat PIC 9(2).

PROCEDURE DIVISION.
    DIVIDE valor1 BY valor2 GIVING resultat.
    DISPLAY "El resultat de la divisió és: " resultat.
    STOP RUN.

Resum

En aquesta secció, hem après a utilitzar les instruccions aritmètiques bàsiques en COBOL: ADD, SUBTRACT, MULTIPLY, DIVIDE i COMPUTE. Hem vist exemples pràctics de cada instrucció i hem practicat amb exercicis per reforçar els conceptes apresos. Aquestes operacions són fonamentals per a qualsevol programa COBOL i seran la base per a operacions més complexes en futurs mòduls.

◄ Anterior
◄
Següent ►
►
El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
© Copyright 2024. Tots els drets reservats