! Να γραφεί πρόγραμμα το οποίο :
! · θα δέχεται τη βάση και το ύψος τριγώνων,
! · θα υπολογίζει και θα τυπώνει το εμβαδόν του κάθ΄ ενός,
! · θα τυπώνει στο τέλος τον αριθμό των τριγώνων για τα οποία έγιναν υπολογισμοί,
! · θα υπολογίζει και θα τυπώνει το μέσο όρο του εμβαδού όλων των τριγώνων.
! Το πρόγραμμα θα σταματά αν δοθεί ως ύψος ή ως βάση το μηδέν και θα αγνοεί τα
! στοιχεία κάθε τριγώνου για το οποίο θα δοθεί ως ύψος ή βάση αρνητικός αριθμός.
ΠΡΟΓΡΑΜΜΑ ΕΠ_1_13
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ν
ΠΡΑΓΜΑΤΙΚΕΣ: β , υ , s ,εμ ,μ
ΑΡΧΗ
Ν <-- 1
s <-- 0
ΓΡΑΨΕ 'Δώσε τη βάση και το ύψος του 1ου τριγώνου'
ΔΙΑΒΑΣΕ β ,υ
ΟΣΟ β <> 0 ΚΑΙ υ <> 0 ΕΠΑΝΑΛΑΒΕ
ΑΝ β > 0 ΚΑΙ υ > 0 ΤΟΤΕ
εμ <-- β*υ/2
ΓΡΑΨΕ ' ΕΜΒΑΔΟΝ =',εμ
s <-- s + εμ
Ν <-- Ν + 1
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Δώσε τη βάση και το ύψος του',Ν,'ου τριγώνου'
ΔΙΑΒΑΣΕ β ,υ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Ν <-- Ν -1
μ <-- s/Ν
ΓΡΑΨΕ 'Υπολογίστηκε το εμβαδό',Ν,'τριγώνων.'
ΓΡΑΨΕ 'Ο μέσος όρος τους είναι :',μ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ