Τώρα είναι Πέμ 28 Μαρ 2024 02:35 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Digital_Calculator
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 20 Δεκ 2007 05:34 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 20 Δεκ 2007 05:29 pm
Δημοσιεύσεις: 13
Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Digital_Calculator
! Τμήμα δηλώσεων
ΣΤΑΘΕΡΕΣ
  π=3.14
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: επιλογη,α,β
  ΠΡΑΓΜΑΤΙΚΕΣ: φ,rad,S,a,b
ΑΡΧΗ
  ΓΡΑΨΕ '                                             '
  ΓΡΑΨΕ '  Ν Ι Κ Ο Σ  Γ Ε Ω Ρ Γ Ι Τ Σ Ο Π Ο Υ Λ Ο Σ   '
  ΓΡΑΨΕ '          2 0 0 7- 2 0 0 8                   '
  ΓΡΑΨΕ '  Α΄ Γ Ε Ν.  Λ Υ Κ Ε Ι Ο   Σ Ι Ν Δ Ο Υ       '
  ΓΡΑΨΕ '                                             '
  ΓΡΑΨΕ '                                             '
  ΓΡΑΨΕ 'Το πρόγραμμά είναι ένα  DIGITAL CALCULATOR'
  ΓΡΑΨΕ ''
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|          C A L C U L A T O R         |'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|                                      |'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 7 *  * 8 *  * 9 *   * / *  *ΗΜ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 4 *  * 5 *  * 6 *   * * *  *ΣΥΝ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 1 *  * 2 *  * 3 *   * - *  *ΕΦ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 0 *  *+/-*  * , *   * + *  *ΛΟΓ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *MOD*  *DIV*  * = *   * ^ *  *Τ_Ρ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|______________________________________|'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    φ <-- 0
    rad <-- 0
    επιλογη <-- 0
    ΓΡΑΨΕ ''
    ΓΡΑΨΕ 'Τι θελεις να υπολογισω?'
    ΓΡΑΨΕ '1. ΗΜ'
    ΓΡΑΨΕ '2. ΣΥΝ'
    ΓΡΑΨΕ '3. ΕΦ'
    ΓΡΑΨΕ '4. ΠΡΟΣΘΕΣΗ'
    ΓΡΑΨΕ '5. ΑΦΑΙΡΕΣΗ'
    ΓΡΑΨΕ '6. ΔΙΑΙΡΕΣΗ'
    ΓΡΑΨΕ '7. ΠΟΛΑΠΛΑΣΙΑΣΜΟΣ'
    ΓΡΑΨΕ '8. ΤΕΤΡΑΓΩΝΙΚΗ ΡΙΖΑ'
    ΓΡΑΨΕ '9. MOD'
    ΓΡΑΨΕ '10.DIV'
    ΓΡΑΨΕ '11.LOG(ΛΟΓΑΡΙΘΜΟΣ)'
    ΓΡΑΨΕ '12.Χ^2(υψώση αριμθού(Χ) στο τετράγωνο)'
    ΓΡΑΨΕ '13.Χ^3(υψώση αριμθού(Χ) στο κύβο)'
    ΓΡΑΨΕ '14.Χ^Υ(υψώση αριμθού(Χ) στον αριθμό (Υ))'
    ΓΡΑΨΕ '15.Τιποτα'
    Γραψε_ 'ΓΡΑΨΕ ΤΟΝ ΑΡΙΘΜΟ ΠΟΥ ΒΡΙΣΚΕΤΑΙ ΜΠΡΟΣΤΑ ΑΠΟ THN ΕΠΙΛΟΓΗ ΣΟΥ'
    ΟΣΟ επιλογη>15 Η επιλογη<1 ΕΠΑΝΑΛΑΒΕ
      ΔΙΑΒΑΣΕ επιλογη
      ΑΝ  επιλογη>15 Η επιλογη<1 ΤΟΤΕ
        ΓΡΑΨΕ 'Λαθος επιλογη!'
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΕΠΙΛΕΞΕ επιλογη
      ΠΕΡΙΠΤΩΣΗ 1
        ΓΡΑΨΕ 'Εχεις επιλέξει υπολογισμό ΗΜ'
        ΓΡΑΨΕ 'Δωσε τις μοιρες'
        ΔΙΑΒΑΣΕ φ
        rad <-- φ*(π/180)
        ΓΡΑΨΕ 'Το ημιτονο της γωνιας',φ,'ειναι', ΗΜ(rad)
      ΠΕΡΙΠΤΩΣΗ 2
        ΓΡΑΨΕ 'Εχεις επιλέξει υπολογισμό ΣΥΝ'
        ΓΡΑΨΕ 'Δωσε τις μοιρες'
        ΔΙΑΒΑΣΕ φ
        rad <-- φ*(π/180)
        ΓΡΑΨΕ 'Το συνημιτονο της γωνιας',φ,'ειναι', ΣΥΝ(rad)
      ΠΕΡΙΠΤΩΣΗ 3
        ΓΡΑΨΕ 'Εχεις επιλέξει υπολογισμό ΕΦ'
        ΓΡΑΨΕ 'Δωσε τις μοιρες'
        ΔΙΑΒΑΣΕ φ
        ΑΝ (Α_Μ(φ)-90) MOD  180  = 0 ΤΟΤΕ
          ΓΡΑΨΕ 'Λαθος μοιρες'
        ΑΛΛΙΩΣ
          rad <-- φ*(π/180)
          ΓΡΑΨΕ 'Η εφαπτομενη της γωνιας',φ,'ειναι', ΕΦ(rad)
        ΤΕΛΟΣ_ΑΝ
      ΠΕΡΙΠΤΩΣΗ 4
        ΓΡΑΨΕ 'Εχεις επιλέξει ΠΡΟΣΘΕΣΗ'
        ΓΡΑΨΕ_'Δώσε τον πρώτο προσθεταίο:'
        ΔΙΑΒΑΣΕ a
        ΓΡΑΨΕ_'Δώσε τον δευτερο προσθεταίο:'
        ΔΙΑΒΑΣΕ b
        S <-- a+b
        ΓΡΑΨΕ 'Το άθροισμα τους είναι:',S
      ΠΕΡΙΠΤΩΣΗ 5
        ΓΡΑΨΕ 'Εχεις επιλέξει ΑΦΑΙΡΕΣΗ'
        ΓΡΑΨΕ_'Δώσε τον πρώτο αριθμό:'
        ΔΙΑΒΑΣΕ a
        ΓΡΑΨΕ_'Δώσε τον δευτερο αριθμό:'
        ΔΙΑΒΑΣΕ b
        S <-- a-b
        ΓΡΑΨΕ 'Η διαφορά τους είναι:',S
      ΠΕΡΙΠΤΩΣΗ 6
        ΓΡΑΨΕ 'Εχεις επιλέξει ΔΙΑΙΡΕΣΗ'
        ΓΡΑΨΕ_'Δώσε τον πρώτο αριθμό:'
        ΔΙΑΒΑΣΕ a
        ΓΡΑΨΕ_'Δώσε τον δευτερο αριθμό:'
        ΔΙΑΒΑΣΕ b
        S <-- a/b
        ΓΡΑΨΕ 'Το Πηλίκο τους είναι:',S
      ΠΕΡΙΠΤΩΣΗ 7
        ΓΡΑΨΕ 'Εχεις επιλέξει ΠΟΛΑΠΛΑΣΙΑΜΟΣ'
        ΓΡΑΨΕ_'Δώσε τον πρώτο αριθμό:'
        ΔΙΑΒΑΣΕ a
        ΓΡΑΨΕ_'Δώσε τον δευτερο αριθμό:'
        ΔΙΑΒΑΣΕ b
        S <-- a*b
        ΓΡΑΨΕ 'Το γινόμενό τους είναι:',S
      ΠΕΡΙΠΤΩΣΗ 8
        ΓΡΑΨΕ 'Εχεις επιλέξει υπολογισμό ΤΕΤΡΑΓΩΝΙΚΗΣ ΡΙΖΑΣ'
        ΓΡΑΨΕ_'Δώσε τον αριθμό:'
        ΔΙΑΒΑΣΕ a
        S <-- Τ_Ρ(a)
        ΓΡΑΨΕ 'Η τετραγωνική ρίζα του είναι:',S
      ΠΕΡΙΠΤΩΣΗ 9
        ΓΡΑΨΕ 'Εχεις επιλέξει MOD'
        ΓΡΑΨΕ_'Δώσε τον πρώτο ακεράιο αριθμό:'
        ΔΙΑΒΑΣΕ α
        ΓΡΑΨΕ_'Δώσε τον δευτερο ακέραιο αριθμό:'
        ΔΙΑΒΑΣΕ β
        S <-- α MOD β
        ΓΡΑΨΕ 'Το ακέραιο υπόπολοιπο τους είναι:',S
      ΠΕΡΙΠΤΩΣΗ 10
        ΓΡΑΨΕ 'Εχεις επιλέξει DIV'
        ΓΡΑΨΕ_'Δώσε τον πρώτο ακέραιο αριθμό:'
        ΔΙΑΒΑΣΕ α
        ΓΡΑΨΕ_'Δώσε τον δευτερο ακέραιο αριθμό:'
        ΔΙΑΒΑΣΕ β
        S <-- α DIV β
        ΓΡΑΨΕ 'Το ακέραιο πηλίκο τους είναι:',S
      ΠΕΡΙΠΤΩΣΗ 11
        ΓΡΑΨΕ 'Έχεις επιλέξει LOG(ΛΟΓΑΡΙΘΜΟΣ)'
        ΓΡΑΨΕ_'Δώσε τον αριθμό:'
        ΔΙΑΒΑΣΕ a
        S <-- λογ(a)
        ΓΡΑΨΕ 'Ο λογάριθμός του είναι:',S
      ΠΕΡΙΠΤΩΣΗ 12
        ΓΡΑΨΕ 'Χ^2(υψώση αριμθού(Χ) στο τετράγωνο)'
        ΓΡΑΨΕ_'Δώσε τον αριθμό X='
        ΔΙΑΒΑΣΕ a
        S <-- a^2
        ΓΡΑΨΕ 'Ο τετράγωνο του είναι:',S
      ΠΕΡΙΠΤΩΣΗ 13
        ΓΡΑΨΕ 'Χ^3(υψώση αριμθού(Χ) στο κύβο)'
        ΓΡΑΨΕ_'Δώσε τον αριθμό:'
        ΔΙΑΒΑΣΕ a
        S <-- a^3
        ΓΡΑΨΕ 'Ο κύβος του είναι:',S
      ΠΕΡΙΠΤΩΣΗ 14
        ΓΡΑΨΕ 'Χ^Υ(υψώση αριμθού(Χ) στον αριθμό (Υ))'
        ΓΡΑΨΕ_'Δώσε τον αριθμό Χ='
        ΔΙΑΒΑΣΕ a
        ΓΡΑΨΕ_'Δώσε τον αριθμό Y='
        ΔΙΑΒΑΣΕ b
        S <-- a^b
        ΓΡΑΨΕ 'Ο',a,'υψωμένος εις την',b,'είναι:',S
    ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
    ΓΡΑΨΕ''
  ΜΕΧΡΙΣ_ΟΤΟΥ (επιλογη=15)
  ΓΡΑΨΕ '      ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ          '
  ΓΡΑΨΕ '                                       '
  ΓΡΑΨΕ '|','-------------------------------','|'
  ΓΡΑΨΕ '|','  Made By "ProskoposEthnoy$"   ','|'
  ΓΡΑΨΕ '|','Email:proskoposethnoys@yahoo.gr','|'
  ΓΡΑΨΕ '|','-------------------------------','|'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 9 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
Προβολές: