Ασκήσεις επανάληψης σε python

Στον παρακάτω σύνδεσμο υπάρχουν συγκεντρωμένες οι ασκήσεις σε python που έχουν γίνει στο εργαστήριο με τις εκφωνήσεις υπό μορφή σχολίων.

Ασκήσεις python δομών ακολουθίας και επιλογής

Ασκήσεις python δομών ακολουθίας, επιλογής, επανάληψης και συναρτήσεων

Μέσο ύψος μαθητών

Program ypsos;
var s,i,y:integer;
mo:real;
Begin
s:=0;
i:=0;
repeat
write('Δώσε το ύψος του μαθητή: ');
readln(y);
i:=i+1;
s:=s+y;
until y=0;
mo:=s/(i-1);
writeln('Το μέσο ύψος είναι: ',mo:8:2);
End.

Εκτέλεση:

Δώσε το ύψος του μαθητή: 160
Δώσε το ύψος του μαθητή: 150
Δώσε το ύψος του μαθητή: 180
Δώσε το ύψος του μαθητή: 0
Το μέσο ύψος είναι:   163.33

Έλεγχος αν ένα τρίγωνο είναι ισοσκελές

Να γίνει πρόγραμμα σε pascal που να διαβάζει το μήκος των 3 πλευρών ενός τριγώνου και να ελέγχει και να εμφανίζει μήνυμα αν το τρίγωνο είναι ισοσκελές ή όχι. Ένα τρίγωνο είναι ισοσκελές όταν έχει δυο πλευρές ίσες.








Απάντηση

Αντίστροφη μέτρηση έως το 0

Να γίνει πρόγραμμα σε pascal που να διαβάζει έναν θετικό ακέραιο αριθμό και να εμφανίζει την αντίστροφη μέτρηση από αυτόν τον αριθμό έως το 0. Να γίνει χρήση της δομής επανάληψης repeat..until.






Απάντηση

Πρόγραμμα με χαρακτηρισμό βαθμού

Να γίνει πρόγραμμα σε Pascal που να διαβάζει έναν βαθμό από το 0 έως το 20 (επιτρέπονται δεκαδικά ψηφία) και να εμφανίζει τον  αντίστοιχο χαρακτηρισμό:

• Ανεπαρκώς αν ο βαθμός είναι μεγαλύτερος ή ίσος με το 0 και μικρότερος ή ίσος με το 9
• Μέτρια αν ο βαθμός είναι μεγαλύτερος από το 9 και μικρότερος ή ίσος με το 12
• Καλά αν ο βαθμός είναι μεγαλύτερος από το 12 και μικρότερος ή ίσος με το 15
• Πολύ Καλά αν ο βαθμός είναι μεγαλύτερος από το 15 και μικρότερος ή ίσος με το 18
• Άριστα αν ο βαθμός είναι μεγαλύτερος από το 18 και μικρότερος ή ίσος με το 20 

Λύση:

Program vathmos;
var v:real;
Begin
    repeat
        write('Δώσε έναν βαθμό μεταξύ 0 και 20 :');
        readln(v);
    until (v>=0) and (v<=20);
    if (v>=0) and (v<=9) then
    writeln('Ανεπαρκώς');
    if (v>9) and (v<=12) then
    writeln('Μέτρια');
    if (v>12) and (v<=15) then
    writeln('Καλά');
    if (v>15) and (v<=18) then
    writeln('Πολύ Καλά');
    if (v>18) and (v<=20) then
    writeln('Άριστα');
End.

Εύρεση μεγαλύτερου αριθμού

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

Λύση:

Program find_max;
var a,i,max,n:integer;
Begin
    write('Δώσε το πλήθος ν των αριθμών :');
    readln(n);
    write('Δώσε τον 1ο αριθμό :');
    readln(a);
    max:=a;
    for i:=2 to n do
    begin
        write('Δώσε τον ',i,'ο αριθμό :');
        readln(a);
        if a>max then
            max:=a;
    end;
    writeln('Ο μεγαλύτερος είναι ο :',max);
End.

Επίλυση πρωτοβάθμιας εξίσωσης με την PASCAL

Program prwtovathmia;
Uses crt;
Var a,b:integer;
x:real;
Begin
Clrscr;
Repeat
         Write('Δώσε τον Α:');
         Readln(a);
Until a<>0;
Write('Δώσε τον Β:');
Readln(b);
x:=-b/a;
Writeln('To x einai ',x:8:2);
Readln;
End.

Αντιστροφή διψήφιου αριθμού

program antistrofi;
var a,b,c,d:integer;
begin
repeat
    write('Δώσε έναν διψήφιο αριθμό:');
    readln(a);
until (a>=10) and (a<=99);
b:=a div 10;
c:=a mod 10;
d:=c*10+b;
writeln('Ο αντίστροφος είναι:',d);
End.

Ακέραια Διαίρεση

Πρόγραμμα σε Pascal που υπολογίζει το πηλίκο και το υπόλοιπο ακέραιας διαίρεσης.
Π.χ. Αν διαιρέσουμε το 9 με το 2, το πηλίκο είναι 4 (το 2 χωράει 4 φορές στο 9) και το υπόλοιπο είναι 1 (περισσεύει 1, 9-4 Χ 2=9-8=1).






Program diairesi;
Uses crt;
Var a,b,c,d:integer;
Begin
Clrscr;
     Write('Δώσε τον διαιρετέο:');
     Readln(a);
     Write('Δώσε τον διαιρέτη:');
     Readln(b);
     c:=a div b;
     d:=a mod b;
     Writeln('Το πηλίκο είναι:',c);
     Writeln('Το υπόλοιπο είναι:',d);
     Readln;
End.

Προπαίδεια με Pascal

Program multi;
uses crt;
var i,j:integer;
Begin
clrscr;
for i:=1 to 10 do
begin
    for j:=1 to 10 do
        write(i*j:5);
    writeln;
end;
readln;
End.

Πρόγραμμα με όριο γινομένου με 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 θα τυπώνει το μήνυμα "Επιτυχών" αλλιώς θα τυπώνει το μήνυμα "Όχι Επιτυχών".

 Λύση Άσκησης

Πρόγραμμα Pascal με διπλάσιο και τριπλάσιο αριθμού

Να γράψετε πρόγραμμα pascal το οποίο να διαβάζει έναν αριθμό και να εμφανίζει τον ίδιο, το διπλάσιο και το τριπλάσιό του.

Λύση 1

Λύση 2

Έλεγχος θετικού αρνητικού μηδενός

Να γίνει πρόγραμμα σε pascal που θα ζητάει έναν αριθμό και θα  εμφανίζει τα μηνύματα:

ΑΡΝΗΤΙΚΟΣ       αν ο αριθμός είναι μικρότερος από το 0
ΜΗΔΕΝ                αν ο αριθμός είναι ίσος με το 0
ΘΕΤΙΚΟΣ             αν ο αριθμός είναι μεγαλύτερος από το


Λύση

Άσκηση Pascal με φόρο εισοδήματος

Να γίνει πρόγραμμα που θα διαβάζει το ετήσιο εισόδημα ενός φορολογούμενου. Αν το εισόδημα είναι έως 10.000 € ο φόρος θα είναι το 5% του εισοδήματος. Αν το εισόδημα είναι πάνω από 10.000 € ο φόρος θα είναι το 8% του εισοδήματος. Το πρόγραμμα θα υπολογίζει και θα εμφανίζει το φόρο εισοδήματος

Λύση Άσκησης