tailieunhanh - Turbo Pascal với chương trình Gió động và Động đất part 3

Tham khảo tài liệu 'turbo pascal với chương trình gió động và động đất part 3', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | ChiMĩig ĨV CHƯƠNG TRÌNH TÍNH GIÓ ĐỘNG VÀ ĐỘNG ĐẤT Program tinh_dong uses crt PRINTER GRAPH Label 1 2 3 4 5 6 7 8 9 10 11 12 13 14 10 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 type ABC Array of real ABCD Array of real TH Array of real R s Ar r ay 1. 71 o f r e a 1 RX ARRAY OF REAL WQ ARRAY 1 --50 OF REAL YQ ARRAY 1 .3 OF REAL L1 ARRAY OF REAL CY ARRAY OF REAL var ck kc dh char R Xi RS Nu RX CKY CY 27 BT T F OF REAL L Lị ĩ Ị CHỈEƯ R0NG L 2ì CHỈEU DAI WL WP WB GB GL WPL CLi Cki FK WQ YDVJYDV1JYDV2 YV YV1 YV2 YBB ÌTB YB1 YB2 NT NT1 NT2 YQ DD DZ DA DB DC ABC iBAYG TRA DO CAO THEO DĨA ỈỈÍNHỊ AD AZ AA AD ACNBCD ỈBANG TRA AP LUC DONG THEO DỈA HINIĨỊ PH PH3 GD GM ST VG I J K M N I1 J1 12 J2 INTEGER KLK2fCDD Ml M2 INTEGER PH l PII2 I3 I4 l5 IG J3 J4 Jõ J6 K3 K4 K5 K6 INTEGER XX YY D1 D2 D3 XX1 XX2 YY1 YY2 X11 X22 Y11 Y22 INTEGER ỉ DANH CHO VE ỉ PHO KDD KHD KDR KHR KDH KCT K11 K22 KP REAL FL T1 T2 T3 F1 F2 F3 W0 T0 Bl DTC HSn R0 KI REAL TC ES Hi XíXl X2íYlíY2 Y TGl TG2 TG KIII REAL PV QV QVLQV2íSiJHSK5HT CDJPT QT TH CK1 CK2 CL1 CL2 FK1 FK2 TII SS SM DR KH CTR HMƯ S NG GO 28 .--------------------- FUNCTION NSUY X X 1 Y1 X2 Y2 REAL REAL VAR BEGIN Y X Y2-Y 1 X2-X1 X2 Y 1 -X1 Y2 X2-X 1 NSUY Y END __ __ _ FUNCTION SIS ES REAL VAR I1ẼREAL BEGIN IF ES 0 AND ES THEN Hi ES IF ES AND ES THEN Hi 3 ES E64 IF ES THEN Hi SlS Hi END _ FUNCTION HSKI1I YB YQ QT TH WP WQ REAL .