Να δώσετε τα αποτελέσματα από την εκτέλεση των παρακάτω εντολών
arithmos:=1;while arithmos < 11 do begin arithmos: =arithmos + 1; write(arithmos:5); end;
Το αποτέλεσμα θα είναι να τυπωθούν οι αριθμοί από 1 μέχρι και 10
Το αποτέλεσμα θα είναι να τυπωθούν οι αριθμοί από 2 μέχρι και 11
Πόσες επαναλήψεις θα έχουμε από την εκτέλεση των παρακάτω εντολών
arithmos:=1;
telos:= false;while not (telos) dobegin arithmos:=arithmos + 2 ; if arithmos > 100 then telos :=true;end;
51
50
100
Να δώσετε τη μορφή της εντολής επανάληψης for, να εξηγήσετε τη λειτουργία της
for λογική συνθήκη do
begin Εντολή1;
Εντολή2;
Εντολή3;
end;
Η εντολή for χρησιμοποιείται για μη προκαθορισμένο αριθμό επαναλήψεων. Ο έλεγχος για την επανάληψη γίνεται στην αρχή του κύκλου των εντολών που επαναλαμβάνονται.
Το χαρακτηριστικό της επανάληψης for είναι ότι η εντολή / ες που περιέ- χονται, εκτελούνται τουλάχιστον μια φορά.
for μεταβλητή:=αρχική_τιμή to τελική_τιμή do Εντολή; Η εντολή που ακολουθεί το do μπορεί να είναι απλή ή σύνθετη
Σύνθετη εντολή είναι η εντολή που περιλαμβάνεται ανάμεσα στις λέξεις begin-end (δείτε σελ. 94) και εκτελείται μέχρις ότου η μεταβλητή ελέγχου αποκτήσει τιμή ίση με την τελική τιμή. Αν η αρχική τιμή είναι μεγαλύτερη από την τελική, οι εντολές που ακολουθούν το do δεν εκτελούνται. Η εντολή for είναι η εντολή προκαθορισμένης επανάληψης διότι ο αριθμός των επανα- λήψεων είναι εκ των προτέρων γνωστός. Αν η μεταβλητή ελέγχου αρχίζει από τη μεγαλύτερη τιμή μέχρι τη μικρότερη, τότε η μορφή της εντολής είναι η παρακάτω:for μεταβλητή:=αρχική_τιμή downto τελική_τιμή do Εντολή;
Να δώσετε τη μορφή της εντολής επανάληψης while, να εξηγήσετε τη λειτουργία της
while λογική έκφραση do εντολή
Κάθε φορά, ακόμα και την πρώτη, πριν εκτελεστεί η εντολή που αποτελεί το σώμα της επανάληψης (αυτή που βρίσκεται μετά το do) ελέγχεται η λογική έκφραση η οποία ακολουθεί το while. Στην περίπτωση που η λογική έκφραση δίνει αποτέλεσμα true, η εντολή μετά το do εκτελείται ενώ στην περίπτωση που η λογική έκφραση δίνει ως απο- τέλεσμα false η εντολή μετά το do δεν εκτελείται και ο έλεγχος περνά στην επόμενη εντολή του προγράμματος. Στην περίπτωση που μετά το do αντί για μία, έχουμε ομάδα εντολών, αυτές τοποθετούνται μεταξύ των λέξεων begin ? end.
Η εντολή while χρησιμοποιείται για μη προκαθορισμένο αριθμό επαναλήψεων.
while i:=αρχική τιμή to τελική τιμή do
Η εντολή που ακολουθεί το do μπορεί να είναι απλή ή σύνθετη Σύνθετη εντολή είναι η εντολή που περιλαμβάνεται ανάμεσα στις λέξεις begin-end (δείτε σελ. 94) και εκτελείται μέχρις ότου η μεταβλητή ελέγχου αποκτήσει τιμή ίση με την τελική τιμή. Αν η αρχική τιμή είναι μεγαλύτερη από την τελική, οι εντολές που ακολουθούν το do δεν εκτελούνται.
tΝα αλλάξετε τη σειρά των εντολών του παρακάτω αλγορίθμου ώστε τοαποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.
arithmos:=1;while arithmos < 11 dobegin arithmos: =arithmos + 1;write(arithmos:5);end;
arithmos:=1;while arithmos < 11 dobeginwrite(arithmos:5); arithmos:=arithmos + 1;end;
arithmos:=1;while arithmos <10 dobeginwrite(arithmos:5); arithmos:=arithmos + 1;end;
Να χρησιμοποιήσετε τις εντολές επανάληψης repeat until , ώστε τοαποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.
program erwtisi;var arithmos:integer;begin arithmos:=1;repeat write (arithmos:5); arithmos:=arithmos+1;until arithmos>10end.
program erwtisi;var arithmos:integer;begin arithmos:=0;repeat arithmos:=arithmos+1;
write (arithmos:5);until arithmos>10end.
Να τροποποιήσετε τον κώδικα ώστε, να δίνει τα ίδια αποτελέσματα με τηχρήση των εντολών repeat until
athroisma: =0; metritis :=0;while metritis < 10 do begin athroisma:=athroisma + metritis; writeln(metritis:10,athroisma:10); metritis:= metritis + 1;end;
program erwtisi_11_10_1;var athroisma,metritis:integer;begin athroisma:=0; metritis:=0;repeat athroisma:=athroisma+metritis; writeln(metritis:10, athroisma:10); metritis:=metritis+1;until metritis > 10;end.
program erwtisi_11_10_1;var athroisma,metritis:integer;begin athroisma:=0; metritis:=0;repeat athroisma:=athroisma+metritis; writeln(metritis:10, athroisma:10); metritis:=metritis+1;until metritis > 9;end.
Να χρησιμοποιήσετε την εντολή επανάληψης for , ώστε τοαποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.
arithmos:=1;while arithmos < 11 dobegin arithmos: =arithmos + 1;write(arithmos);end;
program erwtisi;var arithmos:integer;beginfor arithmos:=0 to 10 do write (arithmos);end.
program erwtisi;var arithmos:integer;beginfor arithmos:=1 to 10 do write (arithmos);end.
Να δώσετε τη μορφή της εντολής επανάληψης repeat until, να εξηγήσετε τη λειτουργία της
repeat εντολή_1; εντολή_2; ??.. εντολή_ν; until (λογική έκφραση);
Η εντολή repeat χρησιμοποιείται για μη προκαθορισμένο αριθμό επαναλήψεων. Ο έλεγχος για την επανάληψη γίνεται στο τέλος του κύκλου των εντολών που επαναλαμ- βάνονται. Το χαρακτηριστικό της επανάληψης repeat είναι ότι η εντολή / ες που περιέ- χονται, εκτελούνται τουλάχιστον μια φορά.
until (λογική έκφραση); εντολή_1; εντολή_2; ??.. εντολή_ν;
repeat
Κάθε φορά, ακόμα και την πρώτη, πριν εκτελεστεί η εντολή που αποτελεί το σώμα της επανάληψης (αυτή που βρίσκεται μετά το do) ελέγχεται η λογική έκφραση η οποία ακολουθεί το until. Στην περίπτωση που η λογική έκφραση δίνει αποτέλεσμα true, η εντολή μετά το do εκτελείται ενώ στην περίπτωση που η λογική έκφραση δίνει ως απο- τέλεσμα false η εντολή μετά το do δεν εκτελείται και ο έλεγχος περνά στην επόμενη εντολή του προγράμματος.