Wikipedia

Razlika između verzija stranice "FORTRAN"

Pregled historije
[nepregledana izmjena][nepregledana izmjena]
← Starija izmjenaNovija izmjena →
Uklonjeni sadržaj Dodani sadržaj
VizualnoWikitekst
EmxBot (razgovor | doprinosi)
108.013 edits
m Bot: Popravka HTML koda
Red 18:
 
<pre>
C! Ovaj program računaracuna površinu spremišta,
! izuzimajuci dno.
C izuzimajući dno.
C! Varijable su dodijeljene ovako:
!
C
C! R = RADIUS
C! H = HEIGHT
C! PI = 3.14159
C! A = AREA
!
C
C! Deklarisane su sa REAL naredbom ispod.
REAL R, H, PI, A
! OPEN komanda veže data dokumenat, "PANDAT.DAT",
! u folderu DATA, sa logickim sredstvom 5. Ako je neka tu
! neka greška, iskaz 900 se izvršava.
OPEN (5, FILE = 'C:\DATA\PANDAT.DAT', ACCESS = 'SEQUENTIAL', &
STATUS = 'OLD', ERR = 900)
! Sljedeci dio izracunama sumu
! ulaznih varijabli
! Prva naredba cita podatke
! i pohranjuje ih u memoriju.
DO
READ (5, FMT = 1, END = 99) R, H
! Sljedeca naredba opisuje formu i odredište
! podataka koji ce se citati.
1 FORMAT (F4.2,F4.2)
! Seljedeci iskazi dodijeljuju vrijednosti varijablama.
PI = 3.14159
A = PI * R**2 + 2 * PI * R * H
! Sljedeci dio ispisuje sume na ekran.
! Prva naredba, PRINT oznacava FORMAT
! iskaz koji ce se koristiti, i varijable koje ce se ispisivati.
PRINT 11, H, R, A
! Sljedeci FORMAT iskad opisuje
! polje podataka koje ce se zapisati. Primjetite tacku-zarez u rubr
! koja se koristi za oznacavanje produžetka prethodne linije
11 FORMAT (1X,'RADIUS= ',F6.2,10X,'HEIGHT= ',F6.1,10X,'AREA= ', &
& F8.1)
! Sljedeci iskaz završava ponavljanje.
END DO
! Ovaj dio se ispisuje ako su podaci nevažeci.
900 PRINT 21
21 FORMAT (1X,'INVALID DATA')
! Zatvorimo dokumenat i pokrenimo program
99 CLOSE (5)
STOP
END
 
REAL R,H,PI,A
 
C OPEN komanda veže data dokumenat, "PANDAT.DAT",
C u folderu DATA, sa logičkim sredstvom 5. Ako je neka tu
C neka greška, iskaz 900 se izvršava.
 
OPEN(5,FILE='C:\DATA\PANDAT.DAT',ACCESS='SEQUENTIAL',
; STATUS='OLD',ERR=900)
 
C Sljedeći dio izračunama sumu
C ulaznih varijabli
C Prva naredba čita podatke
C i pohranjuje ih u memoriju.
 
10 READ(5,FMT=1,END=99)R,H
 
C Sljedeća naredba opisuje formu i odredište
C podataka koji će se čitati.
 
1 FORMAT(F4.2,F4.2)
 
C Seljedeći iskazi dodijeljuju vrijednosti varijablama.
 
PI=3.14159
A=PI*R**2+2*PI*R*H
 
C Sljedeći dio ispisuje sume na ekran.
C Prva naredba, PRINT označava FORMAT
C iskaz koji će se koristiti, i varijable koje će se ispisivati.
 
PRINT 11, H,R,A
 
C Sljedeći FORMAT iskad opisuje
C polje podataka koje će se zapisati. Primjetite tačku-zarez u rubrici 6
C koja se koristi za označavanje produžetka prethodne linije
 
11 FORMAT(1X,'RADIUS= ',F6.2,10X,'HEIGHT= ',F6.1,10X,'AREA= ',
; F8.1)
 
 
C Sljedeći iskaz završava ponavljanje.
 
GOTO 10
 
C Ovaj dio se ispisuje ako su podaci nevažeći.
 
900 PRINT 21
21 FORMAT(1X,'INVALID DATA')
 
 
C Zatvorimo dokumenat i pokrenimo program
 
99 CLOSE(5)
STOP
END
</pre>
 
Preuzeto iz "https://bs.wikipedia.org/wiki/FORTRAN"