από kyriakos » Δευτ, 11 Ιούλ 2011 11:13 pm
Να ρωτησω κατι? Στην λυση του 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
Η μεγαλυτερη δοξα της ζωης δεν ειναι να μην πεφτεις ποτε,
Αλλα να σηκωνεσαι καθε φορα που πεφτεις... (Κομφουκιος)