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

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

Αντίστροφη μέτρηση έως το 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 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.

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

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

Λύση με repeat

Λύση με while

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

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





Λύση με while

Λύση με repeat