Gioco di probabilità in COBOL, si può fare?

Samueleex · 21 dic 2022

COBOL è un linguaggio sviluppato nel 1959, che viene utilizzato principalmente per la scrittura di programmi per il calcolo e l'elaborazione di dati in ambiente aziendale. COBOL è stato uno dei primi linguaggi di programmazione ad essere ampiamente utilizzato in tutto il mondo e ha ancora una base di utenti attiva oggi, nonostante sia stato superato da molti altri linguaggi più moderni. COBOL è caratterizzato da una sintassi molto specifica e da una struttura gerarchica.
COBOL è stato progettato per l'elaborazione di dati in ambiente aziendale e quindi include molte istruzioni per l'elaborazione di file, il calcolo di totali e formattazione di report.

Questo codice genera un numero casuale compreso tra 1 e 100 e quindi chiede di indovinare il numero. Se l'utente indovina, il gioco termina e viene visualizzato il punteggio finale. Se non si indovina, viene visualizzato un messaggio di errore e il gioco continua finché l'utente non indovini correttamente.

IDENTIFICATION DIVISION.
PROGRAM-ID. GUESSING-GAME.

DATA DIVISION.
WORKING-STORAGE SECTION.
   01 RANDOM-NUMBER PIC 9(2) VALUE ZEROS.
   01 USER-GUESS PIC 9(2) VALUE ZEROS.

PROCEDURE DIVISION.
   MAIN-LOGIC.
      DISPLAY "I'm thinking of a number between 1 and 100."
      DISPLAY "Can you guess what it is?"

COMPUTE RANDOM-NUMBER=FUNCTION RANDOM(1).
      ACCEPT USER-GUESS
      PERFORM UNTIL USER-GUESS = RANDOM-NUMBER
         IF USER-GUESS > RANDOM-NUMBER
            DISPLAY "Your guess is too high. Try again."
            ACCEPT USER-GUESS
         ELSE
            DISPLAY "Your guess is too low. Try again."
            ACCEPT USER-GUESS
         END-IF
      END-PERFORM

      DISPLAY "You guessed it! The number was " RANDOM-NUMBER "."

   STOP RUN.

Mi sembra giusto ringraziare @Giulio_M per l'idea, dato che gliel'ho gentilmente rubata e soprattutto per la correzione nella funzione random.😁
Vi consiglio anche la discussione COBOL - esempio ingegneria: irraggiamento termico sempre fatta da @Giulio_M !
Detto molto sinceramente COBOL fino ad un giorno fa non sapevo neanche cos'era dato che sono nato in un epoca completamente diversa ma sono riuscito comunque a masticare qualcosina, ora torno volentieri ad esercitarmi con Python!😂

Giulio_M · 21 dic 2022

Samueleex ahahah spettacolare davvero, complimenti!! 😀
Precisiamo una cosa, quando si parla di "alto livello" piuttosto che "basso livello", occorre precisare che in un dato periodo (anno) nasce un nuovo linguaggio con l'idea di essere "di alto livello". Negli anni successivi, un nuovo linguaggio si dimostra di livello ancora più alto in termini di astrazione, quindi il precedente si può definire di livello medio-basso.
Attualmente il COBOL è considerato di basso livello, poco sopra l'ASSEMBLY per capirci, anche la "macchinosità" delle operazioni (più che astrazione, stiamo dando istruzioni alla macchina, vedi banalmente STOP-RUN.), struttura del programma molto vincolata, si differenzia enormemente da linguaggi come C/C++ (oggi considerati di medio livello) oppure Python, sicuramente di alto livello.

Samueleex ora torno volentieri ad esercitarmi con Python!

Beh, direi proprio che è il caso ahah! Questi esempi, COBOL e Assembly, sono sicuramente più divertenti che funzionali. Comunque sempre una sfida! 😀

Fondatori