[B]Αλγόριθμος[/B] ΠΑΡΚΙΝΓΚ
[B]Δεδομένα[/B] //ΑΥΤΟΚΙΝΗΤΑ, ΜΗΧΑΝΕΣ//
[B]Εμφάνισε[/B] "Δώσε έναν αριθμό κυκλοφορίας"
[COLOR=gray]! Διαβάζει έναν αριθμό κυκλοφορίας[/COLOR]
[COLOR=black][B]Διάβασε [/B]ΑΡ_ΚΥΚ[/COLOR]
[COLOR=gray]! O αλγόριθμος τερματίζεται όταν εισαχθεί η τιμή "ΤΕΛΟΣ"[/COLOR]
[COLOR=black][B]Όσο[/B] ΑΡ_ΚΥΚ <> "ΤΕΛΟΣ" [B]επανάλαβε[/B][/COLOR]
[COLOR=gray]! Σειριακή αναζήτηση στον πίνακα ΑΥΤΟΚΙΝΗΤΑ[/COLOR]
[COLOR=black] Done [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] ΨΕΥΔΗΣ[/COLOR]
POSITION [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] 0
i [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] 1
[B] Όσο [/B](DONE = ΨΕΥΔΗΣ) [B]και [/B](i <=300) [B]επανάλαβε[/B]
[B] Αν [/B]ΑΥΤΟΚΙΝΗΤΑ[i] = ΑΡ_ΚΥΚ [B]τότε[/B]
DONE [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] ΑΛΗΘΗΣ
POSITION [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] i
[B] Αλλιώς[/B]
i [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] i + 1
[B] Τέλος_Αν[/B]
[B] Τέλος_επανάληψης[/B]
[COLOR=gray]! Αν βρεθεί, τότε εμφανίζει τα ζητούμενα[/COLOR]
[COLOR=black][B] Αν [/B]DONE = ΑΛΗΘΗΣ [B]τότε[/B][/COLOR]
[B] Εμφάνισε[/B] "ΤΥΠΟΣ ΟΧΗΜΑΤΟΣ: ΙΧ"
[B] Εμφάνισε[/B] "ΑΡΙΘΜΟΣ ΚΥΚΛΟΦΟΡΙΑΣ:", ΑΡ_ΚΥΚ
[B] Εμφάνισε[/B] "ΘΕΣΗ ΠΑΡΚΙΝΓΚ:", POSITION
ΑΥΤΟΚΙΝΗΤΑ[POSITION] [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] "#"
[B] Αλλιώς[/B]
[COLOR=gray]! Δεν βρέθηκε ο αριθμός κυκλοφορίας στον πίνακα ΑΥΤΟΚΙΝΗΤΑ[/COLOR]
[COLOR=#808080]! Σειριακή αναζήτηση στον πίνακα ΜΗΧΑΝΕΣ[/COLOR]
[B] Όσο[/B] (DONE = ΨΕΥΔΗΣ) [B]και[/B] (i <=50) [B]επανάλαβε[/B]
[B] Αν[/B] ΜΗΧΑΝΕΣ[i] = ΑΡ_ΚΥΚ [B]τότε[/B]
DONE [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] ΑΛΗΘΗΣ
POSITION [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] i
[B] Αλλιώς[/B]
i [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] i + 1
[B] Τέλος_Αν[/B]
[B] Τέλος_επανάληψης[/B]
[B] Αν [/B]DONE = ΑΛΗΘΗΣ [B]τότε[/B]
[B] Εμφάνισε[/B] "ΤΥΠΟΣ ΟΧΗΜΑΤΟΣ: ΜΟΤΟ"
[B] Εμφάνισε[/B] "ΑΡΙΘΜΟΣ ΚΥΚΛΟΦΟΡΙΑΣ:", ΑΡ_ΚΥΚ
[B] Εμφάνισε[/B] "ΘΕΣΗ ΠΑΡΚΙΝΓΚ:", POSITION
[COLOR=gray]! Στην περίπτωση που βρεθεί, τότε, αδειάζουμε την αντίστοιχη θέση[/COLOR]
[COLOR=#808080]! του πίνακα, εισάγωντας το αλφαριθμτικό (έστω) "#"[/COLOR]
ΜΗΧΑΝΕΣ[POSITION] [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] "#"
[B] Αλλιώς[/B]
[COLOR=gray]! Δεν βρέθηκε ούτε αυτοκίνητο, ούτε μηχανή με το συγκεκριμένο[/COLOR]
[COLOR=#808080]! αριθμό κυκλοφορίας[/COLOR]
[B] Εμφάνισε [/B]"Δώσε τύπο οχήματος: Α για αυτοκίνητο, Μ για μηχανή"
[B] Διάβασε[/B] ΤΥΠΟΣ_ΟΧ
[B] Αν[/B] ΤΥΠΟΣ_ΟΧ = "Α" [B]τότε[/B]
[B] Εμφάνισε [/B]"Δώσε αριθμό θέσης πάρκινγκ"
[B] Διάβασε[/B] ΘΕΣΗ
ΑΥΤΟΚΙΝΗΤΑ[ΘΕΣΗ] [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] ΑΡ_ΚΥΚ
[B] Αλλιώς[/B]
[B] Εμφάνισε [/B]"Δώσε αριθμό θέσης πάρκινγκ"
[B] Διάβασε[/B] ΘΕΣΗ
ΜΗΧΑΝΕΣ[ΘΕΣΗ] [FONT=Symbol][FONT=Symbol][B]¬[/B][/FONT][/FONT] ΑΡ_ΚΥΚ
[B] Τέλος_Αν[/B]
[B] Τέλος_Αν[/B]
[B] Τέλος_Αν[/B]
[B] Εμφάνισε[/B] "Δώσε νέο αριθμό κυκλοφορίας"
[B] Διάβασε[/B] ΑΡ_ΚΥΚ
[B]Τέλος_επανάληψης[/B]
[B]Τέλος [/B]ΠΑΡΚΙΝΓΚ