e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον

Λύσεις ασκήσεων από τον Οδηγό Μελέτης Μαθητών


ΠΡΟΓΡΑΜΜΑ ΚΛΗΣΗ_ΥΠΟΠΡΟΓΡΑΜΜΑΤΟΣ
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 5.4.4.3
!
! 3. Να γραφεί υποπρόγραμμα το οποίο να αναζητεί ένα ακέραιο αριθμό
! σ' ένα πίνακα x[1000] ακέραιων αριθμών. Όταν τον βρίσκει να επιστρέφει
! τη θέση που βρέθηκε, διαφορετικά να επιστρέφει μηδέν.
! Ο πίνακας και ο ακέραιος αριθμός να ορίζονται ως παράμετροι
! του υποπρογράμματος. (οι αριθμοί στον πίνακα είναι μοναδικοί)

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x[1000], τιμή, θέση, i
ΑΡΧΗ
! το κύριο πρόγραμμα δεν το ζητάει η εκφώνηση, αλλά χρειάζεται
! για την κλήση του υποπρογράμματος.
!
! Επειδή το υποπρόγραμμα επιστρέφει μόνο ένα αριθμό το υλοποιούμε
! σε ΣΥΝΑΡΤΗΣΗ
  ΓΡΑΨΕ 'Δώστε τιμή για αναζήτηση: '
  ΔΙΑΒΑΣΕ τιμή

  ΓΡΑΨΕ 'Δώστε τιμές πίνακα'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 1000
    ΔΙΑΒΑΣΕ x[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  θέση <- αναζήτηση (x, τιμή) 
  ΑΝ θέση > 0 ΤΟΤΕ
    ΓΡΑΨΕ 'Βρέθηκε στη θέση: ', θέση
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Δεν βρέθηκε'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ αναζήτηση (x, τιμή): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x[1000], τιμή, i
  ΛΟΓΙΚΕΣ: βρέθηκε
ΑΡΧΗ
  i <- 1
  αναζήτηση <- 0

! εφοσον η εκφώνηση αναφέρει ότι οι αριθμοί είναι διαφορετικοί
! μεταξύ τους, η αναζήτηση θα σταματήσει όταν βρεθεί ο αριθμός
  βρέθηκε <- ΨΕΥΔΗΣ
  ΟΣΟ i <= 1000 ΚΑΙ βρέθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    ΑΝ x[i] = τιμή ΤΟΤΕ
      βρέθηκε <- ΑΛΗΘΗΣ
      αναζήτηση <- i
    ΑΛΛΙΩΣ
      i <- i + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

 

© 2020 - 2ο Γενικό Λύκειο Γέρακα - Βασίλειος Αναστόπουλος