1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα Program " και " Microsoft Visual Studio 2010 " για να ανοίξετε την ολοκληρωμένη ανάπτυξη περιβάλλοντος. Κάντε κλικ στο κουμπί " Νέα " και " Project" για να εισάγετε το νέο παράθυρο του έργου . Κάντε κλικ στο " COBOL " και " Native. " Επιλογή "Console Application ", όπως το είδος του έργου . Πληκτρολογήστε ένα όνομα για το έργο . Αφήστε την προεπιλεγμένη θέση και το όνομα λύση . Κάντε κλικ στο " OK". 2
Κάντε κλικ στο " Program1.cbl " για να εισάγετε τον κωδικό interface . Ο παρακάτω κώδικας έχει ήδη προστεθεί από τον IDE : 000100 ΠΡΟΣΔΙΟΡΙΣΜΟΣ DIVISION.000200 ΠΡΟΓΡΑΜΜΑ -ID . Αριθμός Calculation.There είναι τέσσερις διαιρέσεις σε κάθε πρόγραμμα COBOL : ΑΝΑΓΝΩΡΙΣΗ DIVISION , ΠΕΡΙΒΑΛΛΟΝ DIVISION , DATA DIVISION και διαδικασία DIVISION . ΑΝΑΓΝΩΡΙΣΗ DIVISION περιέχει τις πληροφορίες για την αναγνώριση του προγράμματος . ΠΡΟΓΡΑΜΜΑ -ID είναι υποχρεωτική , ενώ το υπόλοιπο των επικεφαλίδων είναι προαιρετικά
εικόνων 3
Δημιουργήστε το DIVISION DATA : . DATA DIVISION.000400 ΕΡΓΑΣΙΑΣ - ΑΠΟΘΗΚΕΥΣΗ SECTION.000500 01 WS-FIRST-N UMBER PIC 9 ( 3 ) 0,000600 01 WS-SECOND- ΑΡΙΘΜΟΣ PIC 9 ( 3 ) 0,000700 01 WS-TOTAL PIC ZZZ9.000800 * Όλα τα στοιχεία που χρησιμοποιούνται στο πρόγραμμα θα πρέπει να καθορίζεται στο τμήμα δεδομένων . Το τμήμα αυτό περιλαμβάνει ΑΡΧΕΙΟ ΤΜΗΜΑ , ΕΡΓΑΣΙΑΣ - ΑΠΟΘΗΚΕΥΣΗ και LINKAGE ΤΜΗΜΑ . Η εν λόγω κώδικα ορίζει τρεις μεταβλητές αριθμό : . Πρώτος αριθμός , το δεύτερο αριθμό και το συνολικό
Η 4
Δημιουργήστε το ΔΙΑΔΙΚΑΣΙΑ DIVISION : 000900 ΔΙΑΔΙΚΑΣΙΑ DIVISION.001000 0000 - MAINLINE.001100 DISPLAY ' εισάγετε έναν αριθμό : « 0,001200 ACCEPT WS -FIRST - NUMBER.001300 * 001.400 DISPLAY ' έναν άλλο αριθμό : « 0,001500 ACCEPT WS - ΔΕΥΤΕΡΗ - NUMBER.001600 * 001.700 COMPUTE WS - ΣΥΝΟΛΟ = WS -FIRST - ΑΡΙΘΜΟΣ + WS - ΔΕΥΤΕΡΗ - NUMBER.001800 DISPLAY' ΤΟ ΣΥΝΟΛΟ IS : ' , WS - TOTAL.001900 STOP run.The ΔΙΑΔΙΚΑΣΙΑ DIVISION υλοποιεί τη λογική του προγράμματος . Στη διαδικασία αυτή, το πρόγραμμα θα λάβουν δύο αριθμούς εισόδου από τους χρήστες και να υπολογίσει το σύνολο και να το εμφανίσετε .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα