If

Να γίνει πρόγραμμα σε Pascal το οποίο βρίσκει τη μεγαλύτερη τιμή από ένα πλήθος τιμών που επιθυμεί ο χρήστης. Το πρόγραμμα πρέπει να υλοποιεί τα παρακάτω:
 
  1. Διαβάζει το πλήθος των τιμών που θέλει να εισάγει ο χρήστης, κάνοντας έλεγχο εγκυρότητας για το πλήθος το οποίο πρέπει να είναι στο διάστημα τιμών 1 έως και 20. Στην περίπτωση λανθασμένης πληκτρολόγησης το πλήθος πρέπει να εισάγεται ξανά.
  2. Καλεί διαδικασία με όνομα MAX η οποία δέχεται το πλήθος των τιμών που θα εισαχθούν και στην συνέχεια διαβάζει τις τιμές και επιστρέφει τη μεγαλύτερη τιμή στο πρόγραμμα.
  3. Εμφανίζει τη μεγαλύτερη τιμή από αυτές που δόθηκαν.
Σε όλες τις εντολές εισόδου και εξόδου να υπάρχουν κατάλληλα διαμορφωμένα μηνύματα.
 
Σε ένα κατάστημα παιχνιδιών η θέρμανση καλύπτεται από σύγχρονο μηχάνημα το οποίο ανιχνεύει τη θερμοκρασία του χώρου ελέγχοντας 4 αισθητήρες. Οι αισθητήρες βρίσκονται σε διάφορα σημεία του καταστήματος. Αν η μέση θερμοκρασία σε αυτά τα σημεία δεν είναι τουλάχιστον 20 βαθμούς το μηχάνημα ενεργοποιείται. Να γράψετε πρόγραμμα το οποίο πραγματοποιεί τα παρακάτω:
  1. Διαβάζει τις θερμοκρασίες των αισθητήρων.
  2. Εμφανίζει το μήνυμα "ΟΝ" αν το μηχάνημα πρέπει να ενεργοποιηθεί και το μήνυμα "OFF", αν το μηχάνημα δε χρειάζεται να ενεργοποιηθεί.
 
Να δημιουργηθεί πρόγραμμα σε Pascal το οποίο να διαβάζει τον προφορικό και το γραπτό βαθμό ενός υποψηφίου σε κάποια εξέταση. Να γίνεται έλεγχος εγκυρότητας των βαθμών, έτσι ώστε να είναι από 0 έως 100. Για να είναι επιτυχής η εξέταση θα πρέπει η διαφορά των βαθμών να μην υπερβαίνει το 20 και το άθροισμα των βαθμών να είναι τουλάχιστον 100. Το πρόγραμμα να εμφανίζει αν ο υποψήφιος πέτυχε ή απέτυχε στην εξέταση.
 
Μια επιχείρηση έχει 60 υπαλλήλους. Να γραφεί πρόγραμμα σε Pascal το οποίο να:
  • διαβάσει επαναληπτικά το όνομα και τον μηνιαίο μισθό κάθε υπαλλήλου της επιχείρησης,
  • να βρίσκει και να εμφανίζει το όνομα του πιο ακριβοπληρωμένου υπαλλήλου καθώς και τον μισθό του,
  • να εμφανίζει το συνολικό ποσό που πρέπει να καταβάλλει η επιχείρηση στους υπαλλήλους της.

Θεωρήστε ότι ο μηνιαίος μισθός είναι θετικός ακέραιος αριθμός.

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

Σελίδες