Pascal là một ngôn ngữ lập trình cho máy tính thuộc dạng mệnh lệnh, được Niklaus Wirth phát triển vào năm 1970 là ngôn ngữ đặc biệt thích hợp cho kiểu lập trình có cấu trúc. | write nhap vao so K readin K write nhap vao so ds m readln ds writeCnhap vao do lun toan bo S m readln S write nhap vao tri so n readln n for U l to n do begin d ds dw St u s t sqr De 8 Ch ln De dw - 0 75 K - l ln d ln l 1 U 12 writeln Thời gian lún cô kết là t tháng t 6 2 writeln Độ lún cố kết đạt được là St m St ố 2 end readln end. Chạy chương trình NĐ3-3 Nhập các số liệu De 1 05 m Ch 2 07 m2 năm dw 0 052 m K Kh Ks 3 ds 2dm 0 20 m s 3 952 m n 9 Được kết quả như bảng 3-10. Vẽ biểu dồ tốc độ lún khi có bấc thấm như hình 3-13. Bảng 3-10. Kết quả tính toán độ lún theo thời gian n 1 2 3 4 5 6 7 8 9 u 10 20 30 40 50 60 70 80 90 t tháng 1 41 2 02 2 74 3 62 4 76 6 37 9 11 St m 0 40 0 79 1 19 1 58 1 98 2 37 2 77 3 16 3 56 88 t tháng Hình 3-13 Biểu đó tốc dộ lún khi có bấc thấm ví dụ 3-4 Chú ý Do Ch dùng đơn vị m2 nãm nên t trong công thức 3-38 tính ra là năm. Để đổi ra đơn vị tháng chương trình NĐ3-3 đã nhân với 12. 7 Một sô nhận xét Thực tế độ lún một con đường hay cả một thành phô qua hàng trâm năm còn chịu nhiều tác động khác như sự thay dổi phức tạp của mức nước ngầm biến động kiến tạo vỏ trái đất . Biểu đồ hình 3-7 chỉ có ý nghĩa về lý thuyết tính toán theo các kết quả thí nghiệm đất một khu vực riêng lẻ dùng làm cơ sở để lý giải chứng minh các giải pháp cải tạo nền đất yếu mà chúng ta sẽ đế xuất. Các kết quả tính toán trong ví dụ 3-2 3-3 như độ lún s 6 49m độ sâu vùng hoạt động khi toàn bộ là bùn sét hữu cơ H 90 2m là dựa trên sô liệu địa chất thực tê của vùng lầy giữa sông lạch ngoại ô TP Hồ Chí Minh. Số liệu đó có vẻ như vô lý nhưng qua biều đồ 3-7 bảng 3-9 trong 1 8 năm 21 6 tháng một nền đắp cao 3 m rộng 40m bị lún 1 21 m là hoàn toàn có thể xảy ra. Kinh nghiệm tính toán vùng biến dạng dẻo dô sâu vùng hoạt động nền đất yếu thường trong khoảng H 40 đến 45 m. Do dó khi khảo sát địa chất phục vụ cho thiết kế cải tạo nền dất yếu cũng phải khoan sâu 40 - 45 m mới dủ số liêu để tính toán. 89 Chương 4 LẬP TRÌNH TURBO PASCAL THIẾT KẾ THOÁT NƯỚC .
