15.
Αλγόριθμος ασκ15χριστ
πλ ← 0
αθρ ← 0
πλ50 ← 0
max ← -1
min ← 101
min50 ← -1
Εμφάνισε 'δώσε όνομα μαθητή'
Διάβασε ονεπ
Όσο ονεπ ≠ ' ' επανάλαβε
Αρχή_επανάληψης
Εμφάνισε 'δώσε βαθμό μαθητή'
Διάβασε βαθ
Μέχρις_ότου βαθ ≥ 0 και βαθ ≤ 100
πλ ← πλ + 1
αθρ ← αθρ + βαθ
Αν βαθ > 50 τότε
πλ50 ← πλ50 + 1
Τέλος_αν
Αν βαθ > max τότε
max ← βαθ
ονmax ← ονεπ
Τέλος_αν
Αν βαθ < min τότε
min ← βαθ
ονmin ← ονεπ
Τέλος_αν
Αν βαθ <50 και βαθ < min50 τότε
min50 ← βαθ
μαθ50 ← ονεπ
Τέλος_αν
Εμφάνισε 'δώσε όνομα μαθητή'
Διάβασε ονεπ
Τέλος_επανάληψης
Αν πλ > 0 τότε
Εμφάνισε ονmax , ονmin , μαθ50
ποσ50 ← πλ50/πλ*100
Εμφάνισε ποσ50 , '%'
μο ← αθρ/πλ
Εμφάνισε μο
αλλιώς
Εμφάνισε 'κανένα όνομα'
Τέλος_αν
Τέλος ασκ15χριστ
16.
Αλγόριθμος ασκ16χριστ
καυσ ← 10^7
μεγαπ ← -1
συνκαυσ ← 0
πλπλαν ← 0
αθρ ← 0
χλμ ← 0
Εμφάνισε 'δώσε όνομα πλανήτη'
Διάβασε πλαν
Αρχή_επανάληψης
Εμφάνισε 'πόσα χλμ έκανες;'
Διάβασε απ
πλπλαν ← πλπλαν + 1
καυσ ← καυσ - (απ div 10^4)
συνκαυσ ← συνκαυσ + (απ div 10^4)
Εμφάνισε συνκαυσ, (απ div 10^4)
Αν καυσ ≥ 99200000 τότε
καυσ ← 10^7
αθρ ← αθρ + (10^7 - καυσ)
χλμ ← χλμ + απ
αλλιώς_αν καυσ > 0 τότε
καυσ ← καυσ + 800000
αθρ ← αθρ + 800000
χλμ ← χλμ + απ
αλλιώς
αθρ ← αθρ
χλμ ← χλμ + (καυσ + (απ div 10^4))*10^4
καυσ ← 0
Τέλος_αν
Εμφάνισε καυσ
Αν απ > μεγαπ τότε
μεγαπ ← απ
ονπλαν ← πλαν
Τέλος_αν
Εμφάνισε 'δώσε όνομα πλανήτη'
Διάβασε πλαν
Μέχρις_ότου πλαν = ' ' ή καυσ = 0
Εμφάνισε πλπλαν
Εμφάνισε αθρ/πλπλαν , ' μέσος όρος καυσίμων'
Τέλος ασκ16χριστ
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου