Posted on Sunday, 5th October 2008 by Dummas
Kadangi VGTU yra įžymus tuom, kad jame reikia mokytis tokių dalykų, kur gyvenime niekad neprireiks, geodezininkams tenka mokytis Fortrano : -) Nors realiai Jo paskitrį labai šauniai atlieka maxima, visi maplai, mathlab’ai ir panašiai.. Ir sintaksė geresnė ir more user-friendly. Bet nežinau kaip kas, bet fortaną perpratau per 30 minučių..
Štai maža programelė, kuri apskaičiuoja q=a*cosβ / sinα - √a ( kas tai yra - nežinau, bet greit sužinosiu ).
REAL q, a, alfa, beta !deklaruojam kintamuosius
INTEGER N !kiek turim duomenu
open(1,file='input.dat', status='old') !failas skaitymui
open(2,file='output.dat', status='unknown') !failas rasymui
read (1,1)N !nurodom format su 1 label
1 format(i1)
do 10 i=1, N ! nurodom do nuo 10 label
read (1,2) a,alfa,beta !nurodom format su 2 label
2 format (f6.3,f7.3,f3.0)
q = a * COS(beta) / SIN(alfa) - SQRT(a)
! rasom i outputd.dat su 2 label
write(2,3) q
3 format(1x,'q=',f8.3)
10 continue
stop
end
Realiai tokia nustalgija parėjo, fortranas taip primena man pascal’io sintaksę, kad vos neapsižliumbiau :/ Kintamieji deklaruojami viršuje.. Nepatogu, bet pascališka. Įdomiausias dalykas - apstus label’sų panaudojimas. Ale goto, ale blokai. Smagi programavimo kalba, siųlyčiau visiems su ja susipažinti dėl bendro išprusimo..
Posted in Uncategorized | Comments (0)