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= (60.1, 60.1, 60.1, 60.0, 60.0, 59.9, 59.8, 59.7, 59.5, 59.4, 59.2, 59.0, 58.8, 58.6, 58.3, 58.1, 57.8, 57.5, 57.2, 56.8, 56.5, 56.1, 55.8, 55.4, 54.9, 54.5, 54.1, 53.6, 53.1, 52.6, 52.1, 51.6, 51.0, 50.5, 49.9, 49.3, 48.7, 48.1, 47.4, 46.8, 46.1, 45.4, 44.7, 44.0, 43.3, 42.6, 41.8, 41.1, 40.3, 39.5, 38.7, 37.9, 37.1, 36.2, 35.4, 34.6, 33.7, 32.8, 31.9, 31.0, 30.1, 29.2, 28.3, 27.4, 26.4, 25.5, 24.5, 23.6, 22.6, 21.6, 20.6,...
8/29/2018 11:35:02 PM +00:00