Κεφάλαιo 11

You got 9 of 9 possible points.
Your score: 100%
Question

Να δώσετε τα αποτελέσματα από την εκτέλεση των παρακάτω εντολών

 

arithmos:=1;
while arithmos < 11 do
   begin
      arithmos: =arithmos + 1;
      write(arithmos:5);
   end;
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

Το αποτέλεσμα θα είναι να τυπωθούν οι αριθμοί από 2 μέχρι και 11

1
Should have chosen

Το αποτέλεσμα θα είναι να τυπωθούν οι αριθμοί από 1 μέχρι και 10

0
Question

tΝα αλλάξετε τη σειρά των εντολών του παρακάτω αλγορίθμου ώστε το
αποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.

 

arithmos:=1;
while arithmos < 11 do
begin
arithmos: =arithmos + 1;
write(arithmos:5);
end;
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

 

arithmos:=1;
while arithmos < 11 do
begin
write(arithmos:5);
arithmos:=arithmos + 1;
end;
 

1
Should have chosen

 

arithmos:=1;
while arithmos <10 do
begin
write(arithmos:5);
arithmos:=arithmos + 1;
end;
 

0
Question

Να δώσετε τη μορφή της εντολής επανάληψης while, να εξηγήσετε τη λειτουργία της

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

while λογική έκφραση do εντολή

Κάθε φορά, ακόμα και την πρώτη, πριν εκτελεστεί η εντολή που αποτελεί το σώμα της
επανάληψης (αυτή που βρίσκεται μετά το do) ελέγχεται η λογική έκφραση η οποία
ακολουθεί το while. Στην περίπτωση που η λογική έκφραση δίνει αποτέλεσμα true, η
εντολή μετά το do εκτελείται ενώ στην περίπτωση που η λογική έκφραση δίνει ως απο-
τέλεσμα false η εντολή μετά το do δεν εκτελείται και ο έλεγχος περνά στην επόμενη
εντολή του προγράμματος. Στην περίπτωση που μετά το do αντί για μία, έχουμε ομάδα
εντολών, αυτές τοποθετούνται μεταξύ των λέξεων begin ? end.

Η εντολή while χρησιμοποιείται για μη προκαθορισμένο αριθμό επαναλήψεων.

1
Should have chosen

while i:=αρχική τιμή to τελική τιμή do

Η εντολή που ακολουθεί το do μπορεί να είναι απλή ή σύνθετη Σύνθετη εντολή είναι η εντολή που περιλαμβάνεται ανάμεσα στις λέξεις begin-end (δείτε σελ. 94)
και εκτελείται μέχρις ότου η μεταβλητή ελέγχου αποκτήσει τιμή ίση με την τελική τιμή. Αν η αρχική τιμή είναι
μεγαλύτερη από την τελική, οι εντολές που ακολουθούν το do δεν εκτελούνται.

0
Question

Να δώσετε τη μορφή της εντολής επανάληψης repeat until, να εξηγήσετε τη λειτουργία της

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

 repeat
εντολή_1;
εντολή_2;
??..
εντολή_ν;
until (λογική έκφραση);
 

Η εντολή repeat χρησιμοποιείται για μη προκαθορισμένο αριθμό επαναλήψεων. Ο
έλεγχος για την επανάληψη γίνεται στο τέλος του κύκλου των εντολών που επαναλαμ-
βάνονται. Το χαρακτηριστικό της επανάληψης repeat είναι ότι η εντολή / ες που περιέ-
χονται, εκτελούνται τουλάχιστον μια φορά.

1
Should have chosen

 until (λογική έκφραση);
εντολή_1;
εντολή_2;
??..
εντολή_ν;

repeat

 

Κάθε φορά, ακόμα και την πρώτη, πριν εκτελεστεί η εντολή που αποτελεί το σώμα της
επανάληψης (αυτή που βρίσκεται μετά το do) ελέγχεται η λογική έκφραση η οποία
ακολουθεί το until. Στην περίπτωση που η λογική έκφραση δίνει αποτέλεσμα true, η
εντολή μετά το do εκτελείται ενώ στην περίπτωση που η λογική έκφραση δίνει ως απο-
τέλεσμα false η εντολή μετά το do δεν εκτελείται και ο έλεγχος περνά στην επόμενη
εντολή του προγράμματος.

0
Question

Πόσες επαναλήψεις θα έχουμε από την εκτέλεση των παρακάτω εντολών

 

arithmos:=1;

 

telos:= false;
while not (telos) do
begin
  arithmos:=arithmos + 2 ;
  if arithmos > 100 then
     telos :=true;
end;
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer

51

0

100

0
Selected

50

1
Should have chosen
Question

Να τροποποιήσετε τον κώδικα ώστε, να δίνει τα ίδια αποτελέσματα με τη
χρήση των εντολών repeat until

 

athroisma: =0;
metritis :=0;
while metritis < 10 do
 begin
  athroisma:=athroisma + metritis;
  writeln(metritis:10,athroisma:10);
  metritis:= metritis + 1;
end;
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

 

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.
 

1
Should have chosen

 

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.
 

0
Question

Να δώσετε τη μορφή της εντολής επανάληψης for, να εξηγήσετε τη λειτουργία της
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer

for λογική συνθήκη do

begin
      Εντολή1;

     Εντολή2;

      Εντολή3;

end;

 

Η εντολή for χρησιμοποιείται για μη προκαθορισμένο αριθμό επαναλήψεων. Ο
έλεγχος για την επανάληψη γίνεται στην αρχή του κύκλου των εντολών που επαναλαμβάνονται.

Το χαρακτηριστικό της επανάληψης for είναι ότι η εντολή / ες που περιέ-
χονται, εκτελούνται τουλάχιστον μια φορά.

0
Selected

for μεταβλητή:=αρχική_τιμή to τελική_τιμή do
      Εντολή;
Η εντολή που ακολουθεί το do μπορεί να είναι απλή ή σύνθετη

Σύνθετη εντολή είναι η εντολή που περιλαμβάνεται ανάμεσα στις λέξεις begin-end (δείτε σελ. 94)
και εκτελείται μέχρις ότου η μεταβλητή ελέγχου αποκτήσει τιμή ίση με την τελική τιμή. Αν η αρχική τιμή είναι
μεγαλύτερη από την τελική, οι εντολές που ακολουθούν το do δεν εκτελούνται. Η
εντολή for είναι η εντολή προκαθορισμένης επανάληψης διότι ο αριθμός των επανα-
λήψεων είναι εκ των προτέρων γνωστός.
Αν η μεταβλητή ελέγχου αρχίζει από τη μεγαλύτερη τιμή μέχρι τη μικρότερη, τότε η
μορφή της εντολής είναι η παρακάτω:
for μεταβλητή:=αρχική_τιμή downto τελική_τιμή do
   Εντολή;

1
Should have chosen
Question

Να χρησιμοποιήσετε τις εντολές επανάληψης repeat until , ώστε το
αποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.

arithmos:=1;
while arithmos < 11 do
begin
arithmos: =arithmos + 1;
write(arithmos:5);
end;
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

 

program erwtisi;
var
arithmos:integer;
begin
arithmos:=1;
repeat
   write (arithmos:5);
   arithmos:=arithmos+1;
until arithmos>10
end.
 

1
Should have chosen

program erwtisi;
var
arithmos:integer;
begin
arithmos:=0;
repeat
   arithmos:=arithmos+1;

    write (arithmos:5);
until arithmos>10
end.

0
Question

Να χρησιμοποιήσετε την εντολή επανάληψης for , ώστε το
αποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.

arithmos:=1;
while arithmos < 11 do
begin
arithmos: =arithmos + 1;
write(arithmos);
end;
 

Score: 1 of 1
Your answerChoiceScoreCorrect answer
Selected

 

program erwtisi;
var
arithmos:integer;
begin
for arithmos:=1 to 10 do
   write (arithmos);
end.
 

1
Should have chosen

program erwtisi;
var
arithmos:integer;
begin
for arithmos:=0 to 10 do
   write (arithmos);
end.

0