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

[aleka]

Ειναι λιγο μεγαλουτσικο βεβαια ισως να υπαρχει και συντομοτερη λυση.

Γιατι υπαρχει περιπτωση να μου κανεις "Οκ σωστη η λυση σου,αλλα υπαρχει και καλυτερος ή γρηγοροτερος τροπος???"

[akis]

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

     PROGRAM POLLOI
      DIMENSION KP(100),LP(100)
      COMMON K,L,M,KP,LP,I
      READ (*,*) M
      CALL JONNY
      DO 100 J = 1,I
      WRITE (*,*) KP(J),LP(J)
  100 CONTINUE
      WRITE (*,*) I
      STOP
      END
     
      SUBROUTINE JONNY
      DIMENSION KP(100),LP(100)
      COMMON K,L,M,KP,LP,I
      I = 0
      DO 100 K = 1,M
      DO 100 L = 1,M
      IF (M**2.NE.(K**2+L**2)) GO TO 100
      I = I+1
      KP(I) = K
      LP(I) = L
      KP(I+1) = -K
      LP(I+1) = -L
      KP(I+2) = K
      LP(I+2) = -L
      KP(I+3) = -K
      LP(I+3) = L
      I = I+3
  100 CONTINUE
      KP(I+1) = 0
      LP(I+1) = M
      KP(I+2) = 0
      LP(I+2) = -M
      KP(I+3) = M
      LP(I+3) = 0
      KP(I+4) = -M
      LP(I+4) = 0
      I = I+4
      RETURN
      END

Το προηγουμενο προγραμμα ειναι (φεβρουαριος 2004 θεμα 2) επαναδημοσιευμενο γιατι υπηρχε ενα λαθακι...

[Lost.in.Athens]

Σωστός! Όσο για το διάγραμμα ροής και τα υποπρογράμματα (συγγνώμη, υπορουτίνες ) δεν ξέρουμε, γιατί από τη μία ο Γιαννόπουλος ως γνωστόν δεν μας έκανε καθόλου υποπρογράμματα (ή μας έκανε και έλειπα;) και από την άλλη δεν κόβω τον Στάμο για τύπο που του αρέσουν τα διαγράμματα ροής (άλλωστε δεν μας έκανε στο τελευταίο μάθημα...). Τώρα αν έχει κάνει ο Στάμος σε κάποιο άλλο μάθημα ή αν γνωρίζει κανείς από τους παλιότερους, θα ήταν χρήσιμο να ξέραμε...

[aleka]

Αν καταλαβα καλα aki, ρωτας αν θα ειναι ενιαιο το διαγραμμα ροης προγραμματος και υπορουτινας.. Ετσι??
Εχω την εντυπωση πως γραφουμε μεσα σε ορθογωνιο κουτακι "CALL ονομα υπορουτινας(και μεσα σε παρενθεση τις μεταλητες)" σαν μια κανονικη εντολη και συνεχιζουμε με τις υπολοιπες εντολες του προγραμματος...! Μετα φτιαχνουμε αλλο δ.ρ. για την υπορουτινα ξεκινωντας και τελιωνοντας το με κυκλακια μεσα στα οποια γραφουμε SUBROUTINE ονομα(μεταβλητες) και στο αλλο RETURN....
Βεβαια δεν εχω παρακολουθησει καποιο μαθημα για να σ πω με σιγουρια αλλα θεωρω οτι ετσι γινεται....!!!
Διορθωστε με...

[gandalf]

Το βρήκα ψάχνοντας στο google, προς τα κατω σελ 55+ εχει διαφορες ασκησουλες που νομίζω είναι χρήσιμες...

fortran

[airetikos]

Αυτή η άσκηση με το τρίγωνο του πασκάλ έχει επιλυθεί ???? παρακαλώ όποιος την ξέρει ας σφυρίξει τη λύση είναι δύσκολη
ευχαριστώ εκ των προτέρων

[Lost.in.Athens]

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

      PROGRAM PASCAL
      DIMENSION N(10,10)
      N(1,1)=1
      N(2,1)=1
      N(2,2)=1
      DO 100 K=3,10
      N(K,1)=1
      N(K,K)=1
      DO 200 L=2,K-1
      N(K,L)=N(K-1,L-1)+N(K-1,L)
  200 CONTINUE
  100 CONTINUE
      DO 300 I=1,10
      WRITE(*,1000) (N(I,J), J=1,I)
1000 FORMAT (1X,10I4)
  300 CONTINUE
      STOP
      END

Πείτε αν υπάρχει καμιά καλύτερη λύση...

[airetikos]

Ευχαριστώ πολύ ρε φίλε γ....το έφτασα κοντά
το άθροισμα έχασα
και πάλι ευχαριστώ

[apoa]

Είμαι μεγαλύτερο έτος και προσπαθώ να τελειώνω με αυτό το μάθημά ,μπορεί κάποιος να μου λύσει κάποιες απορίες:
1) πως γίνετε το διάγραμμα ροης για υποπρόγραμμα;
2) οι πράξεις που έχουν αριστερό μέρος πραγματικό αριθμό και δεξιό ακέραιο επιτρέπονται;
Π.Χ αν γράψω Α= 1+ Κ, οπού K=2 , θα μου δώσει 3.0? Ή αν κανω L= 5/2 θα μου βγάλει 2 και θα κόψει το 0.5?
3) για να κανω ένα πραγματικό ακέραιο αρκεί μόνο να γράψω Π.χ L=P; Και το αντίθετο ;
ευχάριστο σάς παρακαλώ κάποιος να βοηθήσει

[airetikos]

μεικτή αριθμητική απαγορεύεται
χρηισμοποιείς τις συναρτησεις
float(n) μετατροπή σε δεκαδικό ακεραίου
int(a) ακέραιο μέρος δεκαδικού
το δ.ρ. υποπρογράμματος ακολουθεί την ίδια λογική γενικά με την προυπόθεση να βάζεις και τα common και τα dimension κοινά με το αρχικό πρόγραμμα και στο υποπρόγραμμα