tailieunhanh - Một số chương trình Pascal đơn giản dùng cho thiết kế đường ôtô part 4

Tham khảo tài liệu 'một số chương trình pascal đơn giản dùng cho thiết kế đường ôtô part 4', kỹ thuật - công nghệ, cơ khí - chế tạo máy phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Bảng 3-6. Bảng tính K Thứ tự a a Ttxct sinot sin r p F tg Ọ sin fl cosíì c kG cm2 ƠJ Bl kG cm2 B3 kG cm2 TinsiK x A max7 kG cm2 Ao Ko 180 radian r 1 2 3 4 5 6 7 8 9 10 11 12 1 20 0 3491 0 3420 6 0 1051 0 081 0 1474 0 0015 0 0729 0 661 1 213 2 25 0 4363 0 4226 6 0 1051 0 081 0 1832 0 0029 0 0901 0 556 1 002 2 25 0 4363 0 4226 14 0 2493 0 450 0 1832 0 0029 0 0901 2 750 5 224 3 30 0 5236 0 5000 6 0 1051 0 081 0 2183 0 0050 0 487 0 863 4 40 0 6981 0 6428 6 0 1051 0 081 0 2860 0 0118 0 1371 0 405 0 697 5 50 0 8722 0 7660 6 0 1051 0 081 0 3495 0 0227 0 1634 0 360 0 606 6 60 1 0472 0 8660 6 0 1051 0 081 0 4080 0 0386 0 1847 0 335 0 556 7 70 1 2217 0 9397 6 0 1051 0 081 0 4610 0 0601 0 2004 0 323 0 531 8 80 1 3963 0 9848 6 0 1051 0 081 0 5078 0 0878 0 2100 0 320 0 524 9 90 1 5708 1 0000 6 0 105 í 0 081 0 5483 0 1217 0 2133 0 325 0 535 10 110 1 9199 0 9397 6 0 1051 0 081 0 6099 0 2090 0 2004 0 362 0 610 11 140 2 4435 0 6428 6 0 1051 0 081 0 6582 0 3840 0 1371 0 548 0 985 12 141 2 4609 0 6293 6 0 1051 0 081 0 6590 0 3906 0 1342 0 560 1 009 Ghi chú Một sô cột trong bảng K trên gồm 2 ký hiệu ký hiệu trong ngoặc như r sin r f 1 Bl B3. là để dùng cho khi lập trình Pascal. Thứ tự 2 là tính với địa chất lớp 2 sét dẻo cứng . 2 Lập chương trình Pascal NĐ 3-1 xác định vùng biến dạng dẻo Trên cơ sở các công thức tính toán và ví dụ 3-1 trên ta có thể lập chương trình Pascal tính vùng biến dạng dẻo K như sau Program Vùng_biên_dạng_dẻo_Ko_và_độ_sâu_H Uses crt Var r F fl C b Bl B3 Tmax t Ao Ko Po H real a n integer Begin Clrscr Wrìte nhập vào 1 2 bề rộng nền b m readln b Write nhập vào tải trọng Po kG cm2 readln Po Write nhập vào góc nội ma sát F degree readln F Write nhập vào lực dính C kG cm2 readln C Write nhập vào sô góc n degree readln n For a l to n do Begin r pi a 180 Bl Po r sin r pi B3 Po r-sin r pi Tmax Po sin r pi fl pi F 180 t sin f 1 cos f 1 Ao Bl t C Bl-B3 Ko 2 sqrt Ao Ao-t H b isin pi-r 2 cos pi-r 2 Writeỉn Trị số B1 B1 6 4 Writeln Trị số B3 B3 6 4 Writein Trị số .