Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'turbo pascal với chương trình gió động và động đất part 8', 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 TANG CAO do H tang T.LUONG BIEN DO Nki WRITELN LST --------------------- ---------------------- WRITELNfLST ------- FOR I l TO ST DO WRITELN LST 1 2 CDII õ 2 HT I Õ 2 PT I 7 2 YB1 I J 7 4 NT1 I J 7 4 WRITELN LST WRITELN LST ----------------- END K 2 FOR J l TO M2 DO BEGIN if K 2 THEN DR -RONG WRITELN LST WRITELN LST BIEN DO DAO DONG 87 THEO PHUONG CHIEU DR NHA WRITELN LST DAO DONG THU J WRITELNfLST ----------- -------- . - WRITELN LST TANG CAO DO H TANG T.LUONG BIEN DO Nki WRITELN LST -------------------- WRITELN LST FOR I l TO ST DO WRITELN LST 1 2 CD I 5 2 HT I 5 2 PT I 7 2 YB2 I J 7 4 NT2 I J 7 4 WRITELN LST WRITELN LST -------------------- END WRITELN LST K l 88 VE 3 LOAI BỈEN DO DAO DONG GD DETECT 1NITGRAPH GD GM C BP BGT IF GRAPHRESULToGROK THEN HALT ỊKHONG CO LOI DO HOA XX GETMAXX DIV 2 YY GETMAXY DIV 2 FOR I l TO 2 DO BỈENDOD ST XX YY I HT YDV1 SETTEXTSTYLE LO l Vieí ngang chu in nho SETTEXTJUSTIFY l l VìeỂ chinh tam OUTTEXTXY XX YY-210 BIEN DO DAO DONG THEO PHUONG CHIEU DAI NHA K 2 YY YY 230 FOR I l TO 2 DO BIEND0D ST XX YY I HT YDV2 SETTEXTSTYLE l O l VỉỂíí ngang chu ìn nho SETTEXT JUSTIFY Ll V7eí chinh tam OUTTEXTXY XX YY-210 BIEN do DAO DONG THEO PHUONG CHIEU RONG NHA READLN CLOSEGRAPH WRITELN LST tai trong DONG DAT TAC DUNG LEN MUC SAN TUNG TANG .
