ΠΡΟΓΡΑΜΜΑ Smoking_Calculator
!Ένα απλό πρόγραμμα που υπολογίζει σύμφωνα με τις επιλογές του χρήστη τον χαμένο χρόνο από την ζωή του λόγο του τσιγάρου,
!(εάν υποθέσουμε ότι ένα τσιγάρο είναι χάσιμο 5 λεπτών ζωής).
!Το πρόγραμμα εμφανίζει τον χαμένο χρόνο σε ώρες,λεπτά ή δευτερόλεπτα.
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΧΡΟΝΙΑ,ΤΣΙΓΑΡΑ[3],ΜΗΝΕΣ,ΜΕΡΕΣ ,Ι,Τ
ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡΟΝΙΑ_Τ,ΜΗΝΕΣ_Τ,ΜΕΡΕΣ_Τ ,ΩΡΕΣ,ΛΕΠΤΑ,ΔΕΥΤΕΡΑ
ΧΑΡΑΚΤΗΡΕΣ:ΕΠΙ ,ΝΗΟ
ΑΡΧΗ
γράψε '*********************************************************************'
γράψε '*********************************************************************'
ΓΡΑΨΕ '*****ΚΑΛΟΣ ΟΡΙΣΑΤΕ ΣΤΟ "Smoking Calculator" v. 1.01 by Sarakinos*****'
γράψε '*********************************************************************'
γράψε '*********************************************************************'
γράψε ''
ΓΡΑΨΕ ''
γράψε '*********************************************************************'
ΓΡΑΨΕ '**********************ΕMAIL:bampis.s@gmail.com***********************'
γράψε '*********************************************************************'
ΝΗΟ <-- 'Υ' !Μεταβλητή που χρησιμοποιήται για την επικύρωση της συνθήκης που ελένχεται στην γραμμή 136
ΟΣΟ ΝΗΟ='Υ' ΕΠΑΝΑΛΑΒΕ
γραψε''
γράψε '*********************'
γράψε '****Menu Επιλογών****'
γράψε '*********************'
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΡΑΨΕ '1.ΧΡΟΝΙΑ'
ΓΡΑΨΕ '2.ΜΗΝΕΣ'
ΓΡΑΨΕ '3.ΜΕΡΕΣ'
ΓΡΑΨΕ''
ΓΡΑΨΕ 'ΕΠΙΛΟΓΗ:'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΕΠΙ
ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠΙ='1' Η ΕΠΙ='2' Η ΕΠΙ='3'
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΑΝ ΕΠΙ='1' ΤΟΤΕ
ΓΡΑΨΕ 'ΠΟΣΑ ΧΡΟΝΙΑ ΚΑΠΝΙΖΕΙΣ;'
ΓΡΑΨΕ 'ΧΡΟΝΙΑ:'
ΔΙΑΒΑΣΕ ΧΡΟΝΙΑ
ΓΡΑΨΕ 'ΠΟΣΑ ΤΣΙΓΑΡΑ ΚΑΠΝΙΖΕΙΣ ΠΕΡΙΠΟΥ ΤΗΝ ΗΜΕΡΑ;'
ΓΡΑΨΕ 'ΤΣΙΓΑΡΑ:'
ΔΙΑΒΑΣΕ ΤΣΙΓΑΡΑ[1]
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΠΕΡΙΜΕΝΕΤΕ...'
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 2 ΜΕ ΒΗΜΑ 1
ΓΙΑ Τ ΑΠΟ 1 ΜΕΧΡΙ 20 ΜΕ ΒΗΜΑ 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΧΡΟΝΙΑ_Τ <-- (((5*ΤΣΙΓΑΡΑ[1])*30)*12)*ΧΡΟΝΙΑ
ΓΡΑΨΕ 'ΕΧΕΤΕ ΧΑΣΕΙ ΤΟΝ ΠΑΡΑΚΑΤΩ ΧΡΟΝΟ ΑΠΟ ΤΗΝ ΖΩΗ ΣΑΣ:'
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΣΕ ΩΡΕΣ:'
ΩΡΕΣ <-- ΧΡΟΝΙΑ_Τ/60
ΓΡΑΨΕ ΩΡΕΣ
ΓΡΑΨΕ 'ΣΕ ΛΕΠΤΑ:'
ΓΡΑΨΕ ΧΡΟΝΙΑ_Τ
ΓΡΑΨΕ 'ΣΕ ΔΕΥΤΕΡΟΛΕΠΤΑ:'
ΔΕΥΤΕΡΑ <-- ΧΡΟΝΙΑ_Τ*60
ΓΡΑΨΕ ΔΕΥΤΕΡΑ
ΑΛΛΙΩΣ_ΑΝ ΕΠΙ='2' ΤΟΤΕ
ΓΡΑΨΕ 'ΠΟΣΟΥΣ ΜΗΝΕΣ ΚΑΠΝΙΖΕΙΣ;'
ΔΙΑΒΑΣΕ ΜΗΝΕΣ
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΠΟΣΑ ΤΣΙΓΑΡΑ ΚΑΠΝΙΖΕΙΣ ΠΕΡΙΠΟΥ ΤΗΝ ΗΜΕΡΑ;'
ΔΙΑΒΑΣΕ ΤΣΙΓΑΡΑ[2]
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΠΕΡΙΜΕΝΕΤΕ...'
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 2 ΜΕ ΒΗΜΑ 1 !Τέχνασμα καθυστέρισης,για να δείξουμε ότι το πρόγραμμα υπολογίζει τα εισαγώμενα δεδομένα
ΓΙΑ Τ ΑΠΟ 1 ΜΕΧΡΙ 20 ΜΕ ΒΗΜΑ 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΗΝΕΣ_Τ <-- ((5*ΤΣΙΓΑΡΑ[2])*30)*ΜΗΝΕΣ
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΕΧΕΤΕ ΧΑΣΕΙ ΤΟΝ ΠΑΡΑΚΑΤΩ ΧΡΟΝΟ ΑΠΟ ΤΗΝ ΖΩΗ ΣΑΣ:'
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΣΕ ΩΡΕΣ:'
ΩΡΕΣ <-- ΜΗΝΕΣ_Τ/60
ΓΡΑΨΕ ΩΡΕΣ
ΓΡΑΨΕ 'ΣΕ ΛΕΠΤΑ:'
ΓΡΑΨΕ ΜΗΝΕΣ_Τ
ΓΡΑΨΕ 'ΣΕ ΔΕΥΤΕΡΟΛΕΠΤΑ:'
ΔΕΥΤΕΡΑ <-- ΜΗΝΕΣ_Τ*60
ΓΡΑΨΕ ΔΕΥΤΕΡΑ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΠΟΣΕΣ ΜΕΡΕΣ ΚΑΠΝΙΖΕΙΣ;'
ΔΙΑΒΑΣΕ ΜΕΡΕΣ
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΠΟΣΑ ΤΣΙΓΑΡΑ ΚΑΠΝΙΖΕΙΣ ΠΕΡΙΠΟΥ ΤΗΝ ΗΜΕΡΑ;'
ΔΙΑΒΑΣΕ ΤΣΙΓΑΡΑ[3]
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΠΕΡΙΜΕΝΕΤΕ...'
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 2 ΜΕ ΒΗΜΑ 1
ΓΙΑ Τ ΑΠΟ 1 ΜΕΧΡΙ 20 ΜΕ ΒΗΜΑ 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΡΕΣ_Τ <-- (5*ΤΣΙΓΑΡΑ[3])*ΜΕΡΕΣ
ΓΡΑΨΕ ''
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΕΧΕΤΕ ΧΑΣΕΙ ΤΟΝ ΠΑΡΑΚΑΤΩ ΧΡΟΝΟ ΑΠΟ ΤΗΝ ΖΩΗ ΣΑΣ:'
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΣΕ ΩΡΕΣ:'
ΩΡΕΣ <-- ΜΕΡΕΣ_Τ/60
ΓΡΑΨΕ ΩΡΕΣ
ΓΡΑΨΕ 'ΣΕ ΛΕΠΤΑ:'
ΓΡΑΨΕ ΜΕΡΕΣ_Τ
ΓΡΑΨΕ 'ΣΕ ΔΕΥΤΕΡΟΛΕΠΤΑ:'
ΔΕΥΤΕΡΑ <-- ΜΕΡΕΣ_Τ*60
ΓΡΑΨΕ ΔΕΥΤΕΡΑ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ''
ΓΡΑΨΕ''
ΓΡΑΨΕ'ΘΕΛΕΤΕ ΝΑ ΕΠΑΝΑΛΑΒΕΤΕ ΤΟ ΠΡΟΓΡΑΜΜΑ; ( (Υ) ΓΙΑ ΝΑΙ , (Ν) ΓΙΑ ΟΧΙ)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΝΗΟ
ΜΕΧΡΙΣ_ΟΤΟΥ ΝΗΟ='Υ' Η ΝΗΟ='Ν'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Smoking_Calculator