Άσκηση-B01 (Απάντηση)
| Α | Β | ||||||||
Απ// 4 – επαναλήψεις |
Απ// άπειρες – επαναλήψεις (ΑΤΕΡΜΩΝ βρόγχος) |
||||||||
| Γ | Δ | ||||||||
Απ// 3 – επαναλήψεις |
Απ// |
Άσκηση-Β02 (Απάντηση)
Πίνακας τιμών των μεταβλητών
| x | y | (x div y > 0 | (y mod 2 = 0) | οθόνη |
| 9 8 7 6 |
2 4 6 8 |
Αληθής Αληθής Αληθής Ψευδής |
Αληθής Αληθής Αληθής Αληθής |
6 8 |
Διάγραμμα ροής
 |
Άσκηση-Β03 (Απάντηση)
Πίνακας τιμών των μεταβλητών
| x | y | z | w | (z > x) | (w < 0) | οθόνη |
| 13 8 3 5 |
29 9 0 2 |
– 21 8 1 |
– 23 6 -1 |
– Αληθής Αληθής Ψευδής |
– Ψευδής Ψής Αληθής |
5 2 1 -1 |
Διάγραμμα ροής
 |
Άσκηση-Β04 (Απάντηση)
Πίνακας τιμών των μεταβλητών
| x | y | (x div 2 ≤ 11) | οθόνη |
| 2 -2 9 15 11 22 41 |
1 4 7 1 4 7 |
Αληθής – – Αληθής – – Ψευδής |
– – – – – – 41 7 |
Διάγραμμα ροής
 |
Άσκηση-Β05 (Απάντηση)
Πίνακας τιμών των μεταβλητών
| x | y | z | a | (y > 12* a) | οθόνη |
| – 20 24 28 32 60 71 82 |
1 11 23 37 18 48 83 43 |
5 – – – 12 |
– 2 – – 6 – – 10 |
– Ψευδής Ψευδής Αληθής – Ψευδής Αληθής |
82 43 12 10 |
Διάγραμμα ροής
 |
Άσκηση-Β06 (Απάντηση)
| Αλγόριθμος ΑσκΒ06 –pl ← 0 –s ← 0 –pla ← 0 –plp ← 0 –sa ← 0 –sp ← 0 –Εμφάνισε “Δώσε θετικό αριθμό:” –Διάβασε ar –Όσο ar > 0 επανάλαβε —pl ← pl + 1 —s ← s + ar —Αν pl=1 τότε ——meg ← ar ——seira ← 1 ——elax ← ar —Αλλιώς —Αν ar > meg τότε ——meg ← ar ——seira ← pl —Τέλος_Αν —Αν ar < elax τότε ——elax ← ar —Τέλος_Αν —Αν ar mod 2 = 0 τότε ——pla ← pla + 1 ——sa ← sa + ar –––Αλλιώς ——plp ← plp + 1 ——sp ← sp + ar –––Τέλος_Αν —Τέλος_Αν —Εμφάνισε “Δώσε επόμενο θετικό αριθμό:” —Διάβασε ar –Τέλος_επανάληψης –mo ← s/pl –moa ← sa/pla –mop ← sp/plp –Εμφάνισε “πλήθος”, pl,”μέσος όρος”, mo –Εμφάνισε “μέγιστος”, meg, “σειρά”, seira –Εμφάνισε “ελάχιστος”, elax –Εμφάνισε “άρτιοι : πλήθος”, pla, “μέσος όρος”, moa –Εμφάνισε “περιττοί: πλήθος”, plp, “μέσος όρος”, mop Τέλος ΑσκΒ06 |
Αλγόριθμος ΑσκΒ06 –pl ← 0 –s ← 0 –pla ← 0 –plp ← 0 –sa ← 0 –sp ← 0 –Αρχή_Επανάληψης —Εμφάνισε “Δώσε θετικό αριθμό:” —Διάβασε ar —Αν ar > 0 τότε —pl ← pl + 1 —s ← s + ar —Αν pl=1 τότε ——meg ← ar ——seira ← 1 ——elax ← ar —Αλλιώς —-Αν ar > meg τότε ——meg ← ar ——seira ← pl —-Τέλος_Αν —-Αν ar < elax τότε ——elax ← ar —-Τέλος_Αν —-Αν ar mod 2 = 0 τότε ——pla ← pla + 1 ——sa ← sa + ar ––––Αλλιώς ——plp ← plp + 1 ——sp ← sp + ar ––––Τέλος_Αν —–Τέλος_Αν ––Τέλος_Αν –Μέχρις_ότου ar <= 0 –mo ← s/pl –moa ← sa/pla –mop ← sp/plp –Εμφάνισε “πλήθος”, pl,”μέσος όρος”, mo –Εμφάνισε “μέγιστος”, meg, “σειρά”, seira –Εμφάνισε “ελάχιστος”, elax –Εμφάνισε “άρτιοι : πλήθος”, pla, “μέσος όρος”, moa –Εμφάνισε “περιττοί: πλήθος”, plp, “μέσος όρος”, mop Τέλος ΑσκΒ06 |
Άσκηση-Β07 (Απάντηση)
| Αλγόριθμος ΑσκΒ07 –pl1 ← 0 –pl2 ← 0 –s1 ← 0 –s2 ← 0 –Εμφάνισε “Δώσε τον πρώτο αριθμό:” –Διάβασε ar –Όσο ar <> 0 επανάλαβε —Αν ar > 0 τότε — –pl1 ← pl1 + 1 ——s1 ← s1 + ar —Αλλιώς_Αν ar < 0 τότε — –pl2 ← pl2 + 1 ——s2 ← s2 + ar —Τέλος_Αν —Εμφάνισε “Δώσε επόμενο αριθμό ή 0 για τέλος:” —Διάβασε ar –Τέλος_επανάληψης –mo1 ← s1/pl1 –mo2 ← s2/pl2 –Εμφάνισε “μέσος όρος θετικών”, mo1 –Εμφάνισε “μέσος όρος αρνητικών”, mo2 Τέλος ΑσκΒ07 |
Αλγόριθμος ΑσκΒ07 –pl1 ← 0 –pl2 ← 0 –s1 ← 0 –s2 ← 0 –Αρχή_επανάληψης —Εμφάνισε “Δώσε ένα αριθμό ή 0 για τέλος:” —Διάβασε ar —Αν ar <> 0 τότε —Αν ar > 0 τότε — –pl1 ← pl1 + 1 ——s1 ← s1 + ar —Αλλιώς_Αν ar < 0 τότε — –pl2 ← pl2 + 1 ——s2 ← s2 + ar —Τέλος_Αν —Τέλος_Αν –Μέχρις_ότου ar = 0 –mo1 ← s1/pl1 –mo2 ← s2/pl2 –Εμφάνισε “μέσος όρος θετικών”, mo1 –Εμφάνισε “μέσος όρος αρνητικών”, mo2 Τέλος ΑσκΒ07 |
Άσκηση-Β08 (Απάντηση)
| Αλγόριθμος ΑσκΒ08 –pl ← 0 –pl9 ← 0 –Εμφάνισε “Δώσε ακέραιο αριθμό:” –Διάβασε ar –Όσο ar <> 0 επανάλαβε —pl ← pl + 1 —Αν ar mod 9 = 0 τότε –—pl9 ← pl9 + 1 –—Εκτύπωσε ar, “πολλαπλάσιο του 9” —Τέλος_Αν —Εμφάνισε “Δώσε επόμενο ακέραιο ή 0 για τέλος:” —Διάβασε ar –Τέλος_επανάληψης –pososto ← 100*pl9/pl –Εμφάνισε “ποσοστό=”, pososto Τέλος ΑσκΒ08 |
Αλγόριθμος ΑσκΒ08 –pl ← 0 –pl9 ← 0 –Αρχή_επανάληψης —Εμφάνισε “Δώσε ακέραιο ή 0 για τέλος:” —Διάβασε ar ––Αν ar <> 0 τότε —pl ← pl + 1 —Αν ar mod 9 = 0 τότε –—pl9 ← pl9 + 1 –—Εκτύπωσε ar, “πολλαπλάσιο του 9” —–Τέλος_Αν ––Τέλος_Αν –Μέχρις_ότου ar = 0 –pososto ← 100*pl9/pl –Εμφάνισε “ποσοστό=”, pososto Τέλος ΑσκΒ08 |
Άσκηση-Β09 (Απάντηση)
| Αλγόριθμος ΑσκΒ09 –pl1 ← 0 –pl2 ← 0 –pl ← 0 –Εμφάνισε “Δώσε τον πρώτο αριθμό:” –Διάβασε ar –Όσο pl < 200 και pl2 < 100 επανάλαβε ––pl ← pl + 1 —Αν ar > 0 τότε — –pl1 ← pl1 + 1 —Αλλιώς_Αν ar < 0 τότε — –pl2 ← pl2 + 1 —Τέλος_Αν —Εμφάνισε “Δώσε επόμενο αριθμό” —Διάβασε ar –Τέλος_επανάληψης –pos1 ← 100*pl1/pl –pos2 ← 100*pl2/pl –Εμφάνισε “ποσοστό θετικών”, pos1 –Εμφάνισε “ποσοστό αρνητικών”, pos2 Τέλος ΑσκΒ09 |
Αλγόριθμος ΑσκΒ09 –pl1 ← 0 –pl2 ← 0 –pl ← 0 –Αρχή_επανάληψης —Αν pl < 200 και pl2 < 100 τότε —Εμφάνισε “Δώσε αριθμό” —Διάβασε ar —–pl ← pl + 1 —Αν ar > 0 τότε — –pl1 ← pl1 + 1 —Αλλιώς_Αν ar < 0 τότε — –pl2 ← pl2 + 1 —Τέλος_Αν ––Τέλος_Αν –Μέχρις_ότου pl >= 200 ή pl2 >=100 –pos1 ← 100*pl1/pl –pos2 ← 100*pl2/pl –Εμφάνισε “ποσοστό θετικών”, pos1 –Εμφάνισε “ποσοστό αρνητικών”, pos2 Τέλος ΑσκΒ09 |
Άσκηση-Β10 (Απάντηση)
| Αλγόριθμος ΑσκΒ10 –pl ← 200 –y ← 0 –Όσο pl < 8000 επανάλαβε ––y ← y + 1 yypl ← pl + pl*40/100 –Τέλος_επανάληψης –Εμφάνισε “σε”, y, “έτη” Τέλος ΑσκΒ10 |
Αλγόριθμος ΑσκΒ10 –pl ← 200 –y ← 0 –Αρχή_επανάληψης ––y ← y + 1 yypl ← pl + pl*40/100 –Μέχρις_ότου pl >= 8000 Εμφάνισε “σε”, y, “έτη” Τέλος ΑσκΒ10 |
Άσκηση-Β11 (Απάντηση)
| Αλγόριθμος ΑσκΒ11 –mhn ← 0 –ap ← 0 –mis ← 1000 –Όσο ap < 5000 επανάλαβε ––mhn ← mhn + 1 —Αν mhn mod 12 = 0 τότε — –mis ← mis + mis*15/100 —Τέλος_Αν —ap ← ap + mis*10/100 –Τέλος_επανάληψης –Εμφάνισε “σε”, mhn,”μήνες” Τέλος ΑσκΒ11 |
Αλγόριθμος ΑσκΒ11 –mhn ← 0 –ap ← 0 –mis ← 1000 –Αρχή_επανάληψης ––mhn ← mhn + 1 —Αν mhn mod 12 = 0 τότε — –mis ← mis + mis*15/100 —Τέλος_Αν —ap ← ap + mis*10/100 –Μέχρις_ότου ap >= 0 –Εμφάνισε “σε”, mhn,”μήνες” Τέλος ΑσκΒ11 |
Άσκηση-Β12 (Απάντηση)
| Αλγόριθμος ΑσκΒ12 –plf ← 0 –pla ← 0 –plm ← 0 –seis ← 0 –Εμφάνισε “Δώσε τύπο οχήματος Φ, Α, Μ ή ΤΕΛΟΣ:” –Διάβασε t –Όσο t <> “ΤΕΛΟΣ” επανάλαβε —Αν t=”Φ” τότε ——k ← 6 —-plf ← plf + 1 —Αλλιώς_αν t=”Α” τότε ——k ← 3 —-pla ← pla + 1 —Αλλιώς_αν t=”Μ” τότε ——k ← 1 —-plm ← plm + 1 —Αλλιώς ——k ← 0 —Τέλος_Αν —Εμφάνισε “κόστος διέλευσης οχήματος”, k —seis ← seis + k —Εμφάνισε “Επόμενο όχημα Φ, Α, Μ ή ΤΕΛΟΣ:” —Διάβασε t –Τέλος_επανάληψης –Εμφάνισε “συνολικές εισπράξεις”, seis –Εμφάνισε “από φορτηγά εισπράξεις”, plf*6 –Εμφάνισε “από αυτοκίνητα εισπράξεις”, pla*3 –Εμφάνισε “από δίκυκλα εισπράξεις”, plm*1 –Εμφάνισε plf, pla, plm Τέλος ΑσκB12 |
Αλγόριθμος ΑσκΒ12 –plf ← 0 –pla ← 0 –plm ← 0 –seis ← 0 –Αρχή_επανάληψης —Εμφάνισε “Δώσε τύπο οχήματος Φ, Α, Μ ή ΤΕΛΟΣ:” —Διάβασε t —Αν t=”Φ” τότε ——k ← 6 —-plf ← plf + 1 —Αλλιώς_αν t=”Α” τότε ——k ← 3 —-pla ← pla + 1 —Αλλιώς_αν t=”Μ” τότε ——k ← 1 —-plm ← plm + 1 —Αλλιώς ——k ← 0 —Τέλος_Αν —Εμφάνισε “κόστος διέλευσης οχήματος”, k —seis ← seis + k –Μέχρις_ότου t = “ΤΕΛΟΣ” –Εμφάνισε “συνολικές εισπράξεις”, seis –Εμφάνισε “από φορτηγά εισπράξεις”, plf*6 –Εμφάνισε “από αυτοκίνητα εισπράξεις”, pla*3 –Εμφάνισε “από δίκυκλα εισπράξεις”, plm*1 –Εμφάνισε plf, pla, plm Τέλος ΑσκB12 |
Άσκηση-Β13 (Απάντηση)
| Αλγόριθμος ΑσκΒ13 –mhn ← 0 –dosi ← 300 –Εμφάνισε “Δώσε ποσό δανεισμού:” –Διάβασε poso –Όσο poso > 0 επανάλαβε ––mhn ← mhn + 1 —Αν mhn mod 24 = 0 τότε — –dosi ← dosi + dosi*10/100 —-Αν dosi > 700 τότε —- –dosi ← 700 ——Τέλος_Αν —Τέλος_Αν —Αν mhn mod 12 = 0 τότε — –poso ← poso + poso*4/100 —Τέλος_Αν —poso ← poso – dosi –Τέλος_επανάληψης –yy ← mhn div 12 –mm ← mhn mod 12 –Εμφάνισε “Εξόφληση σε”, yy, “έτη και”,mm,”μήνες” Τέλος ΑσκΒ13 |
Αλγόριθμος ΑσκΒ13 –mhn ← 0 –dosi ← 300 –Εμφάνισε “Δώσε ποσό δανεισμού:” –Διάβασε poso –Αρχή_επανάληψης —Αν poso > 0 τότε –––mhn ← mhn + 1 –––Αν mhn mod 24 = 0 τότε — –dosi ← dosi + dosi*10/100 —-Αν dosi > 700 τότε —- –dosi ← 700 ——Τέλος_Αν –––Τέλος_Αν —Αν mhn mod 12 = 0 τότε — –poso ← poso + poso*4/100 —Τέλος_Αν –––poso ← poso – dosi —Τέλος_Αν –Μέχρις_ότου poso <=0 –yy ← mhn div 12 –mm ← mhn mod 12 –Εμφάνισε “Εξόφληση σε”, yy, “έτη και”,mm,”μήνες” Τέλος ΑσκΒ13 |
Άσκηση-Β14 (Απάντηση)
| Αλγόριθμος ΑσκΒ14 –poso ← 0 –Εμφάνισε “Δώσε κωδικό είδους:” –Διάβασε kod –Όσο kod <> “ΤΕΛΟΣ” επανάλαβε —Εμφάνισε “Δώσε τιμή, τεμάχια, συντ.ΦΠΑ:” —Διάβασε timi, tem, fpa –axia ← tem*timi –axia ← axia + axia*fpa/100 ––poso ← poso + axia —Εμφάνισε “Επόμενος κωδικός είδους:” —Διάβασε kod –Τέλος_επανάληψης –Εμφάνισε “Πληρωτέο ποσό:”, poso Τέλος ΑσκΒ14 |
Αλγόριθμος ΑσκΒ14 –poso ← 0 –Αρχή_επανάληψης —Εμφάνισε “Δώσε κωδικό,τιμή,τεμάχια,συντ.ΦΠΑ:” —Διάβασε kod, timi, tem, fpa —Αν kod <> “ΤΕΛΟΣ” τότε ——axia ← tem*timi ——axia ← axia + axia*fpa/100 ——poso ← poso + axia ——Εμφάνισε “Επόμενος κωδικός είδους:” ——Διάβασε kod —Τέλος_Αν –Μέχρις_ότου kod = “ΤΕΛΟΣ” –Εμφάνισε “Πληρωτέο ποσό:”, poso Τέλος ΑσκΒ14 |
Άσκηση-Β15 (Απάντηση)
| Αλγόριθμος ΑσκΒ15 –eis ← 0 –Εμφάνισε “όνομα συνδρομητή:” –Διάβασε on –Όσο on <> “ΤΕΛΟΣ” επανάλαβε —Εμφάνισε “Χρόνος αστικών & υπεραστικών κλήσεων:” —Διάβασε ta, ty ––xrast ← ta*0.02 —Αν ty <= 100 τότε ——xryp ← ty*0.03 —Αλλιώς_αν ty <= 300 τότε ——xryp ← 100*0.03+(100-ty)*0.02 —Αλλιώς ——xryp ← 100*0.03+(300-100)*0.02+(300-ty)*0.01 —Τέλος_Αν —xr ← 5 + xrast + xryp —Εμφάνισε on, xr —eis ← eis + xr —Εμφάνισε “επόμενο όνομα:” —Διάβασε on –Τέλος_επανάληψης –Εμφάνισε “Εισπράξεις wind”, eis Τέλος ΑσκΒ15 |
Αλγόριθμος ΑσκΒ15 –eis ← 0 –Όσο on <> “ΤΕΛΟΣ” επανάλαβε —Εμφάνισε “Όνομα, χρόνος αστικών & υπεραστικών:” —Διάβασε on, ta, ty —Αν on <> “ΤΕΛΟΣ” τότε –—xrast ← ta*0.02 —Αν ty <= 100 τότε ——xryp ← ty*0.03 —Αλλιώς_αν ty <= 300 τότε ——xryp ← 100*0.03+(100-ty)*0.02 —Αλλιώς ——xryp ← 100*0.03+(300-100)*0.02+(300-ty)*0.01 —Τέλος_Αν —xr ← 5 + xrast + xryp —–Εμφάνισε on, xr —eis ← eis + xr —Τέλος_Αν –Μέχρις_ότου on = “ΤΕΛΟΣ” –Εμφάνισε “Εισπράξεις wind”, eis Τέλος ΑσκΒ15 |