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