Προγραμματισμός με τη Free Pascal - Μέρος 3ο

From Ubuntucy Wiki

Συγγραφή: Χατζηκυριάκου Γιώργος

---

Σε αυτό το μέρος θα μελετήσουμε τις προτάσεις ελέγχου ροής στη Pascal

Contents 1 H Πρόταση Ελέγχου IF…THEN 2 H Πρόταση Ελέγχου IF…THEN…ELSE 3 H Πρόταση Ελέγχου CASE 4 Ασκήσεις

H Πρόταση Ελέγχου IF…THEN

Συντάσσεται:

If «πρόταση» then
Begin
  «εντολές»
End;

Ο σκοπός της πρότασης ελέγχου IF…THEN είναι να ελέγχει μια έκφραση αν είναι αληθής ή ψευδής. Σε περίπτωση που είναι αληθής τότε εκτελούνται οι εντολές που ακολουθούν αλλιώτικα παραλείπονται άρα δεν εκτελούνται. Για παράδειγμα:

Αν η μεταβλητή a είναι μεγαλύτερη από 0 τότε τύπωσε στην οθόνη «Θετικός» αν είναι μικρότερη από 0 τότε τύπωσε «Αρνητικός» και αν είναι ίση με 0 τότε τύπωσε «Έδωσες 0».

στην Pascal ….

Πρόγραμμα 1

Program Lesson3_Program1;
Var a : Integer;
Begin
 Write('Dose arithmo:');
 Readln(a);
 if (a>0) then
    Begin
    Write('Thetikos');
    End;
 if (a<0) then
    Begin
    Write('Arnitikos');
    End;
 if (a=0) then
    Begin
    Write('Edoses 0');
    End;
End.

H Πρόταση Ελέγχου IF…THEN…ELSE

Συντάσσεται:

If «πρόταση» then
Begin
  «εντολές»
End
else
Begin
  «εντολές»
End;

Ο σκοπός που βάζουμε το ELSE (αλλιώτικα) σε μια πρόταση ελέγχου IF…THEN είναι σε περίπτωση που δεν ισχύουν οι IF αλλά κάτι άλλο. Για παράδειγμα: Αν η μεταβλητή b είναι μεγαλύτερη η ίση με 100 τότε τύπωσε «ΟΚ» αλλιώτικα τύπωσε «Error».

Πρόγραμμα 2

Program Lesson3_Program2;
Var b : Integer;
Begin
 Write('Dose arithmo:');
 Readln(b);
 if (b>=100) then
 Begin
 Write('OK');
 End
 else
 Begin
 Writeln('Error');
 End;
End.

Σε περίπτωση τώρα που έχουμε πάνω από μια συνθήκες να ελέγξουμε χρησιμοποιούμε τους λογικούς τελεστές AND και OR. Το AND το χρησιμοποιούμε άμα ισχύουν ΟΛΕΣ οι προτάσεις ενώ το OR χρησιμοποιείτε αν ισχύει ΜΙΑ από τις προτάσεις. Για παράδειγμα: Αν η μεταβλητή c είναι μικρότερη από 100 KAI μεγαλύτερη από 0 τότε τύπωσε «Είσαι μέσα στα όρια» αλλιώτικα τύπωσε «Είσαι εκτός ορίων».

Πρόγραμμα 3

Program Lesson3_Program3;
Var c : Integer;
Begin
 Write('Dose arithmo:');
 Readln(c);
 if (c>=0) and (c<=100) then
    Begin
    Write('Eise mesa sta oria')
    End
 else
    Begin
    Write('Eise ektos oriwn');
    End;
End.

H Πρόταση Ελέγχου CASE

Παίζει τον ρόλο των πολλών IF, από τις οποίες θα εκτελεστεί μόνο η μία.

Πρόγραμμα 4

Program Lesson3_Program4;
Var c : char;
Begin
 Write('Dose a,b or c:');
 Readln(c);
case c of
	'a':
 	Begin
 	writeln('alpha');
 	End;
	'b':
 	Begin
 	writeln('beta');
 	End;
	'c':
 	Begin
 	writeln('gamma');
 	End;
End;
End.

Ασκήσεις

1.Να γράψετε πρόγραμμα στη Pascal που θα ζητά δυο ακεραίους αριθμούς και να τυπώνει τον μεγαλύτερο. 

2.Να γράψετε πρόγραμμα στη Pascal που θα μετατρέπει ποσά από Κυπριακή λύρα σε Ευρώ καθώς και από Ευρώ σε Κυπριακή λύρα. 
Στην αρχή του προγράμματος να υπάρχει μενού όπου θα επιλέγουμε τι μετατροπή θέλουμε να κάνουμε. 
Να υλοποιηθεί με Case . Το μενού να είναι της μορφής:

1.EUR - CYP
2.CYP - EUR
Select>_

Στο επόμενο μέρος θα μελετήσουμε τα είδη βρόγχων που μπορούμε να χρησιμοποιήσουμε στη Pascal.