Η κατάσταση έχει ως εξής:
1. Το τμήμα Β' βρίσκεται ένα μάθημα μπροστά από το τμήμα Α'.
2. Σήμερα δεν ήρθαν αρκετοί λόγω του ότι δεν λειτουργούσαν τα τραίνα
3. Τη Δευτέρα θα έχει συνέλευση (δεν γίνονται μαθήματα κατά τη διάρκεια της συνέλευσης) και είναι πιθανό να χαθεί και το μάθημα της Τρίτης.

Έτσι, στο επόμενο μάθημα (πιθανότατα την Παρασκευή), θα έρθει το Α' τμήμα μαζί με όσους έλειπαν από το σημερινό μάθημα του Β' τμήματος. Αναμένεται ανακοίνωση, ενημερώστε τους συμφοιτητές σας!!!

Αυτό το μάθημα περιλαμβάνει έννοιες ιδιαίτερα βασικές για τη συνέχεια! Προσπαθήστε να το παρακολουθήσετε!!! (επαναλήψεις και arrays) Στη θεωρία και τις ασκήσεις που ακολουθούν, όπως και στις εξετάσεις, θα χρησιμοποιούνται συνέχεια!

Ο παρακάτω κώδικας αφιερώνεται στους λάτρεις του "σέρφινγκ" που τολμούν να νομίζουν ότι το facebook είναι πιο συναρπαστικό από τη Fortran...
(για υπορουτίνες θα μάθουμε αργότερα στον προγραμματισμό και περισσότερα πράγματα σε κάποια Τετάρτη).
Εκτελέστε τον κώδικα στο σπίτι σας.

Όπως είχε πει και ο Μάκης.

"Την Παρασκευή, 9/11/2012, το μάθημα θα γίνει ενιαία και για τα 2 τμήματα (14:45-16:30) , προκειμένου το 1ο τμήμα και μέρος του 2ου τμήματος να καλύψει μερικές απώλειες. Οσοι παρακολούθησαν το μάθημα της προηγούμενης Παρασκευής (2/11) δεν χρειάζεται να έρθουν."

από : http://ecourses.chemeng.ntua.gr/courses ... ogramming/

Στη Fortran,θα ασχοληθουμε καθολου με μιγαδικες μεταβλητες ?

Γενικώς όχι... Απλώς αναφέρεται ότι υπάρχουν. Αν θέλεις μπορούν να προσφέρουν αρκετά βάσανα και οι υπόλοιποι τύποι μεταβλητών

MakisH έγραψε:Γενικώς όχι... Απλώς αναφέρεται ότι υπάρχουν. Αν θέλεις μπορούν να προσφέρουν αρκετά βάσανα και οι υπόλοιποι τύποι μεταβλητών

Για να το λες ,σιγουρα θα ξέρεις !

MakisH έγραψε:Ο παρακάτω κώδικας αφιερώνεται στους λάτρεις του "σέρφινγκ" που τολμούν να νομίζουν ότι το facebook είναι πιο συναρπαστικό από τη Fortran...
(για υπορουτίνες θα μάθουμε αργότερα στον προγραμματισμό και περισσότερα πράγματα σε κάποια Τετάρτη).

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

Program Facebook

        Implicit None
        Real x
        
        Print *, "Give a negative real number:"
        Do
                Read *, x
                If ( x<0 ) then
                        Print *, "Correct!"
                        exit
                else
                        Print *, "I said NEGATIVE!"
                endif
        enddo
        
        Print *, "Congratulations! Take this as a prize..."
        
        ! "System" is a subroutine which executes system commands
        ! We will learn about subroutines later in the semester.
        call system("firefox http://www.facebook.com/")
        
End

Εκτελέστε τον κώδικα στο σπίτι σας.

Εεεεεμ συγνώμη αλλά δεν καταλαβαίνω τι κάνει ο κώδικας. Τον τρέχω σπίτι μου και δε κάνει κάτι.

Αγαπητέ-ή Post355 έπεσες θύμα της απόπειρας του admin μας να κάνει χιούμορ! Δεν το κάνει συχνά αλλά όταν το κάνει είναι κάπως επικίνδυνο..

@Post355: Αμα τον ετρεχες σε Linux θα σου ανοιγε το FB μετα την εκτελεση του προγραμματος...
ΑΛΛΑ Ο ΜΑΚΗΣ ΞΕΧΝΑΕΙ ΟΤΙ ΤΟ 5% 95% ΤΩΝ ΧΡΗΣΤΩΝ Η/Υ ΔΕΝ ΧΡΗΣΙΜΟΠΟΙΟΥΝ LINUX

Περικλή μου μήπως το ποσοστό που έδωσες είναι κατά πολύ όμως λανθασμένο?? Μόνον το 5 % δεν χρησιμοποιούν??? Πόσο σίγουρος είσαι ΓΙ ΑΥΤΟ??