darts

ΑΛΓΟΡΙΘΜΟΣ Darts

  Ρ[1] ←  7
  Ρ[2] ←  15
  Ρ[3] ←  19
  Ρ[4] ←  23
  Ρ[5] ←  29
  Ρ[6] ←  37

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
    Δ[i] ←  1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  Πλ ←  0
  ΟΣΟ Δ[1] <= 6 ΕΠΑΝΑΛΑΒΕ
    Άθρ ←  0
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
      Άθρ ←  Άθρ + Ρ[Δ[i]]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ Άθρ = 100 ΤΟΤΕ
      Πλ ←  Πλ + 1
      ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
        ΕΜΦΑΝΙΣΕ Ρ[Δ[i]], "  "
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΕΜΦΑΝΙΣΕ ""
    ΤΕΛΟΣ_ΑΝ
    Δ[6] ←  Δ[6] + 1
    k ← 7
    ΓΙΑ i ΑΠΟ 6 ΜΕΧΡΙ 2 ΜΕ_ΒΗΜΑ -1
      ΑΝ Δ[i] > 6 ΤΟΤΕ
        Δ[i] ←  1
        Δ[i - 1] ←  Δ[i - 1] + 1
		k ←  i
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	ΓΙΑ i ΑΠΟ k ΜΕΧΡΙ 6
		ΑΝ Δ[i] < Δ[i-1] ΤΟΤΕ
			Δ[i] ←  Δ[i-1]
		ΤΕΛΟΣ_ΑΝ
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΕΜΦΑΝΙΣΕ "Πλήθος : ", Πλ
ΤΕΛΟΣ Darts