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

Tham khảo tài liệu 'turbo pascal với chương trình gió động và động đất part 6', 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 CHIEU BAI NHA M U2 6 2 WRITELN LST CHIEU CAO NHA M T0 6 2 WR1TELN LST T WR1TELN LST TONG TAI TRONG GIO TINH DAY HUT LEN TUNG TANG WR1TELN LST --------------------- .--------- WR1TELN LST TANG CAO DO HE so K TB T TL T WR1TELN LST --------------------- .-. WRITELN LST FORI 1 TO ST DO WRITELN LST 1 2 CDịI õ 2 HSK 1 Õ 2 WB l ll õ 2 ẠVBtUhõ 1 WRITELN LST WRITELN LST -. -. 63 ------------ WRITEfCO TINH GỈO DONG KHONG C K READLN CK IF CK K THEN GOTO 10 ELSE WRITELNfHAY CHO TRONG LUONG CƯA CAC TANG FOR I l TO ST DO BEGIN WRITEfTRONG LUONG TANG I Tinh tai O-õHoat tai T i READLN PT I QT I PT I END FOR K 1 TO 2 DO BEGIN if K 1 THEN DR DAI if K 2 THEN DR RONG THANH PHAN GIO DONG THEO PHUONG CHIEU DAINHA WRITELNCCHU KY DAO DONG RIENG THEO PHUONG CHIEU dr NHA WRITE DAO DONG THU 1 KHONG CAT QUA TRUC DUNG 64 READLN T K 1 WRITEfDAO DONG THU 2 CAT TRUC DUNG TAI 1 DIEM READLN T K 2 WRITEfDAO DONG THU 3 CAT TRUC DUNG TAI 2 DIEM READLN T K 3 ỊK 1 GIO THEO PHUONG CHỈEU DAI NHA K 2 GIO THEO PHUONG CHIEU RONG NHA END FỊ1 1 1 T 1 1Ị F 1 2 1 T 1 2 F 1 3 1 T 1 3 Fị2 l l T 2 l FI2 2 l T 2 2 F 2 3 l TI2 3J CHI SO DUNG TRUOC LA PHUONG DUNG SAULA DANG DAO DONG FOR K l TO 2 DO BEGIN ifK lTHEN DRi-DAT if K- 2 THEN DR - RONG WR1TELN UST WRITELN LST CHU KY VA tan so DAO DONG THEO PHUONG CHIEU DR nha WRITEEN LST -------------- ---------------- WRITELN LST DANG DAO DONG CHU KY TAN so .