NGÔN NGỮ LẬP TRÌNH FORTRAN VÀ ỨNG DỤNG TRONG KHÍ TƯỢNG THỦY VĂN part 4

Hãy đọc file dữ liệu này và sắp xếp giá trị nhiệt độ theo thứ tự giảm dần. In chuỗi nhiệt độ đã sắp xếp thành dạng 10 giá trị một dòng. Giả sử trong file có không quá 200 dòng dữ liệu. 5. Trong file tên là DATA2, mỗi dòng ghi thời gian tính bằng giây và nhiệt độ tính bằng độ C. Không có dòng tiêu đề và không có dòng báo hết dữ liệu
Nội dung trích xuất từ tài liệu:
NGÔN NGỮ LẬP TRÌNH FORTRAN VÀ ỨNG DỤNG TRONG KHÍ TƯỢNG THỦY VĂN part 4 ID = D3 (I) END IF D3 (I) = D3 (K) ELSE D3 (K) = ID PRINT 60 , I , TEN (I) , D1 (I) , D2 (I) , D3 (I) , TB (I) D = TB (I) END IF TB (I) = TB (K) I=I+1 TB (K) = D IF (I. LE. N) GO TO 3 I=I+1 IF (I .LT. N) GO TO 2 STOP ENDC In tiêu đề danh sách lên màn hình PRINT 100 Thí dụ 6: Viết chương trình tính tích phân xác định:100 FORMAT (21X , BANG DIEM // , 1X , TT , 7X, b I = ∫ x 2 sin x * HO TEN ,9X , D1 D2 D3 TB XEP LOAI /) aC In từng sinh viên theo danh sách theo công thức hình thang với sai số ε = 0,0001; a, b − cho trước. 60 FORMAT (1X, I2, 1X, A20, I3, I3, I3, F5.1, 1X, GIOI) Gợi ý: Ở bước xấp xỉ đầu, xem số hình thang con n = 1 , tích phân 50 FORMAT (1X, I2, 1X, A20, I3, I3, I3, F5.1, 1X, KHA) bằng 40 FORMAT (1X, I2, 1X, A20, I3, I3, I3, F5.1, 1X, S1 = 0,5 ( y a + y b ) (b − a) . * TRUNG BINH) Bước xấp xỉ sau tăng số hình thang con n thêm 1 và tích phân bằng (hình 4.3) I=1 3 IF (TB (I) .LT. 9.0) THEN n S 2 = ∑ 0,5 ( y i + y i +1 ) ( xi +1 − x i ) IF (TB (I) .LT. 6.0) THEN i a Tiếp tục tăng n đến khi S1 − S 2 < ε . PRINT 40 , I , TEN (I) , D1 (I) , D2 (I) , D3 (I) , TB (I) ELSE PRINT 50 , I , TEN (I) , D1 (I) , D2 (I) , D3 (I) , TB (I) 36 GOTO 5 y = f ( x) END IFy2 IF (ABS (S2−S1) .GT. EPSIL) THENy1 Hình 4.3. Minh họa sơ đồ tính SOHINH = SOHINH + 1.0 gần đúng tích phân xác định S1 = S2 theo phương pháp hình thang x1 = a xn = b x2 GOTO 7 END IF PRINT 3 , S2 EPSIL = 0.0001 3 FORMAT (1X , TICH PHAN BANG, F15.4) A = 0.0 END B = 3.141593 Thí dụ 7: Vòng lặp để tính tổng chuỗi. Bình phương của sin của góc S1 = 0.5 * (A ** 2 * SIN (A) + B ** 2 * SIN (B)) * (B−A) x tính theo công thức chuỗi như sau: SOHINH = 2.0 ...