Επιλογές και επαναλήψεις

Διομήδης Σπινέλλης
Τμήμα Διοικητικής Επιστήμης και Τεχνολογίας
Οικονομικό Πανεπιστήμιο Αθηνών
dds@aueb.gr

Προηγούμενα θέματα για σκέψη

Γράψτε ένα πρόγραμμα το οποίο διαβάζει την ακτίνα και το ύψος ενός κυλίνδρου και τυπώνει το ύψος του.

program CylinderVolume;
{ Read and print a cylinder volume }
var
	Height, R: real;
const
	p = 3.1415127;
begin
	write('Height:');
	readln(Height);
	write('R:');
	readln(R);
	writeln;
	writeln('Height:', Height);
	writeln('R:', R);
	writeln('Volume:', 2.0 * p * sqr(R) * Height)
end.

Ο τύπος boolean

Ο τύπος boolean ορίζεται από το πεδίο τιμών {true, false}.
Μεταβλητές τύπου boolean ορίζονται σύμφωνα με το παρακάτω παράδειγμα:
```
var
	isprime: boolean;
```
Οι παρακάτω τελεστές παράγουν αποτέλεσμα τύπου boolean:

=
Ισότητα
<>
Διάφορο
<
Μικρότερο
>
Μεγαλύτερο
<=
Μικρότερο ή ίσο
>=
Μεγαλύτερο ή ίσο

Παράδειγμα:

program example;
var
	a, b: integer;
	AreSame, AreDifferent: boolean;
	CopyOfAreSame: boolean;
begin
	readln(a, b);
	AreSame := (a = b);
	AreDifferent := (a <> b);
	CopyOfAreSame := AreSame
end.

Επιλογή

Με την εντολή if μπορούμε να εκτελέσουμε εντολές κατ' επιλογή ανάλογα με μια συνθήκη τύπου boolean.

Η εντολή if έχει την παρακάτω μορφή:

	if συνθήκη then
		εντολή1
	else
		εντολή2

Παράδειγμα:

program CheckGrade;
var
	Grade: integer;
begin
	write('Δώστε το βαθμό:');
	readln(Grade);
	if Grade >= 5 then
		writeln('Πέρασες')
	else
		writeln('Κόπηκες')
end.

Σύνθετη εντολή

Μπορούμε να ομαδοποιήσουμε εντολές περικλείοντάς τις ανάμεσα σε begin και end.
Η ομάδα αυτή έχει την παρακάτω μορφή:
```
	begin
		εντολή;
		εντολή;
		εντολή
	end
```
Την ομάδα αυτή μπορούμε να τη χρησιμοποιήσουμε εκεί που επιτρέπεται η χρήση μιας μόνο εντολής όπως λ.χ. μετά το then και το else.

Παράδειγμα:

program CheckGrade2;
var
	Grade: integer;
begin
	write('Δώστε το βαθμό:');
	readln(Grade);
	if Grade &gt;= 5 then
	begin
		writeln('Πέρασες');
		writeln(':-)')
	end
	else
	begin
		writeln('Κόπηκες');
		writeln(':-(')
	end
end.

Επανάληψη

Με την εντολή while μπορούμε να εκτελέσουμε εντολές κατ' επανάληψη ανάλογα με μια συνθήκη τύπου boolean.
Η εντολή while έχει την παρακάτω μορφή:
```
	while συνθήκη do
		εντολή
```

Παράδειγμα:

program PrintSquares;
{Εκτυπώνει τα τετράγωνα από το 1..10}
var
	i: integer;
begin
	i := 1;
	while i <= 10 do
	begin
		writeln(i, sqr(i));
		i := i + 1
	end
end.

Βιβλιογραφία

Θ. Αλεβίζου, Α. Καμπουρέλη Μαθήματα προγραμματισμού: Εισαγωγή με τη γλώσσα Pascal. σ. 115-157 Θυμέλη, 1995.

Doug Cooper and Michael Clancy. Oh! Pascal, pages 176–188, 216–224. W. W. Norton & Company, second edition, 1985.

Περιεχόμενα