Προς το περιεχόμενο

Καποια βοηθεια στην Γλωσσομαθεια.


Luxx

Προτεινόμενες αναρτήσεις

Δημοσ.

ΠΡΟΓΡΑΜΜΑ ΔΟΚΙΜΗ

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ : Χ,Ψ1,Ψ2,Ψ3

ΑΡΧΗ

ΓΡΑΨΕ 'ΔΩΣΕ ΕΝΑΝ ΑΡΙΘΜΟ ΑΠΟ ΤΟ 1 ΕΩΣ ΤΟ 999'

ΔΙΑΒΑΣΕ Χ

ΑΝ Χ>0 ΚΑΙ Χ<10 ΤΟΤΕ

Ψ1 <-- X

ΓΡΑΨΕ 'ΤΟ ΠΡΩΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ1

ΑΛΛΙΩΣ_ΑΝ Χ>=10 ΚΑΙ Χ<100 ΤΟΤΕ

Ψ1 <-- Χ DIV 10

Ψ2 <-- Χ MOD 10

ΓΡΑΨΕ 'ΤΟ ΠΡΩΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ1

ΓΡΑΨΕ 'ΤΟ ΔΕΥΤΕΡΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ2

ΑΛΛΙΩΣ_ΑΝ Χ>=100 ΚΑΙ Χ<1000 ΤΟΤΕ

Ψ1 <-- Χ DIV 100

Ψ2 <-- (Χ MOD 100) DIV 10

Ψ3 <-- (Χ MOD 100) MOD 10

ΓΡΑΨΕ 'ΤΟ ΠΡΩΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ1

ΓΡΑΨΕ 'ΤΟ ΔΕΥΤΕΡΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ2

ΓΡΑΨΕ 'ΤΟ ΤΡΙΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ3

ΑΛΛΙΩΣ_ΑΝ Χ<=0 ΚΑΙ Χ>=1000 ΤΟΤΕ

ΓΡΑΨΕ 'ΛΑΘΟΣ'

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΔΟΚΙΜΗ

 

1ον) γιατι οταν επιλεγω εναν αριθμο εκτος του οριου δεν μου εμφανιζει το μηνυμα ΛΑΘΟΣ;

 

και

 

2ον) Πως μπορω να επαναλαμβανω αυτη την διαδικασια πολλες φορες και να σταματησει οταν θελω εγω; πχ να δωσω εναν αριθμο, μετα ακομα εναν κ.ο.κ και να σταματησει οταν του πω εγω πχ με μια λεξη.

 

Ευχαριστω.

Δημοσ.

1

 

ΑΛΛΙΩΣ_ΑΝ Χ<=0 ΚΑΙ Χ>=1000 ΤΟΤΕ ---->λαθος

ΑΛΛΙΩΣ_ΑΝ Χ<=0 Η' Χ>=1000 ΤΟΤΕ --> σωστο

το ΚΑΙ το αντικαθιστάς με Η'

----------------------------------------------------------------------

2

με Repeat

 

{σωμα εντολών }

Until ( συνθηκη )

Δημοσ.

oyps! εχεις δικιο! οσο για το δευτερο θα το ελεγξω και αν εχω καποια δυσκολια θα ρωτησω εδω ξανα.

Δημοσ.
oyps! εχεις δικιο! οσο για το δευτερο θα το ελεγξω και αν εχω καποια δυσκολια θα ρωτησω εδω ξανα.

 

Με ΤURBO PASCAL ασχολείσαι ? νέος στη γλώσσα?

Δημοσ.

γλωσσομαθεια λεγεται. κυριως κανω ασκησεις με σκοπο να γραψω καλα στις πανελλαδικες.. εξαλλου το εν' λογω προγραμμα δεν προσφερει και πολλα πραματα.

Δημοσ.

προσπαθησα να χρησιμοποιησω δομη επαναληψης, χωρις επιτυχια ομως.. δειτε αυτο :

 

ΠΡΟΓΡΑΜΜΑ ΔΟΚΙΜΗ

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ : Χ,Ψ1,Ψ2,Ψ3

ΧΑΡΑΚΤΗΡΕΣ: ΑΠΑΝΤΗΣΗ

ΑΡΧΗ

ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

ΓΡΑΨΕ 'ΔΩΣΕ ΕΝΑΝ ΑΡΙΘΜΟ ΑΠΟ ΤΟ 1 ΕΩΣ ΤΟ 999'

ΔΙΑΒΑΣΕ Χ

ΑΝ Χ>0 ΚΑΙ Χ<10 ΤΟΤΕ

Ψ1 <-- X

ΓΡΑΨΕ 'ΤΟ ΠΡΩΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ1

ΑΛΛΙΩΣ_ΑΝ Χ>=10 ΚΑΙ Χ<100 ΤΟΤΕ

Ψ1 <-- Χ DIV 10

Ψ2 <-- Χ MOD 10

ΓΡΑΨΕ 'ΤΟ ΠΡΩΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ1

ΓΡΑΨΕ 'ΤΟ ΔΕΥΤΕΡΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ2

ΑΛΛΙΩΣ_ΑΝ Χ>=100 ΚΑΙ Χ<1000 ΤΟΤΕ

Ψ1 <-- Χ DIV 100

Ψ2 <-- (Χ MOD 100) DIV 10

Ψ3 <-- (Χ MOD 100) MOD 10

ΓΡΑΨΕ 'ΤΟ ΠΡΩΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ1

ΓΡΑΨΕ 'ΤΟ ΔΕΥΤΕΡΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ2

ΓΡΑΨΕ 'ΤΟ ΤΡΙΤΟ ΨΗΦΙΟ ΕΙΝΑΙ:',Ψ3

ΑΛΛΙΩΣ_ΑΝ Χ<=0 Ή Χ>=1000 ΤΟΤΕ

ΓΡΑΨΕ 'ΛΑΘΟΣ ΚΑΤΑΧΩΡΗΣΗ'

ΤΕΛΟΣ_ΑΝ

ΓΡΑΨΕ 'ΘΕΛΕΙΣ ΝΑ ΣΥΝΕΧΙΣΕΙΣ;'

ΔΙΑΒΑΣΕ ΑΠΑΝΤΗΣΗ

ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΑΝΤΗΣΗ='ΟΧΙ'

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΔΟΚΙΜΗ

 

το προβλημα ειναι, οτι οταν με ρωταει αν θελω να συνεχισω, ο,τι και να πατησω ( ακομα και εκτος του ΝΑΙ ή ΟΧΙ ) συνεχιζει λες και παταω το ΝΑΙ. μπορει να με βοηθησει καποιος;

Δημοσ.
προσπαθησα να χρησιμοποιησω δομη επαναληψης' date=' χωρις επιτυχια ομως.. δειτε αυτο :

 

[/quote']

 

dike mou pio apo ola na doume?auto h thn jenifer?

bale kai 5-6 photos ths akoma..exei xoro :-p

Δημοσ.

ok tora..de mporo na po!

orizontia de pianoun kai poly xoro alla etsi opos tis eixes prin pianane

oloklhrh selida..

 

y.g.opos to kovo me to mati(se 1024)xoraei kai alh mia idiou megethous deksia:)

Δημοσ.

Η τιμή τερματισμού που έχεις βάλει είναι το ΟΧΙ (κεφαλαία) οπότε ότι κι να πατήσεις διαφορετικό αυτού (μαζί και το οχι με μικρά γραμματα) θα κάνει επανάληψη.

Αν θέλεις να συνεχίζει η επανάληψη μόνο με το ΝΑΙ μπορείς να βάλεις

ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΑΝΤΗΣΗ<>'ΝΑΙ'. (μπορείς να καλύψεις την περίπτωση με τα κεφαλαία και μικρά γράμματα βάζοντας: ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΑΝΤΗΣΗ<>'ΝΑΙ' ή ΑΠΑΝΤΗΣΗ<>'ναι')

Δημοσ.

μαλιστα. αλλα και παλι, αν παταω κατι ασχετο θα σταματαει.. δεν μπορει να διαβαζει μονο το ναι και το οχι;

Δημοσ.

Μπορείς να βάλεις μετά την απάντηση (ΔΙΑΒΑΣΕ ΑΠΑΝΤΗΣΗ) έναν έλεγχο αποδεκτών τιμών για να δεχεσε σαν απαντήσεις μόνο το ΝΑΙ και το ΟΧΙ δηλ.

ΟΣΟ ΑΠΑΝΤΗΣΗ<>'ΝΑΙ' ΚΑΙ ΑΠΑΝΤΗΣΗ<>'ΟΧΙ' ΕΠΑΝΑΛΑΒΕ

ΓΡΑΨΕ 'ΑΠΟΔΕΚΤΕΣ ΑΠΑΝΤΗΣΕΙΣ ΝΑΙ - ΟΧΙ'

ΔΙΑΒΑΣΕ ΑΠΑΝΤΗΣΗ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ή καλύτερα βάλε στη συνθήκη:

ΑΠΑΝΤΗΣΗ<>'ΝΑΙ' ΚΑΙ ΑΠΑΝΤΗΣΗ<>'ΟΧΙ' ΚΑΙ ΑΠΑΝΤΗΣΗ<>'ναι' ΚΑΙ ΑΠΑΝΤΗΣΗ<>'οχι'

αν θέλεις να καλύψεις και απάντηση με μικρά γράμματα.

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...