ΠΡΟΓΡΑΜΜΑ Κρεμμάλα ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: Α[20],Β[20],γ,σημαία,Δ[20],σημαία2,σημαία3 ΑΚΕΡΑΙΕΣ: ι,ν,πλ,ν1,count,count1,count2,count3,count4 ΑΡΧΗ count4 <-- 0 !Μεταβλητή που μετράει το πλήθος των γραμμάτων count2 <-- 0 σημαία2 <-- 'ψ' count1 <-- 0 !Μεταβλητή που μετράει το πλήθος των διπλών γραμμάτων count <-- 0 !Μεταβλητή που μετράει το συνολικό πλήθος επαναλήψεων πλ <-- 6 !Μεταβλητή που μετράει τις προσπάθεις που απομένουν ν1 <-- 0 !Μεταβλητή που το πλήθος των σωστόν γραμμάτων ΓΡΑΨΕ ΓΡΑΨΕ ! Ατνώνης Γιωτάκης 2011 ΓΡΑΨΕ ! Για την glwssomatheia.info ΓΡΑΨΕ 'Πληκτρολόγησε την λέξη και στο τέλος *' Αρχή_επανάληψης !Εισαγωγεί λέξης μέχρις ότου εισαχθεί * count4 <-- count4+1 ΔΙΑΒΑΣΕ Α[count4] Μέχρις_ότου Α[count4]='*' ν <-- count4-1 Για ι απο 1 μέχρι ν !Εμπλουτισμός του πίνακα Β με τον χαρακτήρα '_' Β[ι] <-- '_' ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ !Εντόλη αν για την διαφοροποίηση της λέξης 'πλεόν' ανάλογα με το αν είναι η πρώτη φορά που εκτελείτε ΑΝ COUNT>0 τότε ΓΡΑΨΕ 'Η μορφή της ζητούμενης λέξης πλέον είναι' Αλλιώς ΓΡΑΨΕ 'Η μορφή της ζητούμενης λέξης είναι' Τέλος_αν Για ι από 1 μέχρι ν !Εμφάνησει τις λέξης που πρέπει να βρεθεί ΓΡΑΨΕ_ Β[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ ΓΡΑΨΕ Αν σημαία2 = 'ψ' τότε !Εντόλη αν για την διαφοροποίηση της εντολής 'Γράψε ανάλογα με το αν είναι η πρώτη φορά που εκτελείτε ΓΡΑΨΕ 'Δώσε ένα γράμμα' Αλλιώς ΓΡΑΨΕ 'Τα λαθασμένα γράμματα που έχεις δηλώσει μέχρι τώρα είναι' ΓΡΑΨΕ Για ι από 1 μέχρι count1 ΓΡΑΨΕ_ Δ[ι],',' ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ ΓΡΑΨΕ 'Δώσε ένα γράμμα' ΓΡΑΨΕ Τέλος_αν count <-- count+1 Αρχή_επανάληψης !Διαβάζει το γράμμα από τον δεύτερο παίχτη ΔΙΑΒΑΣΕ γ σημαία3 <-- 'α' Για ι από 1 μέχρι count1 Αν Δ[ι]=γ τότε σημαία3 <-- 'ψ' !Η σημαία ορίζετε ψευδής καθώς το γράμμα που πληκτρολόγησε ο χρήστης έχει ξαναδωθεί ΓΡΑΨΕ 'Έχείς ξαναδώσει το γράμμα αυτό' τέλος_αν Τέλος_επανάληψης Μέχρις_ότου σημαία3='α' σημαία <-- 'ψ' Για ι απο 1 μέχρι ν !Ελέγχετε αν υπάρχει το γράμμα που πληκτρολόγησε στην λέξη Αν Α[ι]=γ τότε Β[ι] <-- γ ν1 <-- ν1+1 σημαία <-- 'α' !Αν υπάρχει το γράμμα η σημαία ορίζετε αληθής για να διαχωριστεί η εντολή 'Γραψε' στις κατάλληλες εντολές έπειτα Τέλος_αν Τέλος_Επανάληψης Αν σημαία = 'α' τότε ΓΡΑΨΕ ΓΡΑΨΕ 'Το γράμμα',γ,'υπάρχει.' ΓΡΑΨΕ ΓΡΑΨΕ 'Επιτρεπόμενες προσπάθειες ακόμα',πλ ΓΡΑΨΕ Αλλιώς count1 <-- count1+1 Δ[count1] <-- γ !Εισαγεί τα γράμματα στον πίνακα Δ ,που έχουν εισαχθεί από τον χρήστη πλ <-- πλ-1 !Αφαιρεί το επίπεδο ζωής σημαία2 <-- 'α' ΓΡΑΨΕ ΓΡΑΨΕ 'Δεν υπάρχει το γράμμα',γ,'Έχασες μια ζωή.Υπολοιπό ζωής',πλ ΓΡΑΨΕ Τέλος_αν Μέχρις_ότου πλ=0 Η ν1=ν !Ελέγχει αν έχουν τελειώσει η επιτρεπόμενες προσπάθειες ή ο χρήστης έχει βρεί την λέξη ώστε να τερματίσει Αν πλ>0 τότε !Εμφανίζει κατάλληλο μύνημα ανάλογα με το αν έχασε ή νίκησε ΓΡΑΨΕ ΓΡΑΨΕ 'Κέρδισες' ΓΡΑΨΕ Αλλιώς ΓΡΑΨΕ ΓΡΑΨΕ 'Εχασες' ΓΡΑΨΕ ΓΡΑΨΕ 'Η λέξη ήταν΄' ΓΡΑΨΕ Για ι από 1 μέχρι ν !Σε περίπτωση που έχασε εμφανίζει την σωστή λέξη ΓΡΑΨΕ_ Α[ι] Τέλος_επανάληψης Τέλος_αν ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Κρεμμάλα