Repeat..until

Να γίνει πρόγραμμα σε Pascal το οποίο βρίσκει τη μεγαλύτερη τιμή από ένα πλήθος τιμών που επιθυμεί ο χρήστης. Το πρόγραμμα πρέπει να υλοποιεί τα παρακάτω:
 
  1. Διαβάζει το πλήθος των τιμών που θέλει να εισάγει ο χρήστης, κάνοντας έλεγχο εγκυρότητας για το πλήθος το οποίο πρέπει να είναι στο διάστημα τιμών 1 έως και 20. Στην περίπτωση λανθασμένης πληκτρολόγησης το πλήθος πρέπει να εισάγεται ξανά.
  2. Καλεί διαδικασία με όνομα MAX η οποία δέχεται το πλήθος των τιμών που θα εισαχθούν και στην συνέχεια διαβάζει τις τιμές και επιστρέφει τη μεγαλύτερη τιμή στο πρόγραμμα.
  3. Εμφανίζει τη μεγαλύτερη τιμή από αυτές που δόθηκαν.
Σε όλες τις εντολές εισόδου και εξόδου να υπάρχουν κατάλληλα διαμορφωμένα μηνύματα.
 
Να δημιουργηθεί πρόγραμμα σε Pascal το οποίο να διαβάζει τον προφορικό και το γραπτό βαθμό ενός υποψηφίου σε κάποια εξέταση. Να γίνεται έλεγχος εγκυρότητας των βαθμών, έτσι ώστε να είναι από 0 έως 100. Για να είναι επιτυχής η εξέταση θα πρέπει η διαφορά των βαθμών να μην υπερβαίνει το 20 και το άθροισμα των βαθμών να είναι τουλάχιστον 100. Το πρόγραμμα να εμφανίζει αν ο υποψήφιος πέτυχε ή απέτυχε στην εξέταση.
 
Δύο μεγάλα πανεπιστήμια της χώρας θέλησαν να συγκεντρώσουν ένα χρηματικό πόσο μεγαλύτερο από 200.000 €, για να πραγματοποιηθούν περιβαλλοντικά έργα στην περιοχή όπου εδρεύουν. Προσκάλεσαν λοιπόν μεγάλες εταιρείες να δώσουν χορηγίες για την συγκέντρωση αυτών των χρημάτων έτσι ώστε να ολοκληρωθούν τα έργα.
Να γίνει πρόγραμμα σε Pascal το οποίο να:
  • Διαβάζει επαναληπτικά τις χορηγίες των εταιρειών μέχρι το συνολικό πόσο να ξεπεράσει τις 200.000 €. Να γίνεται έλεγχος στο ποσό της χορηγίας κάθε εταιρείας που πρέπει να είναι θετικός αριθμός.
  • Να εμφανίζει σχετικό μήνυμα για το αν ο χορηγός θα λάβει έπαινο για τη χορηγία του. Έπαινο λαμβάνουν οι χορηγοί με ποσό τουλάχιστον 50.000 €. Το πρόγραμμα θα πρέπει να εμφανίζει ευχαριστήριο μήνυμα στην περίπτωση που ο χορηγός πήρε έπαινο αλλά και στην περίπτωση που δεν πήρε.
  • Μετά από κάθε χορηγία να εμφανίζεται το ποσό που έχει συγκεντρωθεί, καθώς και το ποσό που απομένει μέχρι να ολοκληρωθεί η διαδικασία.
  • Μετά την συγκέντρωση του απαιτούμενο ποσού να εμφανίζει το πλήθος των χορηγών από τους οποίους συγκεντρώθηκε το ποσό, καθώς και τον πλήθος των χορηγών που πήραν έπαινο.
Στα πλαίσια ενός προγράμματος ανακύκλωσης, ο Δήμαρχος μιας πόλης αποφάσισε να καλέσει τα 40 σχολεία του νομού να μαζέψουν ποσότητες χαρτιού και αλουμινίου. Να γίνει πρόγραμμα σε γλώσσα προγραμματισμού Pascal το οποίο:
  • Για κάθε ένα από τα 40 σχολεία, να διαβάζει την ονομασία του και τις ποσότητες χαρτιού και αλουμίνιου σε κιλά (πραγματικός αριθμός). Να γίνεται έλεγχος δεδομένων εισόδου για τις ποσότητες χαρτιού και αλουμινίου που πρέπει να είναι θετικές τιμές.
  • Να βρίσκει και να εμφανίζει τον αριθμό των σχολείων που συγκέντρωσαν ποσότητα χαρτιού μεγαλύτερη από 100 κιλά.
  • Να βρίσκει και να εμφανίζει τον αριθμό των σχολείων που δε συγκέντρωσαν χαρτί.
  • Να βρίσκει το σχολείο που συγκέντρωσε την μεγαλύτερη ποσότητα σε αλουμίνιο και να εμφανίζεται με κατάλληλο μήνυμα το όνομα του σχολείου και η ποσότητα του αλουμινίου.
Σε ένα super market η υπάλληλος διαθέτει πρόγραμμα το οποίο της επιτρέπει να καταχωρεί την τιμή των προϊόντων που επέλεξε κάποιος πελάτης. Μόλις πληκτρολογήσει την τιμή του τελευταίου προϊόντος εμφανίζεται το σύνολο και ανακοινώνει το ποσό στον πελάτη. Να κατασκευάσετε αντίστοιχο πρόγραμμα το οποίο:
  • θα διαβάζει την τιμή του κάθε προϊόντος που διάλεξε ο πελάτης ,
  • θα εμφανίζει μήνυμα της μορφής "Συνέχεια;.....(ΝΑΙ ή ΟΧΙ)", αν ο χρήστης πληκτρολογήσει τη λέξη 'ΟΧΙ' να τερματίζεται η επαναληπτική διαδικασία ενώ στην αντίθετη περίπτωση να διαβάζει την τιμή του επόμενου προϊόντος.