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

[akis]

Και ηταν και περυσι σερι; Και οι 4 ωρες σε μια μερα;

[ingenieurin26]

Ναι, αυτό ενοούσα! Σερί! Μερικές φορές ήταν 3 ώρες χωρίς διάλειμμα και την 4η έφευγε

[akis]

Ο επονομαζομενος proffessor Γιαννοπουλος να υποθεσω με τα 9μιση εξευγενιστικα για εκεινον χρονια σπουδων στο εξωτερικο!!! Ναι ηθελα να πω οτι με το να ειναι το 4ωρο σερι και ωρα μαθηματος χανεται επειδη ο proffessor φευγει νωριτερα και τα διαλειμματα γινονται οπως να ναι και κατανταει το μαθημα κουραστικο. Θα ηταν καλυτερα το μαθημα να γινοταν 2 φορες την εβδομαδα, δυο 2ωρα. Ασε που τρωμε και πολυ χρονο στις υπαγορευσεις εκφωνησεων. Γιαννοπουλε υπαρχουν και οι φωτοτυπιες!!! Γι αυτο ισως να πετανε στο εξωτερικο και εδω μπουσουλαμε οπως λεει.....

[BM]

Παιδιά, ξέρετε τι να διαβάσουμε Fortran; Sos, καμια άσκηση κτλ. Γιατί από αυτό το υποτυπώδες βιβλίο, δεν καταλαβαίνεις και πολλά... Ίσως βέβαια φταίω κι εγώ, που μου φαίνονται κάτι παραπάνω από κινέζικα...

[Theodore]

Αυτό είναι ένα απλό πρόγραμμα που βρίσκει πόσα στοιχεία ενός δι-διάστατου πίνακα έχουν τιμή μικρότερη ή ίση του 5.0, γραμμένο σε FORTRAN-90 και free-format.

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

PROGRAM TEST1
!
IMPLICIT DOUBLEPRECISION (A-H,O-Z)
!
ALLOCATABLE A(:,:)
CHARACTER*12 INPUT,OUTPUT
INTEGER I,J,K,M,N,ND
!
WRITE(*,'("Please give the name of the input file - up to 12 characters:")')
READ(*,*) INPUT
OPEN (UNIT=1,FILE=INPUT)
!
READ(1,*) M,N
ALLOCATE (A(M,N))
!
Κ=0
DO j=1,N
 DO i=1,M
  READ (1,*) A(i,j)
  IF (A(i,j)<=5.0) THEN 
   K=K+1
  END IF
 END DO
END DO
!
IF (K<10) THEN
  ND=1
ELSE IF (K<100) THEN
 ND=2
ELSE IF (K<1000) THEN
 ND=3
ELSE IF (K<10000) THEN
 ND=4
END IF
!
WRITE(*,'("Please give the name of the output file - up to 12 characters:")')
READ(*,*) OUTPUT
OPEN (UNIT=2,FILE=OUTPUT)
WRITE(2,'("Matrix A contains a total number of ",I<ND>," elements with value less than 5.0")') K
!
DEALLOCATE(A)
CLOSE(UNIT=1)
CLOSE(UNIT=2)
STOP
END PROGRAM TEST1

Ελπίζω να σας φανεί χρήσιμο.
Θοδωρής._

[shaman]

Παιδιά, ξέρετε τι να διαβάσουμε Fortran; Sos, καμια άσκηση κτλ. Γιατί από αυτό το υποτυπώδες βιβλίο, δεν καταλαβαίνεις και πολλά... Ίσως βέβαια φταίω κι εγώ, που μου φαίνονται κάτι παραπάνω από κινέζικα...

οντως παιδια ας βοηθησει καποιος!!!!!!!πειτε sos!πειτε απο πυ να διαβασουμε!πειτε γενικως ο,τι ξερετε.... ΔΕ θα περασω ποτε το μαθημα

[tipit]

Προς ΒΜ και shaman
Aααχ αυτό το μάθημα..!Δηλώνω παθούσα και ανεπίδεκτη κινεζικών...
ψάξτε φετινές σημειώσεις απο Στάμου (έχω μέχρι της προηγούμενης βδομαδας)τώρα που γυρνάει.Έχει πει ασκησεις που ειναι στο στυλ των θεματων.Επισης στο mycourses δειτε οπωσδήποτε τις λυμένες δια χειρός Γιαννόπουλου.Όπου συναντάτε "περιεργες" εντολές τύπου FLOAT,INT,TEMP,COEF,FUNCTION κτλ ναι τα εχει πει ειναι εντος υλης.Έχω σημειώσει sos πολ/σμο μητρώων και παραστασεις με όρους σειρών με τοσα δεκαδικα,βρειτε δυνατες δυαδες που να ικανοποιούν την ταδε παρασταση αλλά υπάχουν κ άλλα .Το προγραμμα μετάει περισσότερο από το διαγραμμα ροής.
Όπως και να χει ,δυστυχώς θέλει κάποια δουλειά,προτείνω να μην το αφησετε τελευταία στιγμή.
Εμενα με βλέπω να το καίω... ...πάλι!(Σιδερα 2...)Εσεις μην το βάλετε κάτω..!
Καλώ κι άλλους να συμπληρώσουν/διορθώσουν τα παραπάνω...

tipit

[akis]

Να ρωτησω: το INT κανει την αντιστροφη δουλεια απ το FLOAT ετσι δεν ειναι; Δλδ μετατρεπει τους πραγματικους σε ακεραιους ετσι;
Και κατι αλλο: ξερει κανεις πως θα κανω να τρεξει ο compiler της fortran σε Windows Vista; Το προγραμμα force κατεβαινει κανονικα αλλα δεν τρεχει τα προγραμματα που γραφω...

[intelx86]

Το INT κάνει τους αριθμούς ακέραιους (Integer=ακέραιος).
To REAL κάνει τους αριθμούς πραγματικούς (Real=πραγματικός).
To FLOAT κάνει ΜΟΝΟ τους ακέραιους (integer) πραγματικούς. Αν του δώσετε μη ακέραιο όρισμα θα βγάλει λάθος.

Η έξοδος της συνάρτησης FLOAT είναι REAL στην πραγματικότητα.

Return value:
The return value is of type default REAL.

Συνεπώς είναι πιο σωστό να χρησιμοποιείτε τη REAL στα προγράμματά σας αλλά στο Γιαννόπουλο αυστηρά τη FLOAT. Αν ενθυμούμε καλά νομίζω ήταν η πρώτη και τελευταία φορά που μπήκα στο μάθημα του όταν άκουσα για τη FLOAT και τον διόρθωσα.

[Danimoth]

Και κατι αλλο: ξερει κανεις πως θα κανω να τρεξει ο compiler της fortran σε Windows Vista; Το προγραμμα force κατεβαινει κανονικα αλλα δεν τρεχει τα προγραμματα που γραφω...

Hmm, για δες εδώ: http://www.lepsch.com/

Το 3ο τοπικ λέει "Vista Problem Solved". Check it out, μπορεί να έχει σχέση.