PHỤ LỤC 4: MÃ PASCAL CỦA CHƯƠNG TRÌNH TÍNH CÁC ĐẶC TRƯNG VẬT LÝ NƯỚC BIỂN VÀ ĐỘNG LỰC BIỂN ĐÔNG 121 Uses crt, graph; Const sohl: array[0 89] of real= (, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,. | PHỤ LỤC 4 MÃ PASCAL CỦA CHƯƠNG TRÌNH TÍNH CÁC ĐẶC Trưng vật lý nước biển và động lực biển đông 121 Uses crt graph Const sohl array 0. 89 of real vale -maxint unphysic 100 maxk 33 nimax 175 njmax 160 Type ar array l. nimax 1. njmax of integer ts array l. maxk of real rec record ki vi real s d array 1. maxk of real end Var hh ar current rec h array l. maxk of integer tang array 1. maxk of string 4 fds f fi fb fbl text fr file of real ff file of rec fl 1 f22 file of ts pp tld sld tlu slu trd srd tru sru trai phai tren duoi profv ts gd gm maxx maxy xo yo r m horizon thang delgra kmaxk integer k i j 1 ni nj nk tgl tg2 tg3 longint tlbd tide de lx dely vlu klu vrd krd grid ho hsm hsmk hsmv phi rad hlim kma kmi vim vmi longit latit thetich real ch char name stthang df ten tenl blank string 50 found 1 found2 ok no match stop boolean Function tfi li integer string var s string begin if li 0then s O else str li 0 s tfi s end Function tfr thuc real tp integer string var s string begin str thuc 0 tp s tfr s end Function deltap z real real var fc text i j integer p d array 1. 44 of real begin assign fc tabinst reset fc readin fc readln fc i 0 repeat i -i l readin fc p i d i until p i z or i 44 close fc j i-l deltap d j d i -d j p i -p j z-p j l 00 end Function deltatp t p real real varfc text i pl p2 t2 integer z array 1. 33 of integer tren duoi real ok boolean begin 122 assign fc tabinst reset fc readln fc readln fc i 0 repeat i i 1 readin fc z i until z i p or i 29 close fc pl z i-l p2 z i assign fc tabinst .
