Tham khảo tài liệu 'turbo pascal với chương trình gió động và động đất part 7', 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ả | WRITELN LST ------------------- ---------------- WRỈTELN LST FOR 1 1 TO ST DO WRITELN LST 1 2 HT I 5 2 WB I 1 6 2 WP 1 6 2 GB I 1 6 2 WRITELN EST WRITELN LST ------------ ---------------- WRITELN LST WR1TELN EST TONG TAI TRONG GỈO TINH DONG LEN MUC SAN TUNG TANG WRITELN LST GIO THEO PHUONG VUONG GOC vol CHIEU DAI NIIA WRITELN LST ------------------- .- .-- WRITELN LST I TANG H TANG TINH T DONG T TONG T WRITELN LST -------------------- 75 ------------------ WRITELN LST FOR I l TO ST DO WR1TELN LST 1 2 HT I 5 2 WB I 2 6 2 WP I 2 6 2 GB I 2 6 2 WRITELN LST WRITELN LST ------------------ -------------- FOR I l TO ST DO BEGIN QV1 I GB I 1 QV2 I GB I 2J END VE TRONG LUONG TANG GỈO TỈNH DONG GD DETECT IN1TGRAPH GD GM C BP BGr IF GRAPHRESULToGROK THEN HALT KHONG CO LOĨ DO HOA XX GETMAXX DIV 2 76 YY GETMAXY DIV 2 TR0NGL ST XX YY 2 HT PT GIOTD ST XX YY 2 HT QV1 YY YY 200 TR0NGL ST XX YY 3 HT PT GIOTD ST XX YY 3 HT QV2 READ LN CLOSEGRAPH 10 WRlTEfCO TINH DONG DAT KHONG C K READLN KC IF KC K THEN GOTO 23 ELSE IF CK C THEN GOTO 22 ELSE WRIT ELN CHAY CHO TRONG LUONG CUA CAC TANG FOR 1 1 TO ST DO BEGIN WRITEfTRONG LUONG TANG 1 Tinh tai tai T READLN PT I END FOR TO 2 DO .