! =====================================================================
! Δύο υποκαταστήματα πώλησης DVD (Α και Β) της ίδιας εταιρίας
! καταχωρούν τους τίτλους των DVD σε έναν πίνακα 200 θέσεων το καθένα.
! Να αναπτύξετε πρόγραμμα το οποίο:
! i) να διαβάζει το πλήθος των DVD (Ν), του κάθε υποκαταστήματος
!    (θα πρέπει 1<=ΝΑ<=200 και 1<=ΝΒ<=200)
! ii) να διαβάζει τους τίτλους των DVD και για το κάθε υποκατάστημα.
! iii) να εμφανίζει τους τίτλους των DVD  που υπάρχουν
!      ταυτόχρονα και στα δύο καταστήματα.
! iv) να εμφανίζει τους τίτλους των DVD που υπάρχουν στο πρώτο
!     αλλά δεν υπάρχουν στο δεύτερο υποκατάστημα.
! v) να εμφανίζει τους τίτλους των 20 πρώτων DVD
!    κατά αλφαβητική σειρά του δεύτερου υποκαταστήματος
!
!  Θεωρήστε ότι κάθε υποκατάστημα έχει κάθε τίτλο μονο μια φορά.
!=====================================================================
 

ΠΡΟΓΡΑΜΜΑ DVD_Searching
ΣΤΑΘΕΡΕΣ
  size=200
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i,j,NA,ΝΒ,lim
  ΧΑΡΑΚΤΗΡΕΣ: DVDA[size],DVDB[size],temp
  ΛΟΓΙΚΕΣ: όμοιο,μοναδικό
ΑΡΧΗ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δωσε πλήθος DVD του A υποκαταστήματος'
    ΔΙΑΒΑΣΕ NA
  ΜΕΧΡΙΣ_ΟΤΟΥ  (NA>=1) ΚΑΙ ( NA<=200 )

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δωσε πλήθος DVD του B υποκαταστήματος'
    ΔΙΑΒΑΣΕ ΝΒ
  ΜΕΧΡΙΣ_ΟΤΟΥ  (ΝΒ>=1) ΚΑΙ ( ΝΒ<=200 )
!-------
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ NA
    ΓΡΑΨΕ 'Δωσε ',i, 'ο τιτλο του A υποκαταστήματος'
    ΔΙΑΒΑΣΕ DVDA[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΝΒ
    ΓΡΑΨΕ 'Δωσε ',i, 'ο τιτλο του B υποκαταστήματος'
    ΔΙΑΒΑΣΕ DVDB[j]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!-------
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ NA
    όμοιο <-- ψευδής
    j <-- 1
    ΟΣΟ (j<=ΝΒ) ΚΑΙ (όμοιο=ψευδής) ΕΠΑΝΑΛΑΒΕ
      ΑΝ DVDA[i]=DVDB[j] ΤΟΤΕ
        ΓΡΑΨΕ 'ο τίτλος: ',DVDA[i],' υπάρχει και στα δυο καταστήματα'
        όμοιο <-- αληθής
      ΤΕΛΟΣ_ΑΝ
      j <-- j+1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!-------
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ NA
    μοναδικό <-- αληθής
    j <-- 1
    ΟΣΟ (j<=ΝΒ) ΚΑΙ (μοναδικό=αληθής) ΕΠΑΝΑΛΑΒΕ
      ΑΝ DVDA[i]=DVDB[j] ΤΟΤΕ
        μοναδικό <-- ψευδής
      ΤΕΛΟΣ_ΑΝ
      j <-- j+1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ μοναδικό=αληθής ΤΟΤΕ
      ΓΡΑΨΕ 'ο τίτλος: ', DVDA[i],' υπάρχει μονο στο 1ο κατάστημα'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!-------
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΝΒ
    ΓΙΑ j ΑΠΟ ΝΒ ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ DVDB[j-1]>DVDB[j] ΤΟΤΕ
        temp <-- DVDB[j-1]
        DVDB[j-1] <-- DVDB[j]
        DVDB[j] <-- temp
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΝ ΝΒ>=20 ΤΟΤΕ
    lim <-- 20
  ΑΛΛΙΩΣ
    lim <-- ΝΒ
  ΤΕΛΟΣ_ΑΝ

  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ lim
    ΓΡΑΨΕ DVDB[j]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ