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

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: calculator
ΔημοσίευσηΔημοσιεύτηκε: Σάβ 21 Ιαν 2006 11:09 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 18 Ιαν 2006 08:37 pm
Δημοσιεύσεις: 2
Τοποθεσία: Katerini
Ευτυχώς τώρα θα μπορούμε να κάνουμε και πράξεις :lol:

Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ calculator
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Χ, Υ, ΑΠΟΤ
  ΧΑΡΑΚΤΗΡΕΣ: Π, ΕΡΩΤ, ΟΚ
ΑΡΧΗ
  ΕΡΩΤ <-- 'Ν'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
    ΓΡΑΨΕ 'Καλωσορίσατε στο calculator!'
    ΓΡΑΨΕ 'Αλλάξτε το πληκτρολόγιο σας σε ελληνικά, κεφάλαια'
    ΓΡΑΨΕ 'και γράψτε ΟΚ για να συνεχίσετε:'
    ΔΙΑΒΑΣΕ ΟΚ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΟΚ = 'ΟΚ'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
    ΚΑΛΕΣΕ CALC
    ΓΡΑΨΕ 'Πληκτρολογείστε τον πρώτο αριθμό:'
    ΔΙΑΒΑΣΕ Χ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      ΚΑΛΕΣΕ CALC
      ΓΡΑΨΕ 'Πληκτρολογείστε τη πράξη ("/","*","-","+","^","ΗΜ","ΣΥΝ","ΕΦ","ΛΟΓ","Τ_Ρ"):'
      ΔΙΑΒΑΣΕ Π
    ΜΕΧΡΙΣ_ΟΤΟΥ Π='/' Η Π='*' Η Π='-' Η Π='+' Η Π='^' Η Π='ΗΜ' Η Π='ΣΥΝ' Η Π='ΕΦ' Η Π='ΛΟΓ' Η Π='Τ_Ρ'
    ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
    ΚΑΛΕΣΕ CALC
    ΑΝ Π <> '/' ΚΑΙ Π <> '*' ΚΑΙ Π <> '-' ΚΑΙ Π <> '+' ΚΑΙ Π <> '^' ΤΟΤΕ
      ΑΝ Π = 'ΗΜ' Η Π = 'HM' Η Π = 'ημ' ΤΟΤΕ
        ΑΠΟΤ <-- ΗΜ(Χ)
      ΑΛΛΙΩΣ_ΑΝ Π = 'ΣΥΝ' ΤΟΤΕ
        ΑΠΟΤ <-- ΣΥΝ(Χ)
      ΑΛΛΙΩΣ_ΑΝ Π = 'ΕΦ' ΤΟΤΕ
        ΑΠΟΤ <-- ΕΦ(Χ)
      ΑΛΛΙΩΣ_ΑΝ Π = 'ΛΟΓ' ΤΟΤΕ
        ΑΠΟΤ <-- ΛΟΓ(Χ)
      ΑΛΛΙΩΣ_ΑΝ Π = 'Τ_Ρ' ΤΟΤΕ
        ΑΠΟΤ <-- Τ_Ρ(Χ)
      ΤΕΛΟΣ_ΑΝ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      ΚΑΛΕΣΕ CALC_1
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Πληκτρολογείστε τον δεύτερο αριθμό:'
      ΔΙΑΒΑΣΕ Υ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      ΚΑΛΕΣΕ CALC
      ΑΝ Π = '/' ΤΟΤΕ
        ΑΠΟΤ <-- Χ / Υ
      ΑΛΛΙΩΣ_ΑΝ Π = '*' ΤΟΤΕ
        ΑΠΟΤ <-- Χ * Υ
      ΑΛΛΙΩΣ_ΑΝ Π = '-' ΤΟΤΕ
        ΑΠΟΤ <-- Χ - Υ
      ΑΛΛΙΩΣ_ΑΝ Π = '+' ΤΟΤΕ
        ΑΠΟΤ <-- Χ + Υ
      ΑΛΛΙΩΣ_ΑΝ Π = '^' ΤΟΤΕ
        ΑΠΟΤ <-- Χ^Υ
      ΤΕΛΟΣ_ΑΝ
      ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
      ΚΑΛΕΣΕ CALC_2
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Θέλετε να κάνετε άλλη πράξη; Ν = Ναι, Ο = Όχι'
    ΔΙΑΒΑΣΕ ΕΡΩΤ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΕΡΩΤ = 'Ο' Η ΕΡΩΤ = 'ο' Η ΕΡΩΤ = 'O' Η ΕΡΩΤ = 'o'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ calculator

!----------------------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ CALC
ΑΡΧΗ
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|          c a l c u l a t o r         |'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 7 *  * 8 *  * 9 *   * / *  *ΗΜ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 4 *  * 5 *  * 6 *   * * *  *ΣΥΝ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 1 *  * 2 *  * 3 *   * - *  *ΕΦ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 0 *  *+/-*  * , *   * + *  *ΛΟΓ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|                *****   *****  *****  |'
  ΓΡΑΨΕ '|                * = *   * ^ *  *Τ_Ρ*  |'
  ΓΡΑΨΕ '|                *****   *****  *****  |'
  ΓΡΑΨΕ '|______________________________________|'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ CALC_1
ΑΡΧΗ
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|          c a l c u l a t o r         |'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|', Π, '(', Χ, ')', '=', ΑΠΟΤ
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 7 *  * 8 *  * 9 *   * / *  *ΗΜ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 4 *  * 5 *  * 6 *   * * *  *ΣΥΝ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 1 *  * 2 *  * 3 *   * - *  *ΕΦ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 0 *  *+/-*  * , *   * + *  *ΛΟΓ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|                *****   *****  *****  |'
  ΓΡΑΨΕ '|                * = *   * ^ *  *Τ_Ρ*  |'
  ΓΡΑΨΕ '|                *****   *****  *****  |'
  ΓΡΑΨΕ '|______________________________________|'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ CALC_2
ΑΡΧΗ
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|          c a l c u l a t o r         |'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|', Χ, Π,  Υ, '=', ΑΠΟΤ
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 7 *  * 8 *  * 9 *   * / *  *ΗΜ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 4 *  * 5 *  * 6 *   * * *  *ΣΥΝ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 1 *  * 2 *  * 3 *   * - *  *ΕΦ *  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|  * 0 *  *+/-*  * , *   * + *  *ΛΟΓ*  |'
  ΓΡΑΨΕ '|  *****  *****  *****   *****  *****  |'
  ΓΡΑΨΕ '|                *****   *****  *****  |'
  ΓΡΑΨΕ '|                * = *   * ^ *  *Τ_Ρ*  |'
  ΓΡΑΨΕ '|                *****   *****  *****  |'
  ΓΡΑΨΕ '|______________________________________|'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------------------------------------------------


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης:
ΔημοσίευσηΔημοσιεύτηκε: Σάβ 04 Νοέμ 2006 01:33 am 
Χωρίς σύνδεση

Εγγραφή: Σάβ 04 Νοέμ 2006 01:07 am
Δημοσιεύσεις: 20
Καλη προσπαθεια ομως το προγραμα σου δεν περιλαμβανει τους περιορισμους:

1) Στη διαιρεση ο παρανομαστης δεν μπορει να ειναι 0
2) Στο ΛΟΓ(χ) πρεπει να ειναι χ>0
3) Στο ΗΜ και ΣΥΝ το χ πρεπει να ειναι 0<=χ<=2π δηλαδη 0<=χ<=6.28
4) Στο ΕΦ πρεπει π/2<χ<3π/2

:wink:


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης:
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 13 Δεκ 2007 07:23 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 13 Δεκ 2007 04:15 pm
Δημοσιεύσεις: 21
MΠΟΡΕΙΣ ΝΑ ΕΝΣΩΜΑΤΩΣΕΙΣ ΤΙΣ 3 ΔΙΑΔΙΚΑΣΙΕΣ ΣΕ ΜΙΑ (ΓΡΑΦΩ ΜΟΝΟ ΤΟ ΠΑΝΩ ΤΜΗΜΑ ΤΟΥΣ) :
Syntax: [ Download ] [ Hide ]
ΔΙΑΔΙΚΑΣΙΑ CALC(ΤΥΠΟΣ)
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΤΕΣ : ΤΥΠΟΣ ! ΤΥΠΟΣ ΟΘΟΝΗΣ ΤΟΥ ΜΝΜ, ΠΟΥ
ΑΡΧΗ                           ! ΘΑ ΟΡΙΖΕΙΣ ΕΣΥ, ΟΤΑΝ ΤΗΝ ΚΑΛΕΙΣ
  ΓΡΑΨΕ '|--------------------------------------|'
  ΓΡΑΨΕ '|          c a l c u l a t o r         |'
  ΓΡΑΨΕ '|--------------------------------------|'
  ΑΝ ΤΥΠΟΣ = 'A' ΤΟΤΕ
    ΓΡΑΨΕ '|'
  ΑΛΛΙΩΣ_ΑΝ ΤΥΠΟΣ = 'B' ΤΟΤΕ
    ΓΡΑΨΕ '|', Χ, Π,  Υ, '=', ΑΠΟΤ
  ΑΛΛΙΩΣ
     ΓΡΑΨΕ '|', Π, '(', Χ, ')', '=', ΑΠΟΤ
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ '|--------------------------------------|'
     .
     .
     .
 

_________________
--** The Develloper is the God of the programs**--


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

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


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

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


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

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