ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
ΣΤΑΘΕΡΕΣ
  Ν = 1000000
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, k, ΕΠΙΤΥΧΙΕΣ, ΛΟΤΤΟ[Ν, 6], ΚΕΡΔΙΣΕ[6], ΔΙΑΛΟΓΗ[6] 
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[Ν]
ΑΡΧΗ
!ΕΡΩΤΗΜΑ 1ο - ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
  ΓΡΑΨΕ "ΔΩΣΤΕ ΤΟΥΣ 6 ΑΡΙΘΜΟΥΣ ΠΟΥ ΚΕΡΔΙΖΟΥΝ :"
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ i, "ος ΑΡΙΘΜΟΣ : "
      ΔΙΑΒΑΣΕ ΚΕΡΔΙΣΕ[i] 
    ΜΕΧΡΙΣ_ΟΤΟΥ valid(ΚΕΡΔΙΣΕ, i) = ΑΛΗΘΗΣ
    ΔΙΑΛΟΓΗ[i] <- 0 !ΕΡΩΤΗΜΑ 2ο
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ "ΟΝΟΜΑΤΕΠΩΝΥΜΟ ", i, "ου ΠΑΙΚΤΗ : "
    ΔΙΑΒΑΣΕ ΟΝ[i]
    ΕΠΙΤΥΧΙΕΣ <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        ΓΡΑΨΕ "  ", j, "ος ΑΡΙΘΜΟΣ : "
        ΔΙΑΒΑΣΕ ΛΟΤΤΟ[i, j] 
      ΜΕΧΡΙΣ_ΟΤΟΥ ΛΟΤΤΟ[i, j] >= 1 ΚΑΙ ΛΟΤΤΟ[i, j] <= 49
!ΕΡΩΤΗΜΑ 3ο - ΤΕΛΙΚΗ ΔΙΑΛΟΓΗ
      ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 6
        ΑΝ ΛΟΤΤΟ[i, j] = ΚΕΡΔΙΣΕ[k] ΤΟΤΕ
          ΕΠΙΤΥΧΙΕΣ <- ΕΠΙΤΥΧΙΕΣ + 1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ ΕΠΙΤΥΧΙΕΣ <> 0 ΤΟΤΕ
      ΔΙΑΛΟΓΗ[ΕΠΙΤΥΧΙΕΣ] <- ΔΙΑΛΟΓΗ[ΕΠΙΤΥΧΙΕΣ] + 1
    ΤΕΛΟΣ_ΑΝ
    ΑΝ ΕΠΙΤΥΧΙΕΣ = 6 ΤΟΤΕ !ΕΡΩΤΗΜΑ 3ο
      ΓΡΑΨΕ "Ο ΠΑΙΚΤΗΣ ", ΟΝ[i], " ΠΕΤΥΧΕ 6 ΕΠΙΤΥΧΙΕΣ !"
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 6 ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
    ΓΡΑΨΕ " ΠΑΙΚΤΕΣ ΠΟΥ ΠΕΤΥΧΑΝ ", i, " ΕΠΙΤΥΧΙΕΣ : ", ΔΙΑΛΟΓΗ[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ valid(A, i): ΛΟΓΙΚΗ
ΣΤΑΘΕΡΕΣ
  n = 6
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, A[n] 
ΑΡΧΗ
  valid <- ΑΛΗΘΗΣ ! Έστω οτι δόθηκε στοιχείο διαφορετικό απο τα προηγούμενα
 ! Συγκρίνουμε το νέο στοιχείο με όλα τα προηγούμενα
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ i - 1
    ΑΝ A[j] = A[i] ΤΟΤΕ ! Βρέθηκε ίδιο στοιχείο
      valid <- ΨΕΥΔΗΣ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ