Σχολή Μηχανολόγων Μηχανικών ΕΜΠ 

Εργαστήριο Θερμικών Στροβιλομηχανών 

Κ.Χ. Γιαννάκογλου, Καθηγητής ΕΜΠ 

ΔΙΟΡΘΩΜΕΝΗ ΕΠΑΝΕΚΔΟΣΗ ΤΗΣ 9/1/2011 

ΓΛΩΣΣΕΣ ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΥ 

Διάλεξη στα πλαίσια του Μαθήματος 

«Λειτουργικά Συστήματα και Γλώσσες Προγραμματισμού» 

(1-2ο Εξάμηνο) 1 

ΠΑΡΑΔΟΣΕΙΣ: Κ. ΓΙΑΝΝΑΚΟΓΛΟΥ 

ΣΧΟΛΗ ΜΗΧ-ΜΗΧ ΕΜΠ

• ΔΕΔΟΜΕΝΑ 

• ΠΡΟΓΡΑΜΜΑ 

• ΑΠΟΤΕΛΕΣΜΑΤΑ 

Εισαγωγή στον Προγραμματισμό 

ΒΑΣΙΚΕΣ ΛΕΙΤΟΥΡΓΙΕΣ Η.Υ. 

• ΛΕΙΤΟΥΡΓΙΕΣ Ι/Ο 

• ΕΚΤΕΛΕΣΗ ΑΡΙΘΜΗΤΙΚΩΝ ΠΡΑΞΕΩΝ 

• ΛΕΙΤΟΥΡΓΙΕΣ ΣΥΓΚΡΙΣΗΣ-ΔΙΑΚΛΑΔΩΣΕΙΣ 

ΔΙΑΔΙΚΑΣΙΕΣ ΕΝΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ 

• ΔΙΑΔΟΧΗ : ΣΕΙΡΙΑΚΗ ΕΚΤΕΛΕΣΗ ΕΝΤΟΛΩΝ 

• ΕΠΙΛΟΓΗ : ΤΗΣ ΕΠΟΜΕΝΗΣ ΠΡΟΣ ΕΚΤΕΛΕΣΗ ΔΙΕΡΓΑΣΙΑΣ 

• ΕΠΑΝΑΛΗΨΗ : ΤΟΥ ΙΔΙΟΥ GROUP ΕΝΤΟΛΩΝ ΓΙΑ 

ΔΙΑΦΟΡΕΤΙΚΑ ΔΕΔΟΜΕΝΑ 


ΣΧΟΛΗ ΜΗΧ-ΜΗΧ ΕΜΠ 

2

Εισαγωγή στην FORTRAN 77 

• ΠΗΓΑΙΟΣ ΚΩΔΙΚΑΣ (SOURCE CODE) 

• FORTRAN ΜΕΤΑΦΡΑΣΤΗΣ (COMPILER) 

• ΑΝΤΙΚΕΙΜΕΝΙΚΟΣ ή ΕΚΤΕΛΕΣΙΜΟΣ ΚΩΔΙΚΑΣ (OBJECT CODE) 

• ΔΙΑΦΟΡΕΣ COMPILER ΑΠΟ INTERPRETER (π.χ. FORTRAN – 

BASIC) 

• ΠΛΕΟΝΕΚΤΗΜΑΤΑ-ΜΕΙΟΝΕΚΤΗΜΑΤΑ ΤΗΣ ΟΛΟΚΛΗΡΗΣ 

ΜΕΤΑΦΡΑΣΗΣ ΚΑΙ ΤΗΣ ΕΝΤΟΛΗΣ –ΠΡΟΣ –ΕΝΤΟΛΗ 

ΜΕΤΑΦΡΑΣΗΣ 



3

Μετάφραση Πηγαίου Κώδικα FORTRAN 77 

Έστω ο πηγαίος κώδικας myprog.for 

(1) Πρώτος Τρόπος Μετάφρασης: 

f77 myprog.for 

Το εκτελέσιμο λέγεται υποχρεωτικά a.out. Αν, στον ίδιο κατάλογο 

προϋπάρχει ρχ αρχείο a.out, αντικαθίσταται με το νέο εκτελέσιμο. 

(2) Δεύτερος Τρόπος Μετάφρασης: 

f77 –o bbb myprog.for 

Το εκτελέσιμο λέγεται bbb ή ότι άλλο όνομα δώσουμε μετά το –o (μικρό 

λατινικό «όμικρον», από λέξη object). Δυνατότητα να συνυπάρχουν 

πολλά εκτελέσιμα, που αντιστοιχούν σε διαφορετικούς πηγαίους 

κώδικες, το καθένα με διαφορετικό όνομα. 

ΠΡΟΣΟΧΗ, ΣΕ Λ.Σ. UNIX: 

(1) Η f77 myprog.for είναι εντολή μετάφρασης, ενώ η F77 myprog.for είναι 

λάθος! 

(2) Η f77 myprog.for και η f77 MYPROG.FOR θα μεταφράσουν δυό 

διαφορετικούς πηγαίους κώδικες. Προσοχή στη γραφή και μικρούς και 

κεφαλαίους χαρακτήρες! 



4

ΛΟΓΙΚΟ ΔΙΑΓΡΑΜΜΑ (FLOW CHART) 

• ΠΑΡΙΣΤΑΝΕΙ ΠΕΡΙΓΡΑΦΙΚΑ ΤΗΝ ΠΟΡΕΙΑ ΠΡΑΞΕΩΝ ΚΑΙ 

ΛΟΓΙΚΩΝ ΔΙΕΡΓΑΣΙΩΝ ΠΟΥ ΘΑ ΚΑΝΕΙ Ο Η.Υ 

ΒΑΣΙΚΑ ΧΑΡΑΚΤΗΡΙΣΤΙΚΑ ΕΝΟΣ ΑΛΓΟΡΙΘΜΟΥ: 

• ΑΠΑΛΛΑΓΜΕΝΟΣ ΣΗΜΕΙΩΝ ΑΜΦΙΒΟΛΙΑΣ 

• ΑΠΟΤΕΛΕΣΜΑΤΙΚΟΣ, ΕΝΤΟΣ ΑΠΟΔΕΚΤΟΥ ΧΡΟΝΟΥ 

• ΓΕΝΙΚΟΣ 

• ΜΕ ΤΗ ΒΕΛΤΙΣΤΗ ΑΠΟΔΟΣΗ 

• ΣΥΜΒΑΤΟΣ ΜΕ ΤΙΣ ΔΥΝΑΤΟΤΗΤΕΣ ΤΟΥ Η.Υ. 



5



6



7



8

ΔΟΜΗ ΕΝΤΟΛΩΝ ΣΤΗ FORTRAN 

• ΣΤΗΛΗ 1 : ΣΧΟΛΙΟ ΑΝ ΓΡΑΦΕΙ Ο ΧΑΡΑΚΤΗΡΑΣ C 

• ΣΤΗΛΕΣ 1-5 : ΑΡΙΘΜΟΙ ΕΝΤΟΛΩΝ 

• ΣΤΗΛΗ 6 : ΣΥΜΒΟΛΟ ΣΥΝΕΧΕΙΑΣ 

• ΣΤΗΛΕΣ 7-72 : ΕΝΤΟΛΕΣ FORTRAN 

• ΣΤΗΛΕΣ 73-80 : ΚΕΝΕΣ (ΠΕΔΙΟ ΑΝΑΓΝΩΡΙΣΗΣ) 

• ΓΙΑΤΙ 80 ΧΑΡΑΚΤΗΡΕΣ 

• ΠΗΓΑΙΟΣ ΚΩΔΙΚΑΣ ΓΡΑΜΜΕΝΟΣ ΜΕ ΚΕΦΑΛΑΙΟΥΣ ή 

ΜΙΚΡΟΥΣ ΧΑΡΑΚΤΗΡΕΣ ΕΥΤΥΧΩΣ ΕΙΝΑΙ ΑΔΙΑΦΟΡΟ!!!! 



9

ΣΥΝΕΧΙΣΗ ΣΕ ΕΠΟΜΕΝΗ ΓΡΑΜΜΗ – 

Η ΕΚΤΗ ΣΤΗΛΗ 

C2345678901234567890 

XX=A1+A2+A3+A4 

XX=A1+A2+ 

1A3+A4 

XX=A1 +A2 

5 +A3+ A4 

XX=A1+A2+A3+A 

44 

XX=A1+A2+ 

7+A3+A4 

XX= 

1A1+ 

1A2+ 

3A3+A4 

ΠΟΙΕΣ ΑΠΟ ΤΙΣ ΠΑΡΑΠΑΝΩ ΓΡΑΦΕΣ ΕΙΝΑΙ: 

1. ΣΩΣΤΕΣ 

2. ΛΑΘΟΣ 

3. «ΕΠΙΚΙΝΔΥΝΕΣ» ή «ΟΧΙ ΣΥΝΙΣΤΩΜΕΝΕΣ» 

;;;; 



10

ΣΧΟΛΙΑ-ΚΕΝΕΣ ΓΡΑΜΜΕΣ 

C2345678901234567890 

C XX=A1+A2+A3+A4 

C XX=A1+A2+A3+A4 

C HOMEWORK (OPERATING SYSTEMS) 13/12/2004 

XX=A1+A2+A3+A4 ! ATTENTION 

C 

(κενή γραμμή) 

! CORRECTED 15/12/2004 

ΣΥΝΗΘΙΣΤΕ ΝΑ ΒΑΖΕΤΕ ΣΧΟΛΙΑ. 

Η ΒΟΛΙΚΗ ΧΡΗΣΗ ΤΟΥ ΘΑΥΜΑΣΤΙΚΟΥ (!). 

ΟΙ ΚΕΝΕΣ ΓΡΑΜΜΕΣ ΕΙΝΑΙ ΑΚΙΝΔΥΝΕΣ. 



11

ΒΑΣΙΚΕΣ ΕΝΤΟΛΕΣ FORTRAN 

• H ΕΝΤΟΛΗ PROGRAM : ΔΙΝΕΙ ΕΝΑ «ΕΣΩΤΕΡΙΚΟ» ΟΝΟΜΑ ΣΤΟ 

ΜΕΤΑΦΡΑΖΟΜΕΝΟ ΠΡΟΓΡΑΜΜΑ. 

ΠΡΟΑΙΡΕΤΙΚΗ. ΚΑΛΟ (ΓΙΑ ΜΑΣ!) ΕΙΝΑΙ ΝΑ ΓΡΑΦΕΤΑΙ. 

ΓΡΑΦΕΤΑΙ ΜΙΑ ΦΟΡΑ ΣΕ ΚΑΘΕ ΠΡΟΓΡΑΜΜΑ. 

ΑΚΟΛΟΥΘΕΙΤΑΙ ΑΠΟ ΕΝΑ ΟΝΟΜΑ, ΧΩΡΙΣ ΚΕΝΑ 

• Η ΕΝΤΟΛΗ END : ΔΕΙΧΝΕΙ ΤΟ ΤΕΛΟΣ ΤΗΣ ΜΕΤΑΦΡΑΣΗΣ 

ΥΠΟΧΡΕΩΤΙΚΗ. 

ΥΠΑΡΧΕΙ ΜΙΑ ΦΟΡΑ ΣΤΟ ΤΕΛΟΣ ΚΑΘΕ ΠΡΟΓΡΑΜΜΑΤΟΣ. 

... ΕΚΤΟΣ ΑΝ ΥΠΑΡΧΟΥΝ ΥΠΟΠΡΟΓΡΑΜΜΑΤΑ ... 

• Η ΕΝΤΟΛΗ STOP : ΔΕΙΧΝΕΙ ΤΟ ΤΕΛΟΣ ΤΗΣ ΕΚΤΕΛΕΣΗΣ 

ΠΡΟΑΙΡΕΤΙΚΗ. 

ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ ΟΣΕΣ ΦΟΡΕΣ ΚΑΙ ΣΕ ΟΣΑ ΣΗΜΕΙΑ 

ΜΕΣΑ ΣΤΟ ΠΡΟΓΡΑΜΜΑ ΕΠΙΘΥΜΟΥΜΕ ΤΕΡΜΑΤΙΣΜΟ ΤΗΣ 

ΕΚΤΕΛΕΣΗΣ. 

ΤΟ ΤΕΛΕΥΤΑΙΟ STOP ΜΠΟΡΕΙ ΝΑ ΠΑΡΑΛΕΙΠΕΤΑΙ. 



12

ΕΝΑ ΠΡΩΤΟ ΠΡΟΓΡΑΜΜΑ FORTRAN 

12345678901234567890 

PROGRAM DIVIDE ! ATHENS 12/2004 

C READS TWO REAL NUMBERS & PRINTS THEIR QUOTIENT 

C 

60 READ (*,*) VAL1,VAL2 

IF (VAL2.NE.0.) THEN 

RATIO=VAL1/VAL2 

ELSE 

RATIO=0. 

ENDIF 

WRITE (*,*) ‘R = :’,RATIO 

GOTO 60 

STOP ‘Good-night’ 

END 



13

H ΕΝΝΟΙΑ ΤΩΝ ΜΕΤΑΒΛΗΤΩΝ 

(ΣΕ ΓΛΩΣΣΕΣ ΥΨΗΛΟΥ ΕΠΙΠΕΔΟΥ) 

• ΣΤΑΘΕΡΕΣ & ΜΕΤΑΒΛΗΤΕΣ 

• ΔΙΕΥΘΥΝΣΗ ΜΝΗΜΗΣ ΚΑΘΕ ΜΕΤΑΒΛΗΤΗΣ ΕΙΝΑΙ 

ΑΔΙΑΦΟΡΗ ΓΙΑ ΤΟΝ ΠΡΟΓΡΑΜΜΑΤΙΣΤΗ 

• ΜΟΝΟΣΗΜΑΝΤΟΣ ΟΡΙΣΜΟΣ ΜΕΤΑΒΛΗΤΗΣ (ΜΕ ΤΟ 

ΟΝΟΜΑ ΠΟΥ ΘΑ ΤΗΣ ΔΟΘΕΙ) 

• (ΑΝ ΔΕΝ ΤΟ ΔΗΛΩΣΕΤΕ ΔΙΑΦΟΡΕΤΙΚΑ) ΟΙ 

ΠΡΑΓΜΑΤΙΚΕΣ ΚΑΙ ΟΙ ΑΚΕΡΑΙΕΣ ΜΕΤΑΒΛΗΤΕΣ 

ΑΠΑΙΤΟΥΝ ΔΙΑΦΟΡΕΤΙΚΑ ΟΝΟΜΑΤΑ: 

ΠΡΑΓΜΑΤΙΚΕΣ ΜΕΤΑΒΛΗΤΕΣ: ΤΟ ΟΝΟΜΑ 

ΤΟΥΣ ΞΕΚΙΝΑ ΑΠΟ (A-H,O-Z) 

ΑΚΕΡΑΙΕΣ ΜΕΤΑΒΛΗΤΕΣ: ΤΟ ΟΝΟΜΑ ΤΟΥΣ 

ΞΕΚΙΝΑ ΑΠΟ (I,J,K,L,M,N) 

• ΔΙΑΚΡΙΣΗ ΤΟΥ 5. ΑΠΟ ΤΟ 5 

• ΤΟ «ΚΟΜΜΑ» ΚΑΙ ΤΟ «ΚΕΝΟ» ΣΤΗ FORTRAN 

• ΠΛΗΘΟΣ ΧΑΡΑΚΤΗΡΩΝ ΑΝΑ ΜΕΤΑΒΛΗΤΗ 



14

ΟΝΟΜΑΤΟΛΟΓΙΑ ΜΕΤΑΒΛΗΤΩΝ 

• ΜΗΝ ΞΕΚΙΝΑΤΕ ΤΟ ΟΝΟΜΑ ΜΙΑΣ (ΑΚΕΡΑΙΑΣ ή 

ΠΡΑΓΜΑΤΙΚΗΣ) ΜΕΤΑΒΛΗΤΗΣ ΜΕ ΑΡΙΘΜΟ. 

• Ο ΠΡΩΤΟΣ ΧΑΡΑΚΤΗΡΑΣ ΠΡΕΠΕΙ ΝΑ ΕΙΝΑΙ ΠΑΝΤΑ 

ΓΡΑΜΜΑ. 

• ΤΟ ΟΝΟΜΑ ΜΙΑΣ ΜΕΤΑΒΛΗΤΗΣ ΔΕΝ ΜΠΟΡΕΙ ΝΑ 

ΠΕΡΙΕΧΕΙ ΚΕΝΟ 

• ΤΟ ΟΝΟΜΑ ΜΙΑΣ ΜΕΤΑΒΛΗΤΗΣ ΔΕΝ ΜΠΟΡΕΙ ΝΑ 

ΠΕΡΙΕΧΕΙ ΧΑΡΚΤΗΡΕΣ ΑΡΙΘΜΗΤΙΚΩΝ ΠΡΑΞΕΩΝ (+-/*) ή 

ΧΑΡΑΚΤΗΡΕΣ ΠΟΥ ΧΡΗΣΙΜΟΠΟΙΟΥΝΤΑΙ ΑΛΛΟΥ (()!.) 

• ΕΠΙΤΡΕΠΕΤΑΙ Η ΧΡΗΣΗ ΤΟΥ UNDERSCORE (_) 

• ΜΙΚΡΟΙ ΚΑΙ ΚΕΦΑΛΑΙΟΙ ΧΑΡΑΚΤΗΡΕΣ ΕΙΝΑΙ 

ΑΔΙΑΦΟΡΟΙ. ΓΡΑΦΟΝΤΑΣ AFG, Afg, afg, Afg 

ΑΝΑΦΕΡΟΜΑΣΤΕ ΣΕ ΜΙΑ ΚΑΙ ΜΟΝΑΔΙΚΗ ΜΕΤΑΒΛΗΤΗ. 



15

ΟΝΟΜΑΤΟΛΟΓΙΑ ΜΕΤΑΒΛΗΤΩΝ - TESTS 

K124_as 1kgg*2 fgkk 

mkhh MKHH A_B_C 

A_1 _ghhe LKI1 

k145 as99 Khn 



16

ΑΚΕΡΑΙΕΣ ΜΕΤΑΒΛΗΤΕΣ 

• ΑΝ ΤΟ ΟΝΟΜΑ ΤΗΣ ΜΕΤΑΒΛΗΤΗΣ ΑΡΧΙΖΕΙ ΑΠΟ I-J-K-L- 

M-N, ΑΣΧΕΤΑ ΜΕ ΤΟ ΤΙ ΑΚΟΛΟΥΘΕΙ, ΑΥΤΗ ΕΙΝΑΙ 

ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΗ. 

• ΜΙΑ ΜΟΝΟ ΠΕΡΙΠΤΩΣΗ ΥΠΑΡΧΕΙ ΝΑ ΔΙΑΤΑΡΑΧΘΕΙ Ο 

ΚΑΝΟΝΑΣ ΑΥΤΟΣ (ΑΝ ΔΗΛΩΘΕΙ/ βλ. επόμενα μαθήματα) 

• ΠΑΡΑΔΕΙΓΜΑΤΑ: 

ko 

KO 

k123 

K_123 



17

ΕΚΤΕΛΕΣΗ ΑΡΙΘΜΗΤΙΚΩΝ ΠΡΑΞΕΩΝ- TESTS 

Ο ΤΕΛΕΣΤΗΣ ΙΣΟΤΗΤΑΣ (=) 

• Χ=Α+Β 

• Α+Β=Χ 

• Α=Α+Β 

• K=K+1 (ΜΕΤΡΗΤΗΣ) 

ΕΝΤΟΛΗ ΑΠΟΔΟΣΗΣ 

• Χ=Υ 

• Χ=72. 

• K=8.5 

• Χ=K 

• K=Χ 

ΑΡΙΘΜΗΤΙΚΟΙ ΤΕΛΕΣΤΕΣ 

• Χ=Α+Β 

• Χ=Α-Β 

• Χ=Α/Β 

• Χ=Α**Β. 

ΠΡΟΣΟΧΗ !!! 



18

ΕΚΤΕΛΕΣΗ ΑΡΙΘΜΗΤΙΚΩΝ ΠΡΑΞΕΩΝ 

12345678901234567890 

Χ=7.2 

K=X 

WRITE(*,*)X,K 

X=K 

WRITE(*,*)X,K 

X=1.2 

Y=.4 

A=X/Y 

WRITE(*,*)A 

K=X 

L=Y 

KLO=K/L 

WRITE(*,*)KLO 



ΤΙ ΤΥΠΩΝΕΙ ΚΑΘΕ ΦΟΡΑ;;; 

ΠΡΟΣΕΞΤΕ ΟΤΑΝ 

ΑΝΑΜΕΙΓΝΥΟΝΤΑΙ ΠΡΑΓΜΑΤΙΚΕΣ 

ΚΑΙ ΑΚΕΡΑΙΕΣ ΜΕΤΑΒΛΗΤΕΣ!!! 

ΠΡΟΣΕΞΤΕ ΤΗ ΔΙΑΙΡΕΣΗ 

ΑΚΕΡΑΙΩΝ 

19

ΠΑΡΑΔΕΙΓΜΑΤΑ - ΕΞΟΙΚΕΙΩΣΗ 

12345678901234567890 

Χ=0.20 

Χ=.2000 

Χ=.2 

Χ=-.2 

X=.17Ε2 

Χ=.17Ε-2 

X=.17Ε02 

Χ=.17Ε-02 

X=.1+.2 2*ALFA 

X=0.1+0.2*ALFA 

17.0 

0.0017 

17.0 

0.0017 



20

ΠΡΑΞΕΙΣ ΜΕ ΜΕΤΑΒΛΗΤΕΣ 

ΠΡΟΤΕΡΑΙΟΤΗΤΑ 

• ΠΑΡΕΝΘΕΣΕΙΣ 

• ΥΨΩΣΗ ΣΕ ΔΥΝΑΜΗ 

• ΠΟΛΛ/ΣΜΟΣ – ΔΙΑΙΡΕΣΗ 

• ΠΡΟΣΘΕΣΗ – ΑΦΑΙΡΕΣΗ 

Χ= 7.+ (Υ**2-13.) **3+Υ 

Υ 

ΣΥΝΘΕΤΕΣ ΠΡΑΞΕΙΣ – ΕΝΔΙΑΜΕΣΕΣ ΜΕΤΑΒΛΗΤΕΣ 

F=Υ**2-13 

2-13. 

Τ= F*F*F 

Χ=7.+T+Υ 



21

ΜΑΘΗΜΑΤΙΚΕΣ ΣΥΝΑΡΤΗΣΕΙΣ ΒΙΒΛΙΟΘΗΚΗΣ 

MATHEMATICAL LIBRARY FUNCTIONS 

ΟΝΟΜΑ ΟΡΙΣΜΑ ΧΠΟΥ ΤΙΜΗ ΣΥΝΑΡΤΗΣΗΣ 

ΔΕΧΕΤΑΙ 

ΠΟΥ ΕΠΙΣΤΡΕΦΕΙ 

SQRT(X) +VE +VE 

ABS(X) 

SIN(X) 

COS(X) 

ASIN(X) 

ACOS(X) 

ATAN(X) 

EXP(X) 

ALOG(X) 

ALOG10(X) 

RAD 

RAD 

+VE 

+VE 

+VE 

RAD 

RAD 

RAD 



22

ΤΟΞΑ ΤΡΙΓΩΝΟΜΕΤΡΙΚΩΝ ΑΡΙΘΜΩΝ 

ΠΡΟΣΟΧΗ ΣΤΟ ΣΕ ΠΟΙΑ ΤΕΡΤΑΜΗΜΟΡΙΑ ΕΠΙΣΤΡΕΦΟΥΝ 

ΤΙΣ ΓΩΝΙΕΣ ΠΟΥ ΥΠΟΛΟΓΙΖΟΥΝ ΟΙ ΣΥΝΑΡΤΗΣΕΙΣ 

ΒΙΒΛΙΟΘΗΚΗΣ ASIN, ACOS,ATAN 

II 

I 

III 

IV 



23

ΠΑΡΑΔΕΙΓΜΑ - ΕΞΟΙΚΕΙΩΣΗ 

12345678901234567890 

PROGRAM COMPUTERAKI 

C THIS PROGRAM COMPUTES EXPONENTIAL(X) 

WRITE(*,*)’ ENTER A REAL NUMBER ‘ 

READ(*,*)XX 

H=EXP(XX) 

WRITE(*,*)’ EXP OF’,XX,’ IS ‘,H 

WRITE(*,*)’ H ‘,H 

STOP 

END 



READ(*,*)XX 

WRITE(*,*)’ EXP OF’,XX,’ IS ‘,EXP(XX) 

END 



24

ΠΑΡΑΔΕΙΓΜΑ – ΤΡΙΓΩΝΟΜΕΤΡΙΑ 

12345678901234567890 

PROGRAM TRIG 

C YOU MUST DEFINE PI 

PI=4.*ATAN(1.) 

WRITE(*,*)’ ENTER AN ANGLE IN DEG. ‘ 

READ(*,*)ALFA*)ALFA 

ALFA=ALFA/180.*PI 

CA=COS(ALFA) 

SA=SIN(ALFA) 

WRITE(*,*)CA**2+SA**2 

END 



25

ΛΟΓΙΚΕΣ ΠΑΡΑΣΤΑΣΕΙΣ 

• ΠΟΙΑ ΕΙΝΑΙ Η ΕΠΟΜΕΝΗ ΕΝΤΟΛΗ ΠΟΥ ΘΑ 

ΕΚΤΕΛΕΣΤΕΙ;;;;; 

• ΧΡΗΣΗ ΤΟΥ ΛΟΓΙΚΟΥ IF: 

ΑΡΙΘΜΗΤΙΚΗ ΠΑΡΑΣΤΑΣΗ = ΑΠ 

ΤΕΛΕΣΤΗΣ ΣΥΣΧΕΤΙΣΗΣ = ΤΣ 

ΠΑΡΕΝΘΕΣΗ ΚΑΙ ΤΕΛΕΙΕΣ: 

IF (ΑΠ1.ΤΣ.ΑΠ2) ΜΙΑ ΜΟΝΟ ΕΝΤΟΛΗ ΓΙΑ ΕΚΤΕΛΕΣΗ 

ΟΠΟΥ: ΤΣ = .EQ. , .NE. , .GT. , .LT. , .GE. , .LE. 

ΠΑΡΑΔΕΙΓΜΑΤΑ: 

IF(KLO.EQ.7) WRITE(*,*)’ *)’ HELLO ‘ 

IF(KLO.EQ.MMM) NIK=KLO 

IF(XX.GT.YY) ALFA=XX-YY 

IF(XX+YY.LE.AA+BB/2.) MMM=1 

IF(SQRT(XX+YY).LT..5) STOP 

IF(23..LT..5*X) X=SQRT(U+ALOG(Y)) 



26

ΠΑΡΑΔΕΙΓΜΑ – ΕNA BHMA ΕΜΠΡΟΣ 

12345678901234567890 


C THIS PROGRAM COMPUTES LOG10(X) 


READ(*,*)XX 

IF(XX.GT.0.) H=ALOG10(XX) 

WRITE(*,*)’ LOG10 OF’,XX,’ IS ‘,H 

STOP 

END 



27

ΛΟΓΙΚΕΣ ΠΑΡΑΣΤΑΣΕΙΣ 

• Η ΣΥΝΤΑΞΗ (IF-THEN-ENDIF) 

IF (ΑΠ1.ΤΣ.ΑΠ2) THEN 

ΜΙΑ ή ΠΕΡΙΣΣΟΤΕΡΕΣ ΕΝΤΟΛΕΣ ΓΙΑ ΕΚΤΕΛΕΣΗ 

ENDIF 

• Η ΣΥΝΤΑΞΗ (IF-THEN-ELSE-ENDIF) 

IF (ΑΠ1.ΤΣ.ΑΠ2) THEN 

ΜΙΑ ή ΠΕΡΙΣΣΟΤΕΡΕΣ ΕΝΤΟΛΕΣ (ΣΕΝΑΡΙΟ 1) 

ELSE 

ΜΙΑ ή ΠΕΡΙΣΣΟΤΕΡΕΣ ΕΝΤΟΛΕΣ (ΣΕΝΑΡΙΟ 2) 

ENDIF 



28


12345678901234567890 




READ(*,*)XX 

IF(XX.GT.0.) ΤΗΕΝ 

H=ALOG10(XX) 

WRITE(*,*)’ EXP OF’,XX,’ ’ IS ‘,H 

ENDIF 

STOP 

END 



29


12345678901234567890 



90 WRITE(*,*)’ ENTER A REAL NUMBER ‘ 

READ(*,*)XX 

IF(XX.GT.0.) ΤΗΕΝ 

H=ALOG10(XX) 

WRITE(*,*)’ LOG10 OF’,XX,’ ’ IS ‘,H 

ELSE 

WRITE(* ,*)’ IMPOSSIBLE LOG(-VE) ‘ 

ENDIF 

GOTO 90 

STOP 

END 



30

ΠΑΡΑΔΕΙΓΜΑ – ΜΙΑ ΔΙΕΥΚΡΙΝΙΣΗ 

12345678901234567890 



90 WRITE(*,*)’ ENTER A REAL NUMBER ‘ 

READ(*,*)XX 

IF(XX.LT.0.) ΤΗΕΝ 

WRITE(*,*)’ IMPOSSIBLE LOG(-VE) ‘ 

XX=-XX ! XX CHANGES SIGN 

ELSE 

H=ALOG10(XX) 

WRITE(*,*)’ EXP OF’,XX,’ IS ‘,H 

ENDIF 

ΤΙ ΘΑ ΤΥΠΩΣΕΙ;;; 

GOTO 90 

ΑΝ ΕΚΤΕΛΕΣΕΙ ΤΟ ΕΝΑ ΣΕΝΑΡΙΟ 

STOP 

ΕΝΤΟΛΩΝ ΑΠΟΚΛΕΙΕΤΑΙ ΝΑ 

END 

ΕΚΤΕΛΕΣΕΙ ΚΑΙ ΤΟ ΑΛΛΟ 



31

ΛΟΓΙΚΟΙ ΤΕΛΕΣΤΕΣ AND ΚΑΙ OR 

(Α) ΛΟΓΙΚΗ ΛΟΓΙΚΟΙ (Β) ΛΟΓΙΚΗ ΑΠΟΤΕΛΕΣΜΑ 

ΠΑΡΑΣΤΑΣΗ ΤΕΛΕΣΤΕΣ ΠΑΡΑΣΤΑΣΗ 

TRUE .AND. TRUE TRUE 

TRUE .AND. FALSE FALSE 

FALSE .AND. TRUE FALSE 

FALSE .AND. FALSE FALSE 

TRUE .OR. TRUE TRUE 

TRUE .OR. FALSE TRUE 

FALSE .OR. TRUE TRUE 

FALSE .OR. FALSE FALSE 



32

ΠΑΡΑΔΕΙΓΜΑ – AND 

12345678901234567890 

PROGRAM LEARN_AND 

WRITE(*,*)’ ENTER TWO REAL NUMBERS ‘ 

READ(*,*)XX,YY 

IF(XX.GT.0..AND.YY.GT.0.) 0 ΤΗΕΝ 

SUM=ALOG(XX)+ALOG(YY) 

WRITE(*,*) SUM 

ELSE 


ENDIF 

STOP 

END 



33

ΠΑΡΑΔΕΙΓΜΑ – OR 

12345678901234567890 

PROGRAM LEARN_AND 



IF((XX.GT.0..AND.YY.GT.0.).OR. 

0 1 (XX.LT.0..AND.YY.LT.0.) ) ΤΗΕΝ 

SUM=ALOG(XX*YY) 

WRITE(*,*) SUM 

ELSE 


ENDIF 

STOP 

END 



34

ΔΙΑΧΕΙΡΙΣΗ ΑΡΧΕΙΩΝ 

OPEN :ΑΝΟΙΓΩ ΓΙΑ ΧΡΗΣΗ ΕΝΑ 

ΑΡΧΕΙΟ ΚΑΙ ΤΟ ΤΑΥΤΙΖΩ ΜΕ 

ΜΙΑ UNIT 

READ από ή WRITE στο αρχείο 



CLOSE :ΚΛΕΙΝΩ ΤΟ ΑΡΧΕΙΟ 

ΚΑΙ «ΕΛΕΥΘΕΡΩΝΩ» ΤΟ UNIT 



35

ΔΙΑΧΕΙΡΙΣΗ ΑΡΧΕΙΩΝ – H ENTOΛH OPEN 

ΠΑΡΑΔΕΙΓΜΑΤΑ ΕΝΤΟΛΗΣ OPEN: 

OPEN(UNIT=1,FILE=’MYDATA’,STATUS=’NEW’,ACCESS=’SEQUE 

, , NTIAL’) 

ΟΡΙΣΜΑΤΑ ΕΝΤΟΛΗΣ OPEN: 

UNIT=1 ως 99 (αριθμός μονάδας) 

FILE=’ένα όνομα αρχείου’ 

STATUS=’OLD OLD, NEW, SCRATCH, UNKNOWN’ 

ACCESS=’SEQUENTIAL, DIRECT’ 

FORM=’FORMATTED, UNFORMATTED’ 

ERR=1 ως 99999 (αριθμός θ ό εντολής) 

) 

ΠΡΑΚΤΙΚΑ ΓΙΑ ΤΗΝ OPEN: 

OPEN(UNIT=1,FILE=’RESFILE’) 

’) 

OPEN(1,FILE=’RESFILE’) 



36

ΔΙΑΧΕΙΡΙΣΗ ΑΡΧΕΙΩΝ – H ENTOΛH CLOSE 

ΠΑΡΑΔΕΙΓΜΑΤΑ ΕΝΤΟΛΗΣ CLOSE: 

CLOSE(UNIT=1,STATUS=’KEEP’) 

ΟΡΙΣΜΑΤΑ ΕΝΤΟΛΗΣ CLOSE: 

UNIT=όπως και στην OPEN 

STATUS=’KEEP(όχι για scratch), DELETE’ 

ERR= όπως και στην OPEN 

ΠΡΑΚΤΙΚΑ ΓΙΑ ΤΗΝ OPEN: 

CLOSE(1) 

Η ΕΝΤΟΛΗ REWIND 

REWIND(1) 

… αρκεί να είναι ήδη ανοικτή η μονάδα 1 



37

ΓΡΑΨΙΜΟ ΣΕ ΑΡΧΕΙΟ 

12345678901234567890 

PROGRAM LEARN_HOW_TO_WRITE 



OPEN(1,FILE=‘RES.DAT’) 

WRITE(1,*)’ NUMBER (1) =‘,XX 

WRITE(1,*)’ NUMBER (2) =‘,YY 

SUM=XX+YY 

WRITE(1,*)’ SUM = ‘,SUM 

WRITE(1,*)XX-YY 

CLOSE(1) 

END 



NUMBER (1) = 6.000000 

NUMBER (2) = 4.000000 

SUM = 10.000000 

2.000000 

38

ΔΙΑΒΑΣΜΑ ΑΠΟ ΑΡΧΕΙΟ 

12345678901234567890 

PROGRAM LEARN_HOW_TO_READ 

OPEN(1,FILE=‘MY.DAT’) 

READ(1,*)X1,X2 

READ(1,*)Y1,Y2,Y3,Y4 

SUMX=X1+X2 

SUMY=Y1+Y2+Y3+Y4 

WRITE(*,*)SUMX 

WRITE(*,*)SUMY 

CLOSE(1) 

END 

100 1.00 200 2.00 

3.00 -7. 10. 

0.5 

-.5 



39

ΔΙΑΒΑΣΜΑ ΑΠΟ ΑΡΧΕΙΟ (2) 

12345678901234567890 

PROGRAM LEARN_HOW_TO_READ 



REWIND(1) 

READ(1,*)Y1,Y2,Y3,Y4 

SUMX=X1+X2 

SUMY=Y1+Y2+Y3+Y4 

WRITE(*,*)SUMX 

WRITE(*,*)SUMY 

CLOSE(1) 

END 

100 1.00 200 2.00 

3.00 -7. 10. 

0.5 

-.5 



40

ΔΙΑΒΑΣΜΑ – ΓΡΑΨΙΜΟ ΣΕ ΑΡΧΕΙΟ 

12345678901234567890 

PROGRAM READ_AND_WRITE 


100 1.00 200 2.00 


3.00 -7. 10. 

READ(1,*)Y1,Y2 

0.5 

-.5 

CLOSE(1) 

OPEN(1,FILE=‘MY.RES’) 

WRITE(1,*)X1+X2 

WRITE(1,*)’HELLO’ 

3.000000 

WRITE(*,*)’HELLO’ 

HELLO 

CLOSE(1) 

END 



41

ΑΣΚΗΣΗ – ΛΥΣΗ ΔΕΥΤΕΡΟΒΑΘΜΙΑΣ 

12345678901234567890 

PROGRAM SECOND_ORDER 

WRITE(*,*)’ ENTER A,B & C COEFFICIENTS’ 

READ(*,*)A,B,C 

DIAKR=B**2-4.*A*C 

IF(DIAKR.LT.0.) STOP ’ NEGATIVE DIAKR ‘ 

DIAKR=SQRT(DIAKR) 

IF(ABS(A).LT.1.e-6) STOP ‘ZERO PARON’ 

SOL1=(-B+DIAKR)*.5/A 

SOL2=(-B-DIAKR)*.5/A 

WRITE(* ,*)’ FIRST ROOT 

= ’,SOL1 

WRITE(*,*)’ SECOND ROOT = ’,SOL2 

END 



42

I/O ΧΩΡΙΣ ΔΙΑΜΟΡΦΩΣΗ (FORMAT) 

12345678901234567890 


PRINT *,A,B,C 

WRITE(*,*)A,B,C 

READ *,A,B,C 

, ,C 



43

I/O ΜΕ ΔΙΑΜΟΡΦΩΣΗ (FORMAT) 

12345678901234567890 

READ(*,10)A,B,C 

PRINT 10,A,B,C 

WRITE(*,10)A,B,C 

READ 10,A,B,C 

, ,C 

10 FORMAT(τρόπο διαβάσματος ή γραφής) 



44

ΔΙΑΜΟΡΦΩΣΗ ΓΙΑ ΑΚΕΡΑΙΟΥΣ 

12345678901234567890 

WRITE(*,4)KT1,KT2,KT3 

4 FORMAT(3I5) 

5 FORMAT(I5,2X,I4,1X,I2) 

6 FORMAT(‘ VALUES ARE’,2X,3I2) 

7 FORMAT(I5,/,I5,/,I5) 

5 / 5) 

V A 

1 

1 

L 

1 

2 

3 

0 

0 

U 

0 

0 

0 

E S 

2 0 3 0 

2 

0 

3 0 

A R E 1 0 2 0 3 0 



45

ΔΙΑΜΟΡΦΩΣΗ ΓΙΑ ΠΡΑΓΜΑΤΙΚΟΥΣ 

12345678901234567890 

WRITE(*,5)ΑΑ1,ΑΑ2,ΑΑ3 

PRINT 5,ΑΑ1,ΑΑ2,ΑΑ3 

, , 

5 FORMAT(3F10.5) 

6 FORMAT(F10.5,3X,F10.4,4X,F12.5) 

7 FORMAT(‘ VALUES:’,3(2X,F12.5)) 

8 FORMAT(6HVALUES,3(2X,F12.5)) 

9 FORMAT(‘ VALUES:’,3(2X,E12.5)) 

(3Χ,F10.6) 

x x x - 3 . 0 6 0 0 0 0 

3 κενά 

6-δεκαδικό 



10 θέσεις 

46

ΑΝ ΔΕΝ ΕΠΑΡΚΕΙ ΣΕ ΠΛΗΘΟΣ ΤΟ FORMAT 

12345678901234567890 

AA1=10. 

AA2=200. 

AA3=AA1+AA2 

AA4=0.5 

WRITE(*,5)ΑΑ1,ΑΑ2,ΑΑ3,AA4 

5 FORMAT(3(1x,F7.3)) 

1 

■ 

2 

● 

3 

1 

4 

0 

5 

. 

6 

0 

7 

0 

8 

0 

■ ● ● ● . 5 0 0 

9 

■ 

0 

2 

1 

0 

2 

0 

3 

. 

4 

0 

5 

0 

6 

0 

7 

■ 

8 

2 

9 

1 

0 

0 

1 

. 

2 

0 

3 

0 

4 

0 

όπου ■=κενό λόγω του 1Χ και ●=κενό που αφήνει το F7.3 



47

ΑΝ ΔΕΝ ΕΠΑΡΚΕΙ ΣΕ ΜΗΚΟΣ ΧΑΡΑΚΤΗΡΩΝ 

12345678901234567890 

AA1=10. 

AA2=20000. 

AA3=AA1+AA2 

AA4=0.0000005 

WRITE(*,5)ΑΑ1,ΑΑ2,ΑΑ3,AA4 

5 FORMAT(3(1x,F7.3)) 

1 

■ 

2 

● 

3 

1 

4 

0 

5 

. 

6 

0 

7 

0 

8 

0 

■ ● ● ● . 0 0 0 

9 

■ 

0 

* 

1 

* 

2 

* 

3 

* 

4 

* 

5 

* 

6 

* 

7 

■ 

8 

* 

9 

* 

0 

* 

1 

* 

2 

* 

3 

* 

4 

* 

όπου ■=κενό λόγω του 1Χ και ●=κενό που αφήνει το F7.3 

ενώ τα *=φαίνονται στην οθόνη ή το αρχείο 



48

ΕΚΘΕΤΙΚΟ FORMAT 

12345678901234567890 

AA1=1.E5 

AA2=.5*AA1 

WRITE(*,5)ΑΑ1,ΑΑ2 

5 FORMAT(1x,E10.3) 

AA1=1010 5 

1 

■ 

2 

● 

3 

0 

4 

. 

5 

1 

6 

0 

7 

0 

8 

E 

9 

+ 

0 

0 

1 

6 

■ ● 0 . 5 0 0 E + 0 5 

όπου ■=κενό λόγω του 1Χ και ●=κενό που αφήνει το E10.3 



49

ΕΚΘΕΤΙΚΟ FORMAT 

12345678901234567890 

AA1=1.E-5 

AA2=.5*AA1 

WRITE(*,5)ΑΑ1,ΑΑ2 

5 FORMAT(1x,E10.3) 

AA1=1010 -5 

1 

■ 

2 

● 

3 

0 

4 

. 

5 

1 

6 

0 

7 

0 

8 

E 

9 

- 

0 

0 

1 

6 

■ ● 0 . 5 0 0 E - 0 5 




50

ΑΛΛΟΣ ΤΡΟΠΟΣ ΔΙΑΜΟΡΦΩΣΗΣ 

12345678901234567890 

AA1=1.E-5 

AA2=.5*AA1 

WRITE(*,’(1x,E10.3)’)ΑΑ1,ΑΑ2 

1 

■ 

2 

● 

3 

0 

4 

. 

5 

1 

6 

0 

7 

0 

8 

E 

9 

- 

0 

0 

1 

4 

■ ● 0 . 5 0 0 E - 0 5 




51

ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΩΝ (CHARACTER) 

ΚΑΤΗΓΟΡΙΕΣ ΜΕΤΑΒΛΗΤΩΝ: 

•ΑΡΙΘΜΗΤΙΚΕΣ ΜΕΤΑΒΛΗΤΕΣ 

•ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΩΝ 

•ΜΕΤΑΒΛΗΤΕΣ ΜΕ ΔΕΙΚΤΗ 

•ΛΟΓΙΚΕΣ ΜΕΤΑΒΛΗΤΕΣ 

ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΩΝ – Η ΔΗΛΩΤΙΚΗ ΕΝΤΟΛΗ: 

CHARACTER A*6, B*8 

CHARACTER*10 A1,A2,A3 

A = ‘SALARY’ 

B = ‘INTEREST’ 

READ(*,’(A)’)A,B 

(ΕΝΑΛΛΑΚΤΙΚΟΣ) ΣΥΜΒΟΛΙΣΜΟΣ HOLLERITH: 

CHARACTER A*6, B*8 

A = 6HSALARY 

B = 8HINTEREST 

ΆN: 

CHARACTER A*8 

A = ‘SALARY’ 

TOTE: 

A = ‘SALARY□□’ 



52

ΠΡΑΞΕΙΣ ΜΕ ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΩΝ 

A = B 

ΤΙ ΓΙΝΕΤΑΙ ΑΝ: 

# ΧΑΡ (Β) = # ΧΑΡ (Α) 

# ΧΑΡ (Β) > # ΧΑΡ (Α) 

# ΧΑΡ (Β) < # ΧΑΡ (Α) 

( TA ΕΠΙΠΛΕΟΝ ΚΕΝΑ !!! ) 

ΠΑΡΑΔΕΙΓΜΑ: 

CHARACTER*3 A,B 

CHARACTER*5 C,D 

A=’DAY’ 

C=’MONTH’ 

B=A 

A=C 

D=B 

ΑΡΑ: 

Α=’ΜΟΝ’ 

Β=’DAY’ 

C=’MONTH’ 

D=’DAY DAY □□’ 



53

ΜΙΑ ΒΑΣΙΚΗ ΧΡΗΣΗ ΜΕΤ/ΩΝ ΧΑΡΑΚΤΗΡΩΝ 

12345678901234567890 

PROGRAM TEST_KKOWN 



CLOSE(1) 

PROGRAM TEST_ON_CHARACTERS 

CHARACTER C FNAME*10 

WRITE(*,*)’ENTER FILE NAME (MAX. 10 CHARS)’ 

READ(*,’(A)’)FNAME 

OPEN(1,FILE=FNAME) 


CLOSE(1) 

ΠΡΟΣΕΞΤΕ ΠΟΤΕ & 

ΓΙΑΤΙ ΒΑΖΟΥΜΕ 

ΕΙΣΑΓΩΓΙΚΑ 



54

ΠΡΟΧΩΡΗΜΕΝΗ ΧΡΗΣΗ ΜΕΤ/ΩΝ ΧΑΡΑΚΤΗΡΩΝ 

12345678901234567890 

PROGRAM GIO 

CHARACTER A*8,FNAME*16 

NEO: ΛΑΜΒΑΝΩ 

A='USERNAME' 

ΤΜΗΜΑ Μ/ΤΗΣ Χ. 

FNAME=A(1:4) 

WRITE(*,*)' ENTER AN INTEGER ' ΝΕΟ: Η ΣΥΝΑΡΤΗΣΗ 

READ(*,*)KI 

MOD 

KI=MOD(KI,10) 

WRITE(FNAME(5:5),'(I1)')KI 

WRITE(*,*)FNAME 

OPEN(1,FILE=FNAME) 

END 

NEO: ΔΙΝΩ 

ΧΑΡΑΚΤΗΡΕΣ ΣΕ 

ΤΜΗΜΑ Μ/ΤΗΣ Χ. 



55

ΑΚΡΙΒΕΙΑ ΜΙΚΡΟΕΠΕΞΕΡΓΑΣΤΩΝ 

ΑΠΛΗ ΑΚΡΙΒΕΙΑ: 

ΑΚΕΡΑΙΟΙ : ΩΣ 10 ΣΨ (ΣΗΜΑΝΤΙΚΑ ΨΗΦΙΑ) 

ΠΡΑΓΜΑΤΙΚΟΙ : ΩΣ 7 ΣΨ 

( 532456212.45►532456200.00 ) 

ΔΙΠΛΗ ΑΚΡΙΒΕΙΑ: 

ΩΣ 16 ΣΨ 

-1.7976…x10308►-2.2250…x10-308 

2.2250…x10-308►1.7976…x10308 

ΑΝΑΓΚΗ ΥΠΟΛΟΓΙΣΜΩΝ ΔΙΠΛΗΣ ΑΚΡΙΒΕΙΑΣ 

INTEGER ► INTEGER*4 

DOUBLE PRECISION A,B 

REAL*4 A,B 

REAL*8 A,B 

IMPLICIT REAL (K-M) 

IMPLICIT INTEGER (A), (D-F) 

IMPLICIT REAL*8 (W-Z) 



ΑΡΚΕΙ ΝΑ 

ΔΗΛΩΝΟΝΤΑΙ !! 

ΔΗΛΩΣΗ ΜΕ 

IMPLICIT 

56

ΞΕΦΕΥΓΟΝΤΑΣ ΑΠΟ ΤΟΝ ΚΑΝΟΝΑ ΤΩΝ 

ΟΝΟΜΑΤΩΝ ΜΕΣΩ ΔΗΛΩΣΕΩΝ 

12345678901234567890 

PROGRAM WHATEVER_NAME 

REAL K*4,L*4,M*8 

INTEGER Y*4 

K=1.54 

L=2.38 

M=K/L 

Y=L 

WRITE(*,*)K,L,M,Y 

END 

1.540000 2.380000 6.470587763878265E-001 001 2 



57

ΑΣΚΗΣΗ – ΛΥΣΗ ΔΕΥΤΕΡΟΒΑΘΜΙΑΣ (DP) 

12345678901234567890 

PROGRAM SECOND_ORDER 

IMPLICIT DOUBLE PRECISION (A-H,O-Z) 

WRITE(*,*)’ ENTER A,B & C COEFFICIENTS’ 


DIAKR=B**2-4.D0*A*C 

IF(DIAKR.LT.0.D0) STOP ’ NEGATIVE DIAKR ‘ 

DIAKR=DSQRT(DIAKR) 

SOL1=(-B+DIAKR)*.5D0/A 

SOL2=(-B-DIAKR)*.5D0/A 

WRITE(* ,’(2(2X,D12.6) 6)’)SOL1,SOL2SOL2 

END 



58

ΠΑΡΑΔΕΙΓΜΑ (π) 

12345678901234567890 

PROGRAM PRINT_PI 

PI=4.*ATAN(1.) 

WRITE(*,*)PI 

END 3.141593 

PROGRAM PRINT_PI 


PI=4.D0*DATAN(1.D0) 

D0) 

WRITE(*,*)PI 

END 

3.141592653589793 



59

ΜΕΤΑΤΡΟΠΗ ΑΚΕΡΑΙΩΝ-ΠΡΑΓΜΑΤΙΚΩΝ 

ΑΚΕΡΑΙΟΣ → ΠΡΑΓΜΑΤΙΚΟΣ: 

X=KOUNT 

ALFA=DFLOAT(KOUNT) 

ALFA=DFLOAT(KOUNT+LO) 

ΠΡΑΓΜΑΤΙΚΟΣ → ΑΚΕΡΑΙΟΣ: 

BETA=-23.8 

K1=BETA 

L1=INT(BETA) 

M1=IFIX(BETA) 

WRITE(*,*)K1,L1,M1 

BETA=23.8 

K1=BETA 

L1=INT(BETA) 

M1=IFIX(BETA) 

-23 -23 -23 

WRITE(*,*)K1,L1,M1 23 23 23 



60

Η ΕΝΤΟΛΗ GOTO 

12345678901234567890 

PROGRAM LEARN_GΟTO 


10 WRITE(*,*)’ ENTER A,B,K ‘ 

READ(*,*)A,B,K 

NEO 

IF (K.EQ.1) THEN 

RES=A+B 

ELSEIF (K.EQ.2) THEN 

RES=A*B 

ELSE 

WRITE(* ,*)’ ERROR !!! ’ 

ENDIF 

WRITE(*,*)RES 

GOTO 10 

END 

►ΑΡΙΘΜΟΣ ΕΝΤΟΛΗΣ ΣΤΙΣ 5 ΠΡΩΤΕΣ ΣΤΗΛΕΣ (1-99999) 

► ΜΟΝΑΔΙΚΟΣ ΑΡΙΘΜΟΣ !!!!! 

►ΑΤΑΚΤΗ ΑΡΙΘΜΗΣΗ !!!!! 

► GOTO: ΠΑΜΕ ΜΟΝΟ ΣΕ ΕΚΤΕΛΕΣΙΜΕΣ ΕΝΤΟΛΕΣ 

►ΑΝ ΕΙΝΑΙ ΔΥΝΑΤΟ, ΝΑ ΑΠΟΦΕΥΓΕΤΑΙ !!!!!! 



61

ΕΠΑΝΑΛΗΨΕΙΣ ΕΝΤΟΛΩΝ (LOOPS) 

12345678901234567890 

DO 20 K=1,10 

READ(*,*)A,B*)A WRITE(*,*)’SUM= ‘,A+B 

20 CONTINUE 

K=0 

20 K=K+1 

READ(*,*)A,B 

, 

WRITE(*,*)’SUM= ‘,A+B 

IF(K.LT.10) GOTO 20 

K=1 

20 READ(*,*)A,B 

WRITE(*,*)’SUM= ‘,A+B 

K=K+1K+1 

IF(K.LE.10) GOTO 20 

αντί του: 

ή αντί του: 



62

Κ = ΜΕΤΡΗΤΗΣ 

ΒΡΟΧΟΥ 

ΕΠΑΝΑΛΗΨΕΙΣ ΕΝΤΟΛΩΝ (LOOPS) 

Μ1 = ΑΡΧΙΚΗ ΤΙΜΗ 

Μ2 = ΤΕΛΙΚΗ ΤΙΜΗ 

Ν 

DO Ν K=Μ1,Μ2,Μ3 

…………….. 

CONTINUE 

Μ3 = ΠΡΟΑΙΡΕΤΙΚΟ, 

ΘΕΤΙΚΟ ή ΑΡΝΗΤΙΚΟ 

ΒΗΜΑ 

Η ΜΗ-ΕΚΤΕΛΕΣΙΜΗ 

ΕΝΤΟΛΗ CONTINUE 

1ος ΚΥΚΛΟΣ: 

K=M1 

2ος ΚΥΚΛΟΣ: k=M1+M3 

3ος ΚΥΚΛΟΣ: k=M1+2*M3 

Μ1,Μ2,Μ3=ΣΤΑΘΕΡΕΣ, ΜΕΤΑΒΛΗΤΕΣ ή ΑΛΓ. ΠΑΡΑΣΤΑΣΕΙΣ 



63

ΕΠΑΝΑΛΗΨΕΙΣ ΕΝΤΟΛΩΝ (ΠΑΡΑΔΕΙΓΜΑΤΑ) 

DO 10 K=1,1010 DO 10 K=10,1, 1 -1 

WRITE(*,*)K 

WRITE(*,*)K 

10 CONTINUE 

10 CONTINUE 

DO 10 K=1,10,1 

10,9,8,7,6,5,4,3,2,1 

WRITE(*,*)K 

DO 10 K=0,-5,-1 

10 CONTINUE 

WRITE(*,*)K 

*) 

1,2,3,4,5,6,7,8,9,10 

10 CONTINUE 

DO 10 K=1,10,2 

10 WRITE(*,*)K 

10 CONTINUE 

1,3,5,7,9 

0.-1,-2,-3,-4,-5 

DO 10 K=10,-10,-5 

WRITE(* ,*)K 

10 CONTINUE 

DO 10 K=-5 5,5,35 WRITE(*,*)K 

10 CONTINUE 

-5,-2,1,4 



10,5,0, 0 -5,-10 

64

ΕΝΑΛΛΑΚΤΙΚΕΣ ΓΡΑΦΕΣ 

L=0 

DO 20 K=1,5 

L=L+K 

20 CONTINUE 

WRITE(*,*)L 

DO-CONTINUE 

L=0 

DO 20 K=1,5 

20 L=L+K 

WRITE(*,*)L 

20 L L K Μόνο DO 

L=0 

DO K=1,5 

L=L+K 

ENDDO 

WRITE(*,*)L 



DO-ENDDO 

65

ΤΙ ΔΙΑΦΕΡΟΥΝ ΤΑ ΔΥΟ ΠΡΟΓΡΑΜΜΑΤΑ 

PROGRAM LEARN_CONTINUE1 

L=0 

DO 50 K=1,5 

L=L+K 

50 CONTINUE 

WRITE(*,*)L 

GOTO 50 

END 

PROGRAM LEARN_CONTINUE2 

L=0 

60 DO 50 K=1,5 

L=L+K 

50 CONTINUE 

WRITE(*,*)L*)L 

GOTO 60 

END 



66

ΑΠΑΓΟΡΕΥΕΤΑΙ Η ΜΕΤΑΒΟΛΗ ΤΟΥ ΜΕΤΡΗΤΗ 

ΜΕΣΑ ΣΤΟ ΒΡΟΧΟ 

PROGRAM TEST1 

L=0 

DO K=1,5 

L=L+K 

K=2*K 

ENDDO 

WRITE(*,*)L 

END 

ΛΑΘΟΣ 



67

ΑΠΑΓΟΡΕΥΕΤΑΙ Η AΠΟΤΟΜΗ ΕΙΣΟΔΟΣ ΣΤΟ 

ΒΡΟΧΟ 

PROGRAM TEST1 

L=0 

DO K=1,5 

60 L=L+K 

ENDDO 

WRITE(*,*)L 

GOTO 60 

END 

ΛΑΘΟΣ 



68

ΠΟΛΛΑΠΛΟΙ ΒΡΟΧΟΙ (NESTED LOOPS) 

PROGRAM NESTED_LOOPS 

DO I=1,3 

DO J=1,2 

WRITE(*,*)I+J 

ENDDO 

ENDDO 

END 

2 1(=I)+1(=J) 

3 1(=I)+2(=J) 

3 2(=I)+1(=J) 

4 2(=I)+2(=J) 

4 3(=I)+1(=J) 

5 3(=I)+2(=J) 



69



DO 10 I=1,3 

DO 20 J=1,2 

DO 30 K=1,2 

WRITE(*,*)I+J+K 

30 CONTINUE 

20 CONTINUE 

10 CONTINUE 



70



DO 10 I=1,3 

DO 20 J=1,2 

DO 30 K=1,2 


30 CONTINUE 

10 CONTINUE 

20 CONTINUE 

ΛΑΘΟΣ 



71



DO 10 I=1,3 

DO 10 J=1,2 

DO 10 K=1,2 


10 CONTINUE 



72

ΠΟΛΛΑΠΛΟΙ ΒΡΟΧΟΙ (ΑΣΚΗΣΗ) 


DO I=1,2 

DO J=2*I,3*I 

WRITE(*,*)I+J 

ENDDO 

ENDDO 

END 

3 

4 

6 

7 

8 



73

EΛΑΧΙΣΤΑ ΚΑΙ ΜΕΓΙΣΤΑ ΑΡΙΘΜΩΝ 

12345678901234567890 

PROGRAM MINMAX 

X=1. 

Y=2. 

A=AMAX1(X,Y) 

B=AMIN1(X,Y) 

WRITE(*,*)A,B 

END 

PROGRAM MINMAX_DB 

X=1.D0 

Y=2.D0 

A=DMAX1(X,Y) 

B=DMIN1(X,Y) 

WRITE(*,*)A,B 

END 

ή σε διπλή ακρίβεια: 



74

ΜΕΤΑΒΛΗΤΕΣ ΜΕ ΔΕΙΚΤΗ 

•Η ΑΝΑΓΚΗ ΟΜΑΔΟΠΟΙΗΣΗΣ ΘΕΣΕΩΝ ΜΝΗΜΗΣ 

•ΜΗΤΡΙΚΗ ΓΡΑΦΗ ► ΠΙΝΑΚΑΣ, ΜΗΤΡΑ, ARRAY 

•ΕΥΚΟΛΙΑ ΕΚΤΕΛΕΣΗΣ ΠΡΑΞΕΩΝ ΜΕ ΠΙΝΑΚΕΣ 

•ΔΕΙΚΤΗΣ-SUBSCRIPT-INDEX (ΑΚΕΡΑΙΟΣ = > < 0 ή 

ΑΡΙΘΜΗΤΙΚΗ ΠΑΡΑΣΤΑΣΗ) 

•ΟΝΟΜΑΤΟΛΟΓΙΑ ΟΠΩΣ ΟΙ ΜΕΤΑΒΛΗΤΕΣ 

•ΔΕΣΜΕΥΜΕΝΟ ΟΝΟΜΑ 

•Η ΕΝΤΟΛΗ DIMENSION – ΠΑΡΑΔΕΙΓΜΑΤΑ: 

DIMENSION K(6), KA(2*3), KB(1:6), KC(0:5), KD(-2:3) 

•DIMENSION=MH-ΕΚΤΕΛΕΣΙΜΗ ΕΝΤΟΛΗ ΣΤΟ ΜΕΤΑΦΡΑΣΤΗ , 

ΘΕΣΗ, ΣΥΝΤΑΞΗ 

•ΥΠΕΡΒΑΣΗ ΟΡΙΟΥ DIMENSION 

•ΠΟΛΥΔΙΑΣΤΑΤΟΙ ΠΙΝΑΚΕΣ Κ(10,10), Α(30,20,10), GF(50,10) 



75

ΜΕΤΑΒΛΗΤΕΣ ΜΕ ΔΕΙΚΤΗ - ΔΙΕΥΚΡΙΝΗΣΕΙΣ 

•ΠΑΡΑΔΕΙΓΜΑΤΑ: 

DIMENSION K(6), KA(2*3), KB(1:6), KC(0:5), KD(-2:3) 

ΠΕΝΤΕ ΜΕΤΑΒΛΗΤΕΣ ΜΕ ΔΕΙΚΤΗ ΙΔΙΑΣ ΔΙΑΣΤΑΣΗΣ ΜΕ 

ΔΙΑΦΟΡΕΤΙΚΟ ΠΡΩΤΟ ΣΤΟΙΧΕΙΟ. ΠΡΩΤΑ ΣΤΟΙΧΕΙΑ: 

K(1), KA(1), KB(1), KC(0), KD(-2) 

•ΒΑΣΙΚΟΤΑΤΟ: 

Η ΔΙΑΣΤΑΣΗ ΤΟΥ ΠΙΝΑΚΑ ΔΕΝ ΣΗΜΑΙΝΕΙ ΟΤΙ ΘΑ 

ΧΡΗΣΙΜΟΠΟΙΗΘΟΥΝ ΑΝΑΓΚΑΣΤΙΚΑ ΚΑΙ ΤΑ 6 ΣΤΟΙΧΕΙΑ ΤΟΥ. 

ΕΙΝΑΙ ΟΜΩΣ ΠΑΝΤΑ ΜΕΓΑΛΥΤΕΡΗ ή ΙΣΗ ΑΠΟ ΤΗ ΜΕΓΑΛΥΤΕΡΗ 

ΔΙΑΣΤΑΣΗ ΠΟΥ ΠΡΟΚΕΙΤΑΙ ΝΑ ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ ΣΤΟ 

ΠΡΟΓΡΑΜΜΑ. 



76

ΕΙΣΑΓΩΓΗ ΠΙΝΑΚΑ ΣΤΗ RAM 

PROGRAM ONE 

DIMENSION A(4), B(3,4) 

READ (*,*)*) A,B 

WRITE(*,*)A(2),B(2,1),B(3,3) 

END 

1▼ 4▼ 7▼ .20=B(1,1) 1) 24=B(1 2.4=B(1,2) 2) .3=B(1,3) 3) -.1=B(1,4) 

2▼ 5▼ 8▼ 

.93=B(2,1) -.7=B(2,2) -.6=B(2,3) 3. =B(2,4) 

3▼ 6▼ 9▼ 1.8=B(3,1) .04=B(3,2) .34=B(3,3) 1. =B(3,4) 

3.5=A(1) -.89=A(2) 2.2=A(3) -.45=A(4) 



77

C 

C 

C 

ΤΟ ΠΙΟ ΣΥΝΗΘΙΣΜΕΝΟ ΛΑΘΟΣ ... 

PROGRAM LEARN_MATRICES 


A(100), αν είμαστε σίγουροι ότι ... 

DIMENSION A(N) 

OPEN(1,FILE=‘DATA’) 

READ(1,*)N 

DO I=1,N 

READ (1,*) A(I) 

ENDDO 

CLOSE(1) 

DUMMY INDEX (ΣΩΣΤΟ!!!) 

SUM=0.D0 

DO J=1,N 

SUM=SUM+A(J) 

SUM+A(J) 

ENDDO 

WRITE(*,*)’ ATHROISMA =‘,SUM 

END 



78

I/O ΜΕ ΜΕΤΑΒΛΗΤΕΣ ΜΕ ΔΕΙΚΤΗ-IMPLIED DO 

DIMENSION A(10,20),B(10,20) 

I/O ΜΙΑΣ ΓΡΑΜΜΗΣ: 

I=3 

WRITE(*,3) (A(I,J), J=1,20,1) 

WRITE(*,3) (B(3,J), (3 J=1,20) 

I/O ΚΑΤΑ ΓΡΑΜΜΕΣ: 

WRITE(*,4) ((A(I,J), J=1,20),Ι=1,10) 

I/O ΚΑΤΑ ΣΤΗΛΕΣ: 

WRITE(*,5) ((A(I,J), I=1,10),J=1,20) 

ΠΑΡΑΔΕΙΓΜΑ: 

DIMENSION A(10,10) 

DO K=1,10 

WRITE(*, ’(1X,6F8.2) 2)’) ) (A(K,L),L=1,10) 

L=1 10) 



79

ΔΗΛΩΣΕΙΣ 

ΔΗΛΩΣΗ ΠΙΝΑΚΩΝ ΜΕ … 

INTEGER K(50), ALFA(100) 

REAL A1(30,40), K2(200) 

REAL*4 AB(100), BJL(100) 

Δηλώνονται δύο 

χαρακτηριστικά 

μιας μεταβλητής 

με ΜΙΑ εντολή 

ΠΙΝΑΚΕΣ ΧΑΡΑΚΤΗΡΩΝ-ΣΥΜΒΟΛΟΣΕΙΡΩΝ 

CHARACTER*20 A(100), B(10,10) 10) 



80

ΠΑΡΑΔΕΙΓΜΑΤΑ 

ΑΘΡΟΙΣΜΑ ΣΤΟΙΧΕΙΩΝ ΓΡΑΜΜΗΣ ΠΙΝΑΚΑ Α(3x4) 

DIMENSION A(3,4) 

A1=A(1,1)+A(1,2)+A(1,3)+A(1,4) 

A2=A(2,1)+A(2,2)+A(2,3)+A(2,4) 

A3=A(3,1)+A(3,2)+A(3,3)+A(3,4) 

ή 

DIMENSION A(3,4),SUM(3) 

DO I=1,3 

SUM(I)=0.0 

DO J=1,4 

SUM(I)=SUM(I)+A(I,J) 

ENDDO 

ENDDO 

1,1 1,2 1,3 1,4 

21 2,1 22 2,2 23 2,3 24 2,4 

3,1 3,2 3,3 3,4 



81

ΠΡΑΞΕΙΣ ΠΙΝΑΚΩΝ 

DIMENSION A(10,20), B(10,20), C(10,20) 

ΠΡΟΣΘΕΣΗ-ΑΦΑΙΡΕΣΗ: 

DO 1 I=1,M 

DO 1 J=1,N 

C(I,J)=A(I,J)+B(I,J) 

1 CONTINUE 

ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ ΠΙΝΑΚΑ ΜΕ ΣΤΑΘΕΡΑ: 

DO 1 I=1,M 

DO 1 J=1,N 

C(I,J)=A(I,J) J)*CONST 

1 CONTINUE 



82

ΠΡΑΞΕΙΣ ΠΙΝΑΚΩΝ 

ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ ΠΙΝΑΚΩΝ 

DIMENSION A(10,20), B(20,10), S(10,10) 

DO 4 I=1,MAXIA 

DO 4 J=1,MAXJB 

S(I,J)=0.0 

DO 2 K=1,MAXJA 

S(I,J)=S(I,J)+A(I,K)*B(K,J) 

2 CONTINUE 

4 CONTINUE 

J 

I 

K 

A 

K 

B 

(I,J) (,) 

S 



83

ΑΣΚΗΣΗ: ΔΙΑΧΕΙΡΙΣΗ ΑΠΟΘΗΚΗΣ (1) 

ΤΡΕΧΟΥΣΑ ΚΑΤΑΣΤΑΣΗ ΑΠΟΘΗΚΗΣ 

(ΑΡΧΕΙΟ ΜΕ ΟΝΟΜΑ 12_3_2005 2005 :) 

465 

112 

44 

0 

81 

13 

23 

35 

ΥΠΑΡΧΟΥΝ 44 ΚΟΜΜΑΤΙΑ ΑΠΟ ΤΟ 

ΕΙΔΟΣ ΥΠ’ΑΡΙΘΜΟ 3 

ΔΕΝ ΥΠΑΡΧΟΥΝ ΚΟΜΜΑΤΙΑ ΑΠΟ ΤΟ 

ΕΙΔΟΣ ΥΠ’ΑΡΙΘΜΟ 4 

ΤΟ ΠΟΣΑ ΕΙΔΗ ΕΧΕΙ Η ΑΠΟΘΗΚΗ 

ΠΡΕΠΕΙ ΝΑ ΤΟ ΚΑΤΑΛΑΒΑΙΝΕΙ ΤΟ 

ΠΡΟΓΡΑΜΜΑ (ΔΕΝ ΔΙΝΕΤΑΙ ΣΤΟ 

ΑΡΧΕΙΟ ΔΕΔΟΜΕΝΩΝ) 



84


PROGRAM APOTHIKI 


DIMENSION KPARTS(100) 

CHARACTER*20 FNAME1,FNAME2 

C 

C-READS DATA FROM EXISTING FILE 

WRITE(*,*)’ DWSE ONOMA TREXONTOS ARXEIOY’ 

READ(*,’(A)’)FNAME1 

OPEN(1,FILE=FNAME1) 

DO I=1,100 

100 

READ(1,*,END=33)KPARTS(I) 

ENDDO 

CLOSE(1) 

STOP ‘ MEGALWSE TH DIASTASH TOY PINAKA’ 

33 KEIDH=I-1 

CLOSE(1) 

(συνεχίζει ...) 



85


56 WRITE(*,*)’ *)’ DWSE EIDOS & KOMMATIA POY THELEIS’ 

READ(*,*)LEIDOS,LPARTS 

IF(LEIDOS.LE.0) GOTO 99 

C-ELEGXOS EPARKEIAS 

IF(KPARTS(LEIDOS).GE.LPARTS)THEN 

WRITE(*,*)’ NAI – YPARXOYN TA KOMMATIA !” 

KPARTS(LEIDOS)=KPARTS(LEIDOS)-LPARTS 

S 

ELSEIF(KPARTS(LEIDOS).NE.0)THEN 

WRITE(*,*)’ EXOYME MONO ‘,KPARTS(LEIDOS),’ K’ 

ELSE 

WRITE(*,*)’ OXI – DEN YPARXEI KANENA KOMMATI” 

ENDIF 

GOTO 56 

C-WRITES NEW DATA FILE 

99 WRITE(*,*)’ DWSE ONOMA NEOY ARXEIOY’ 

READ(*,’(A)’)FNAME2 

OPEN(1,FILE=FNAME2) 

DO I=1,KEIDH 

WRITE(1,’(I10)’)KPARTS(I) 

ENDDO 

CLOSE(1) 

ENDS 



86

C 

ΑΣΚΗΣΗ 1 : IMPLIED LOOP 

PROGRAM TEST44 


DIMENSION AA(300),BB(200) 

OPEN(1,FILE= ‘DATA’) 

READ(1,*)(AA(I),I=1,4) 

READ(1,*)(BB(I),I=1,4) 

CLOSE(1) 

WRITE(*,*)AA(2)+BB(3) 

END 

ΤΙ ΘΑ ΤΥΠΩΣΕΙ ΤΟ 

ΠΡΟΓΡΑΜΜΑ; 

4. 5. -3. 

4. 

1. 

-3. -1. 

4. 

8. -3. 4. 5. 

ΑΡΧΕΙΟ DATA 



87

ΑΣΚΗΣΗ 2 : WRITE με IMPLIED LOOP 

PROGRAM TESTWR 


DIMENSION A(10) 

DO I=1,10 

A(I)=2.D0*DFLOAT(I) ΤΙ ΘΑ ΤΥΠΩΣΕΙ ΤΟ 


ENDDO 

WRITE(*,*)(A(I),I=1,10) 

END 

ΟΘΟΝΗ 

2.000000000000000 4.000000000000000 6.000000000000000 

8.000000000000000 10.000000000000000 12.000000000000000 

14.000000000000000 16.000000000000000 18.000000000000000 

20.000000000000000000000000000000 

ΓΙΑ ΔΙΠΛΗ ΑΚΡΙΒΕΙΑ 



88

ΑΣΚΗΣΗ 2β : WRITE με IMPLIED LOOP 

C 

PROGRAM TESTWR 


DIMENSION A(10) 

DO I=1,10 

A(I)=2.0*FLOAT(I) 

ΤΙ ΘΑ ΤΥΠΩΣΕΙ ΤΟ 


ENDDO 

WRITE(*,*)(A(I),I=1,10) 

END 

ΟΘΟΝΗ 

2.000000 4.000000 6.000000 8.000000 

10.000000 12.000000 14.000000 16.000000 

18.000000 20.000000 

ΓΙΑ ΑΠΛΗ ΑΚΡΙΒΕΙΑ 



89

ΥΠΟΠΡΟΓΡΑΜΜΑΤΑ (ΥΠΟΡΟΥΤΙΝΕΣ) 

•Η ΑΝΑΓΚΗ ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΥ ΚΑΤΑ ΤΜΗΜΑΤΑ 

•ΗΗ ΕΥΚΟΛΙΑ ΧΡΗΣΗΣ «ΕΤΟΙΜΩΝ ΤΜΗΜΑΤΩΝ 

ΠΡΟΓΡΑΜΜΑΤΟΣ» 

•ΟΙ ΕΝΤΟΛΕΣ SUBROUTINE, CALL, RETURN 

•ΣΥΝΤΑΞΗ ΜΕ ΔΙΚΟ ΤΗΣ END 

•ΣΕΙΡΑ ΠΑΡΑΘΕΣΗΣ-ΕΚΤΕΛΕΣΗΣ 



90

ΥΠΟΠΡΟΓΡΑΜΜΑΤΑ (ΥΠΟΡΟΥΤΙΝΕΣ) 

PROGRAM TEST 

……… 

CALL SUB1 

……… 

CALL SUB2 

……… 

STOP 

END 

SUBROUTINE SUB1 

……… 

RETURN 

END 

Η ΑΝΑΓΚΗ ΧΩΡΙΣΤΟΥ 

END 

ΣΤΟ ΚΥΡΙΩΣ 

ΠΡΟΓΡΑΜΜΑ 

ΚΑΙ ΣΕ ΚΑΘΕΝΑ 

ΥΠΟΠΡΟΓΡΑΜΜΑ 

SUBROUTINE SUB2 

……… 

RETURN 

END 



ΚΑΘΕ 

ΥΠΟΠΡΟΡΑΜΜΑ 

ΜΕΤΑΦΡΑΖΕΤΑΙ 

ΧΩΡΙΣΤΑ 

91

ΕΠΙΚΟΙΝΩΝΙΑ ΜΕ ΟΡΙΣΜΑΤΑ (ARGUMENTS) 


READ(*,*)X 

CALL TESTSUB 

END 

SUBROUTINE TESTSUB 

WRITE(*,*)SQRT(X) 

*)SQRT(X) 

RETURN 

END 

ΤΙ ΘΑ ΤΥΠΩΣΕΙ; 


READ(*,*)X 

CALL TESTSUB(Χ) 

END 

SUBROUTINE TESTSUB(VAL) 

WRITE(*,*)SQRT(VAL) 

RETURN 

END 

ΕΙΚΟΝΙΚΟ ΟΡΙΣΜΑ 




92

C 

ΠΡΑΓΜΑΤΙΚΟ & ΕΙΚΟΝΙΚΟ ΟΡΙΣΜΑ 

ΧΩΡΙΣΤΕΣ ΔΗΛΩΣΕΙΣ ΣΤΑ 

ΥΠΟΠΡΟΓΡΑΜΜΑΤΑ 



READ(*,*)X 

CALL TESTSUB(Χ) 

WRITE(*,*)X 

WRITE(*,*)’COMPARE’,X,VAL 

END 


SUBROUTINE TESTSUB(VAL) 


VAL=SQRT(VAL) 

WRITE(*,*)’COMPARE’,X,VAL ΤΙ ΘΑ ΤΥΠΩΣΕΙ; 

RETURN 

END 



93

ΠΛΗΘΟΣ-ΤΥΠΟΣ ΟΡΙΣΜΑΤΩΝ 

C 



DIMENSION A(10),B(10,20) 

REAL*8 KK 

CALL CALC(Χ1,KK,A,B) 

A STOP 

END 

SUBROUTINE CALC(V1,JL,X,YY) 


DIMENSION X(10),YY(10,20) 

REAL*8 JL 

… 

RETURN 

END 



94

ΕΠΙΚΟΙΝΩΝΙΑ ΜΕ COMMON 

C 

PROGRAM MYTEST 


DIMENSION A(10),B(10,20) 

COMMON X1,KK,A,B 

, , 

CALL CALC 

END 

SUBROUTINE CALC 


DIMENSION X(10),YY(10,20) 

COMMON V1,JL,X,YY 

… 

RETURN 

END 



95

ΕΠΙΚΟΙΝΩΝΙΑ ΜΕ ΟΝΟΜΑΤΙΣΜΕΝΟ COMMON 

C 



COMMON /ΤΤ/ X1 

COMMON /P40/ KK 

COMMON /MA/ / A(10),B(10,20) 

( , ) 

CALL CALC 

END 

SUBROUTINE CALC 


COMMON /ΤΤ/ V1 

COMMON /P40/ JL 

COMMON /MA/ X(10),YY(10,20) 

… 

RETURN 

END 

ΟΙΚΟΝΟΜΙΑ: COMMON & 

DIMENSION ΣΕ ΜΙΑ ΕΝΤΟΛΗ 



96

ΣΥΝΑΡΤΗΣΕΙΣ ΕΝΤΟΛΗΣ 



FFF(X,Y,Z)=SQRT(X*X+Y*Y+Z*Z) 

1 READ(*,*)X1,Y1,Z1 

WRITE(*,*)FFF(X1,Y1,Z1) 

X2=10.D0*X1 

T=FFF(X2,Y1,Z1) 

WRITE(*,*)T 

GOTO 1 

END 

ΕΥΡΟΣ ΜΙΑΣ ΕΝΤΟΛΗΣ 



97

ΑΛΛΗΛΟΕΞΑΡΤΩΜΕΝΕΣ ΣΥΝΑΡΤΗΣΕΙΣ 

ΕΝΤΟΛΗΣ 



SUMSQ(X,Y,Z)=X*X+Y*Y+Z*Z 

FFF(X,Y,Z)=SQRT(SUMSQ(X,Y,Z)) 

1 READ(*,*)X1,Y1,Z1 


GOTO 1 

END 

ΤΟ ΠΑΡΑΔΕΙΓΜΑ ΕΙΝΑΙ «ΥΠΕΡΒΟΛΙΚΟ» ! 

ΠΡΟΦΑΝΩΣ ΓΙΝΕΤΑΙ ΑΠΛΟΥΣΤΕΡΑ, ΑΛΛΑ 

ΣΚΟΠΟΣ ΕΙΝΑΙ ΝΑ ΔΕΙΧΘΕΙ ΟΤΙ ΜΙΑ 

ΣΥΝΑΡΤΗΣΗ ΕΝΤΟΛΗΣ ΜΠΟΡΕΙ ΝΑ ΚΑΛΕΙ 

ΜΙΑ ΑΛΛΗ... 



98

C 

ΤΟ ΥΠΟΠΡΟΓΡΑΜΜΑ FUNCTION 

PROGRAM MPR 

1 READ(*,*)X1,Y1,Z1 


, , 

GOTO 1 

END 

FUNCTION FFF(X,Y,Z) 

XX=X*X 

YY=Y*Y 

ΠΟΛΛΕΣ ΕΝΤΟΛΕΣ 

ZZ=Z*Z 

FFF=SQRT(XX+YY+ZZ) 

RETURN 

END 

•ΧΡΗΣΗ ΟΠΩΣ ΤΟ ΥΠΟΠΡΟΓΡΑΜΜΑ 

•ΕΝΤΟΛΕΣ ΠΟΛΛΩΝ ΓΡΑΜΜΩΝ 

•ΠΡΑΓΜΑΤΙΚΑ & ΕΙΚΟΝΙΚΑ ΟΡΙΣΜΑΤΑ 

•ΕΝΑ ΤΟΥΛΑΧΙΣΤΟΝ ΟΡΙΣΜΑ, ΕΣΤΩ () 



99

Η ΕΝΤΟΛΗ PARAMETER 

•ΜΗ-ΕΚΤΕΛΕΣΙΜΗ ΕΝΤΟΛΗ 

•ΔΙΝΟΝΤΑΙ ΤΙΜΕΣ ΣΕ ΜΕΤΑΒΛΗΤΕΣ ΚΑΤΑ 

ΤΗ ΜΕΤΑΦΡΑΣΗ 

•ΔΕΝ ΕΠΙΤΡΕΠΕΤΑΙ ΝΑ ΑΛΛΑΖΟΥΜΕ ΤΗΝ 

ΤΙΜΗ ΜΙΑΣ ΜΕΤΑΒΛΗΤΗΣ PARAMETER 

ΜΕΣΑ ΣΤΟ ΠΡΟΓΡΑΜΜΑ 

•ΣΥΝΗΘΗΣ ΧΡΗΣΗ ΣΤΙΣ DIMENSION 

PROGRAM MPR 

PARAMETER (LIM1=100, LIM2=10) 

DIMENSION X(LIM1),YY(LIM2,LIM2) 



100

Η ΕΝΤΟΛΗ DATA 

•ΜΗ-ΕΚΤΕΛΕΣΙΜΗ ΕΝΤΟΛΗ 

•ΘΕΣΗ: ΠΡΙΝ ΤΙΣ ΕΚΤΕΛΕΣΙΜΕΣ, , ΜΕΤΑ 

ΑΠΟ DIMENSION κλπ 

PARAMETER (LIM1=100) 

100) 

DIMENSION VAL(LIM1),VEL(10,10) 

DATA X,Y,Z/3.2,4.5,2.2/ 

DATA X1,Y1,Z1/3*3./ 

/ 

DATA VAL/LIM1*0./ 

DATA (VAL(I),I=5,10)/6*3./ 

DATA VEL/100*1./ / 

•ΣΗΜΑΙΝΕΙ ΕΞΙ ΦΟΡΕΣ ΤΟΝ ΑΡΙΘΜΟ 3. 

ΚΑΙ ΟΧΙ ΤΟΝ ΑΡΙΘΜΟ (6 ΕΠΙ 3=18) 



101

PARAMETER: ΧΡΗΣΙΜΟ ΠΑΡΑΔΕΙΓΜΑ 

PROGRAM MPR 


PARAMETER (LIM1=100) 

DIMENSION X(LIM1) 

OPEN(1,FILE=’DAT.DAT’) 

READ(1,*)NN 

IF(NN.GT.LIM1) STOP ‘INCREASE DIM1’ 

READ(1,*)(X(I),I=1,NN) 

( ) ) 

CLOSE(1) 

CALL ADDON(LIM1,NN,X,SUM) 

WRITE(*,*)’ *)’ average = ‘,SUM/FLOAT(NN) 

END 

SUBROUTINE ADDON(LIM1,N,A,SUM) 


DIMENSION A(LIM1) 

SUM=0.DO 

ΣΥΝΗΘΙΣΜΕΝΟ ΛΑΘΟΣ: 

DO I=1,N 

SUM=SUM+A(I) ΜΗΝ ΞΑΝΑΟΡΙΣΕΤΕ ΤΟ PARAMETER 

ENDDO 

ΣΤΗΝ ΥΠΟΡΟΥΤΙΝΑ ΟΤΑΝ ΕΧΕΙ ΓΙΝΕΙ 

ΕΠΙΚΟΙΝΩΝΙΑ ΜΕΣΩ ΟΡΙΣΜΑΤΟΣ 

RETURN 

END 



102

Î´Î¹Î¿ÏÎ¸ÏÎ¼ÎµÎ½Î· ÎµÏÎ±Î½ÎµÎºÎ´Î¿ÏÎ· ÏÎ·Ï 9/1/2011

Create successful ePaper yourself

Delete template?

Save as template?

Î´Î¹Î¿ÏÎ¸ÏÎ¼ÎµÎ½Î· ÎµÏÎ±Î½ÎµÎºÎ´Î¿ÏÎ· ÏÎ·Ï 9/1/2011