tailieunhanh - 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 | ID D3 I D3 I D3 K D3 K ID D TB I TB I TB K TB K D 1 1 1 IF I LT. N GO TO 2 c In tiêu đề danh sách lên màn hình PRINT 100 100 FORMAT 2IX BANG DIEM IX TT 7X 0 HO TEN 9X D1 D2 D3 TB XEP LOAI c In từng sinh viên theo danh sách 60 FORMAT IX 12 IX A20 13 13 13 IX GIOI 50 FORMAT IX 12 IX A20 13 13 13 IX KHA 40 FORMAT IX 12 IX A20 13 13 13 IX 0 TRUNG BINH 1 1 3 IF TB I LT. THEN IF TB I LT. THEN PRINT 40 1 TEN I DI I D2 I D3 I TB I ELSE PRINT 50 1 TEN I DI I D2 I D3 I TB I END IF ELSE PRINT 60 1 TEN I DI I D2 I D3 I TB I END IF 1 1 1 IF I. LE. N GO TO 3 STOP END Thí dụ 6. Viet chương trình tính tích phân xác định . b I Jx2 sin X a theo công thức hình thang với sai số s 0 0001 a b - cho trước. Gợi ý ở bước xấp xỉ đầu xem số hình thang con n 1 tích phân bằng 51 -5Cv Tè ố- - 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 52 ẳ 5ừi Z 1 V 1 -v Tiếp tục tăng n đến khi I Sj - S2 I s . 36 Hình . Minh họa sơ đồ tính gần đúng tích phân xác định theo phương pháp hình thang EPSIL A B 51 A 2 SIN A B 2 SIN B B-A SOHINH 7 DX B-A SOHINH HINH XI A Y1 X1 2 SIN XI 52 5 X2 X1 DX Y2 X2 2 SIN X2 S2 S2 Yl Y2 DX IF HINH LT. SOHINH THEN HINH HINH XI X2 Y1 Y2 GOTO 5 -1 1 2 END IF IF ABS S2-S1 GT. EPSIL THEN SOHINH SOHINH S1 S2 GOTO 7 END IF PRINT 3 S2 3 FORMAT IX TICH PHAN BANG END Thí dụ 7 Vòng lặp đễ tính tồng chuỗi. Bình phương của sin của góc X tính theo công thức chuỗi như sau 2 . .2 2V 25x6 Slll x x-- H--- . 4 6 2n Hãy viết chương trình đọc vào một góc X bằng độ đổi ra rađian tính và in ra bảng so sánh kết quả tính sin2 X theo công thức này với những số số hạng chuỗi n lẻ từ 1 đến 15. Thấy rằng số hạng đầu khi n 1 là X2 Ấ 1 Ấ r -2 X1 môi sô hạng tiêp sau băng sô hạng trước nhân với . n 2n -1 Trong thí dụ này ta ứng dụng phương pháp chia khối bài toán và chi tiết hoá từng khối như đã trình bày trong mục để xây dựng thuật giải và diễn đạt thuật giải đó bằng lưu đồ sau đó dẫn chương .