Προγραμματισμός Η/Υ (2008-09)

[gandalf]

Spoiler: show

Κώδικας: Επιλογή όλων

      PROGRAM EREYNA
      DIMENSION ITYPE(500),H(500),W(500)
C
C***  ANAGNWSH TWN TIMWN
C
      DO 100 I=1,500
      READ(5,1000)ITYPE(I),H(I),W(I)
1000  FORMAT(I5,F10.0,F10.0)
100   CONTINUE
      NMAN=0
      NWOM=0
      WEIT=0
      HEIT=0
      DO 200 I=1,500
      IF(ITYP(I).EQ.7) NMAN=NMAN+1
      NWOM=NWOM+1
      WEIT=WEIT+W(I)
      HEIT=HEIT+H(I)
200   CONTINUE
      AVW=WEIT/500
      AVH=HETI/500
      WRITE(6,*)AVW,AVH
      WEITM=0
      WEITW=0
      DO 300 I=1,500
      IF(ITYP(I).EQ.7) WEITM=WEITM+W(I)
      WEITW=WEITW+W(I)
300   CONTINUE
      AWOM=WEITW/NWOM
      AVMAN=WEITM/NMAN
      WRITE(6,*) AVWOM, AVMAN
      LMAN=0
      LWOM=0
      IF(ITYP(I).EQ.7.AND.W(I).GT.AVMAN) LMAN=LMAN+1
      IF(ITYP(I).EQ.8.AND.W(I).GT.AVWOM) LWOM=LWOM+1
400   CONTINUE
      WRITE(6,*)LMAN,LWOM
      STOP
      END

κάπως έτσι λογικά θα είναι

[akis]

Gandalf βλεπω πηρες το κολαι για τα καλα...
Η συγκεκριμενη παντως ειναι κλεμμενη απο Γιαννοπουλο...

Πρεπει να βαλεις παντως IF (ITYP(I).EQ.8) NWOM=NWOM+1 γιατι ετσι οπως το εχεις θα προσθετει +1 καθε φορα στις γυναικες...

[gandalf]

Γιατί ρε συ? Αφου κάνει τον πρώτο έλεγχο, αν ITYP(I) διαφορο του 7 παει απο κατω και κανει τον επομενο ελεγχο, αν δεν περασει και τον επομενο παει πισω στο DO και αλλάζει Ι...οχι?

[lybe33]

Δες εδώ(είναι από το pdf που ανέβασες σε προηγούμενο post σου)
Το ίδιο pdf έχει λυμένες τις περισσότερες ασκήσεις του γιαννόπουλου,ακόμη και εκέινη με το μπετό(άμα θυμάστε morisson και άκη)

[akis]

DO 200 I=1,500
IF(ITYP(I).EQ.7) NMAN=NMAN+1
NWOM=NWOM+1
WEIT=WEIT+W(I)
HEIT=HEIT+H(I)
200 CONTINUE

Αν το αφησεις ετσι αν το ΝΜΑΝ ειναι ισο με 7 θα προσθεσει +1 και στο ΝΜΑΝ και στο NWOM που ειναι απο κατω αφου η εντολη αυτη θα εκτελειται παντα, δεν εχεις βαλει καποιο περιορισμο γι αυτη...

[gandalf]

Α οκ το ειδα, νομιζα οτι έλεγε για το πιο κατω IF

[morisson]

GANDALF θεέ,πάρε την ΠΑΕ...!!(πάμε για 10αράκι άνετα)

[gandalf]

sureeee

[akrovolistos]

Ακόμα ένα θεματάκι :

Δίνεται αρχείο 'pluto1.txt' ατο οποίο στην πρώτη γραμμή αναγράφεται ο αριθμός Ν οικοδομών (Ν μικρότερο του 200) και στην επόμενες 15 είναι γραμμένα τα αποτελέσματα αντοχών δοκίμιων της κάθε οικοδομής με format 15F6.1.
α. Να υπολογισθεί η διακύμανση και ο μέσος όρος όλων των δοκιμίων.
β. Η διακύμανση και ο μ.ο. των 15 δοκιμίων κάθε οικοδομής ξεχωριστά.
γ. Η διακύμανση και ο μ.ο. όλων των οικοδομών εκτός των δύο πρώτων και της τελευταίας.

[nelina]

Ξέρει κάποιος τι υπολογίζει η συνάρτηση ABS που έχω βρει σε μερικές ασκήσεις;