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!😂