Πρόγραμμα με όριο γινομένου με repeat και while

Να γίνει πρόγραμμα με τις δομές επανάληψης repeat και while που θα διαβάζει αριθμούς και θα τους πολλαπλασιάζει μεταξύ τους μέχρι το γινόμενο να γίνει μεγαλύτερο του 10000 (ή όσο το γινόμενο είναι μικρότερο ή ίσο με το 10000).

Λύση με repeat

Λύση με while

Άθροισμα αριθμών με όριο

Να γίνουν 2 προγράμματα. Το πρώτο με τη δομή επανάληψης while και το δεύτερο με τη δομή επανάληψης repeat. Το πρόγραμμα θα διαβάζει ένα συγκεκριμένο αριθμό, που θα είναι το όριο. Μετά, θα διαβάζει αριθμούς μέχρι το άθροισμα τους να ξεπεράσει τον αριθμό όριο. Π.χ. Αν ο αριθμός όριο είναι το 100, θα ζητάει αριθμούς μέχρι το άθροισμα τους να ξεπεράσει το 100.





Λύση με while

Λύση με repeat

Επανάληψη με while και repeat

Να γίνoυν προγράμματα με τη χρήση των δομων επανάληψης while και repeat που να διαβάζουν το πλήθος των αριθμών που θα προστεθούν και μετά να ζητάνε τόσους αριθμούς (όσο και το πλήθος) και να τους αθροίζουν μεταξύ τους. Στο τέλος να εμφανίζεται και το άθροισμα. (Π.χ. αν ο αριθμός που θα δώσουμε για πλήθος είναι 5, θα ζητηθούν 5 αριθμοί και θα προστεθούν μεταξύ τους).



Λύση Άσκησης με while

Λύση Άσκησης με repeat

Επανάληψη με for

Να γίνει πρόγραμμα με τη χρήση της δομής επανάληψης for που να διαβάζει το πλήθος των αριθμών που θα προστεθούν και μετά να ζητάει τόσους αριθμούς (όσο και το πλήθος) και να τους αθροίζει μεταξύ τους. Στο τέλος να εμφανίζεται και το άθροισμα. (Π.χ. αν ο αριθμός που θα δώσουμε για πλήθος είναι 5, θα ζητηθούν 5 αριθμοί και θα προστεθούν μεταξύ τους).




Λύση Άσκησης

Άσκηση με case και ημέρα εβδομάδας

Να δημιουργηθεί πρόγραμμα σε Pascal που θα ζητάει έναν αριθμό από το 1 έως το 7 και θα εμφανίζει την αντίστοιχη ημέρα της εβδομάδας ξεκινώντας από την Κυριακή. Π.χ. Αν δοθεί το 1 θα εμφανίζεται το μήνυμα 'Κυριακή'. Αν δοθεί το 2 θα εμφανίζεται το μήνυμα 'Δευτέρα' κ.ο.κ.

Λύση της Άσκησης

Εισαγωγή στην εντολή case

Απλό παράδειγμα προγράμματος με  την εντολή case:


Πρόγραμμα με case

και ένα πρόγραμμα με if...then...else if το οποία θα μετατρέψουμε αργότερα σε πρόγραμμα με την χρήση της εντολής case.

Πρόγραμμα με if...then...else if

Άσκηση Pascal

Να γράψετε πρόγραμμα σε Pascal που διαβάζει 4 βαθμούς, υπολογίζει τον Μέσο Όρο τους και τον τυπώνει.
Αν ο Μέσος Όρος είναι πάνω από 15 θα τυπώνει το μήνυμα "Επιτυχών" αλλιώς θα τυπώνει το μήνυμα "Όχι Επιτυχών".

 Λύση Άσκησης