ZIVI7 έγραψε:Βασικα jveltsi13 αν στη δευτερη εχουμε μικροτερο βαρος δοκου θα σου γραψει και τα 2 write..... θελει να αριθμησεις και το στοπ και ενδιαμεσα να βαλεις ενα go to να πηγαινει στο stop.
Να ρωτησω κατι? Στην λυση του Jimmis γιατι υπολογιζουμε το ZBMAX για καθε I, και μετα υπολογιζουμε και το ΖΒ σκετο? Δεν μπορουμε να τα συμπτυξουμε και να τα υπολογισουμε μονο μια? πχ
(...)
J=1
NBMAX(I)=0
DO 100 I=1,3,1
DO 200 J=1,6,1
NB=((ENGTH(I)-C)/(DIME(J)+C)*DIME(J)) (αριθμος παραθυρων)
IF (NB.GT.NBMAX(I)) NBMAX(I)=NB
J=J+1
200 CONTINUE
WRITE(6,1000)ENGHTH(I),DIME(J)
1000FORMAT(...)
100 CONTINUE
STOP
END
Η μεγαλυτερη δοξα της ζωης δεν ειναι να μην πεφτεις ποτε,
Αλλα να σηκωνεσαι καθε φορα που πεφτεις... (Κομφουκιος)
A, και κατι ακομα... Σε τι ακριβως χρειαζεται η REWIND? Εννοω,οτι τα διαβασε τα δεδομενα μια φορα, δεν τα θυμαται? Καθε φορα που ξανακανουμε πραξεις με τους αριθμους πρεπει να τα ξαναδιαβαζουμε τα αρχικα?
Η μεγαλυτερη δοξα της ζωης δεν ειναι να μην πεφτεις ποτε,
Αλλα να σηκωνεσαι καθε φορα που πεφτεις... (Κομφουκιος)
Παιδιά άκουσα σήμερα ότι ο Στάμος είχε ανεβάσει ένα πολύ καλό υλικό από τις ασκήσεις που παρέδωσε φέτος με αναλυτικές οδηγίες. Γνωρίζει κάποιος σε ποιο site τα ανέβασε?? (Αχρείαστα να'ναι!!)