Τώρα είναι Παρ 29 Μαρ 2024 12:00 am

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Καταθέσεις τράπεζας
ΔημοσίευσηΔημοσιεύτηκε: Παρ 21 Μαρ 2003 05:25 pm 
Χωρίς σύνδεση
Διαχειριστής

Εγγραφή: Παρ 28 Φεβ 2003 06:10 pm
Δημοσιεύσεις: 84
Syntax: [ Download ] [ Hide ]
! ==============================================================================
! Μια τράπεζα έχει 100 πελάτες. Να γίνει πρόγραμμα το οποίο:
!   Α) Να ζητάει το ονοματεπώνυμο και το ποσό κατάθεσης του κάθε πελάτη.
!   Β) Να βρίσκει και να εμφανίζει τα ονοματεπώνυμα και τις καταθέσεις των 10
!      καλύτερων πελατών, σε φθίνουσα σειρά.
! ==============================================================================


ΠΡΟΓΡΑΜΜΑ Καταθέσεις_τράπεζας

ΣΤΑΘΕΡΕΣ
  Ν=100
  Κ=10

ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ονοματεπώνυμα[Ν], βοηθητική_χαρ
  ΠΡΑΓΜΑΤΙΚΕΣ: καταθέσεις[Ν], βοηθητική_πραγμ
  ΑΚΕΡΑΙΕΣ: i, j

ΑΡΧΗ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώσε το ονοματεπώνυμο του ', i, 'ου πελάτη:'
    ΔΙΑΒΑΣΕ ονοματεπώνυμα[i]
    ΓΡΑΨΕ 'Δώσε το ποσό κατάθεσης του ', i, 'ου πελάτη:'
    ΔΙΑΒΑΣΕ καταθέσεις[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ καταθέσεις[j-1]<καταθέσεις[j] ΤΟΤΕ

        βοηθητική_πραγμ <-- καταθέσεις[j]
        καταθέσεις[j] <-- καταθέσεις[j-1]
        καταθέσεις[j-1] <-- βοηθητική_πραγμ

        βοηθητική_χαρ <-- ονοματεπώνυμα[j]
        ονοματεπώνυμα[j] <-- ονοματεπώνυμα[j-1]
        ονοματεπώνυμα[j-1] <-- βοηθητική_χαρ

      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Οι καλύτεροι πελάτες είναι οι εξής...'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Κ
    ΓΡΑΨΕ 'Ονοματεπώνυμο: ', ονοματεπώνυμα[i], '  Κατάθεση: ', καταθέσεις[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Καταθέσεις_τράπεζας

 


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση : Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: