Το πρόβλημα του Bungee jumping

Η ομάδα FearlessGR™ διοργανώνει άλματα Bungee jumping στην Ελλάδα. Για τη συμμετοχή ενός ατόμου σε άλμα, θα πρέπει αυτό να είναι μεγαλύτερο των 17 ετών και μικρότερο των 50 ετών.

Να κατασκευαστεί πρόγραμμα σε γλώσσα Pascal το οποίο:

  1. Να διαβάζει το ονοματεπώνυμο του υποψηφίου και την ηλικία του.
  2. Να υπολογίζει και να εμφανίζει μήνυμα αντίστοιχο του “Ο/Η Γιώργος Γάτος πληρεί τις προϋποθέσεις για άλμα!” ή του “Ο/Η Γιώργος Γάτος δεν πληρεί τις προϋποθέσεις για άλμα.” ανάλογα με τα στοιχεία που δόθηκαν.
  3. Η διαδικασία αυτή θα πρέπει να επαναλαμβάνεται έως ότου διαβαστεί είτε η λέξη “ΤΕΛΟΣ” για όνομα είτε αριθμός ≤0 για ηλικία.

Υπόδειξη: Για τον έλεγχο των δεδομένων θα πρέπει να χρησιμοποιηθεί η εντολή case-of.

program Bungee;

var
  Fullname: string;
  Age: Integer;

begin
  Write('Δώστε το ονοματεπώνυμο του ατόμου: '); Readln(Fullname);
  Write('Δώστε την ηλικία του ατόμου: '); Readln(Age);

  while not ((Fullname = 'ΤΕΛΟΣ') or (Age <= 0)) do
  begin
    case (Age > 17) and (Age < 50) of
      TRUE: Writeln('Ο/Η ', Fullname, ' πληρεί τις προϋποθέσεις για άλμα!');
      FALSE: Writeln('Ο/Η ', Fullname, ' δεν πληρεί τις προϋποθέσεις για άλμα.');
    end;
    Write('Δώστε το ονοματεπώνυμο του ατόμου: '); Readln(Fullname);
    Write('Δώστε την ηλικία του ατόμου: '); Readln(Age);
  end;
end.
Advertisements

Posted on 08/02/2012, in Γλώσσα Pascal, Δομημένος Προγραμματισμός and tagged , , , , . Bookmark the permalink. Σχολιάστε.

Σχολιάστε

Εισάγετε τα παρακάτω στοιχεία ή επιλέξτε ένα εικονίδιο για να συνδεθείτε:

Λογότυπο WordPress.com

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό WordPress.com. Αποσύνδεση / Αλλαγή )

Φωτογραφία Twitter

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Twitter. Αποσύνδεση / Αλλαγή )

Φωτογραφία Facebook

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Facebook. Αποσύνδεση / Αλλαγή )

Φωτογραφία Google+

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Google+. Αποσύνδεση / Αλλαγή )

Σύνδεση με %s

Αρέσει σε %d bloggers: