e-ΜΑΘΗΜΑΤΑ |
Λύσεις ασκήσεων από τον Οδηγό Μελέτης Μαθητών |
ΠΡΟΓΡΑΜΜΑ Αθροίσματα_δισδιάστατου_πίνακα
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 4.10.10
!
! 10. Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ", το οποίο να:
! 1) Γεμίζει με ακέραιες τιμές από το πληκτρολόγιο ένα δισδιάστατο πίνακα 20x7
! 2) Υπολογίζει και να τυπώνει τη γραμμή με το μεγαλύτερο άθροισμα.
! 3) Υπολογίζει και να τυπώνει τη στήλη με το μικρότερο άθροισμα.
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, j, A[20, 7], max, min, sum, θέση
ΑΡΧΗ
! 1 Διάβασμα
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 7
ΔΙΑΒΑΣΕ A[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! max άθροισμα γραμμής
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
sum <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 7
sum <- sum + A[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ i = 1 ΤΟΤΕ
max <- sum
θέση <- 1
ΑΛΛΙΩΣ
ΑΝ sum > max ΤΟΤΕ
max <- sum
θέση <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Γραμμή με μέγιστο άθροισμα ', θέση, max
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 7
ΓΡΑΨΕ A[θέση, j], ' '
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! min άθροισμα στήλης
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 7
sum <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
sum <- sum + A[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ j = 1 ΤΟΤΕ
min <- sum
θέση <- 1
ΑΛΛΙΩΣ
ΑΝ sum < min ΤΟΤΕ
min <- sum
θέση <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Στήλη με ελάχιστο άθροισμα ', θέση, min
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ A[i, θέση]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
|