GIAO TRINH LY THUYET VA BAITAP TURBO PASCAL-CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var a,b,c:Integer; delta,x1,x2:Real; Begin Writeln('GIAI PHUONG TRINH BAC HAI'); Writeln(' --------------'); Repeat Write('-Nhap he so a= '); Readln(a); Until a <>0; Write('-Nhap he so b= '); Readln(b); Write('-Nhap he so c= '); Readln(c); delta:=b*b-4*a*c; If delta < 0 Then Writeln('*Phuong trinh vo nghiem') Else If delta = 0 Then Writeln('*Phuong trinh co 2 nghiem bang nhau X= ',-b/2*a:6:2) Else Begin x1:=(-b-sqrt(delta))/2*a; x2:=(-b+sqrt(delta))/2*a; Writeln('*Nghiem thu nhat X1= ',x1:6:2); Writeln('*Nghiem thu hai X2= ',x2:6:2); End; readln End. **********0102********** Program Ao_thu; Begin Writeln(' BAI THO AO THU'); Writeln('Ao thu lanh leo nuoc trong veo'); Writeln('Mot chiec thuyen cau be teo teo'); Writeln('Song biec theo lan hoi gon ty'); Writeln('La vang truoc gio se dua veo'); Writeln(' NGUYEN KHUYEN'); Readln End. **********0103********** Program So_hoc; Var so1,so2,tong,hieu,tich:Integer; thuong:Real; Begin Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); tong := so1 + so2; hieu := so1 - so2; tich := so1 * so2;
thuong := so1 / so2; Writeln('*Tong cua hai so ',so1,' va ',so2,' = ',tong); Writeln('*Hieu cua hai so ',so1,' va ',so2,' = ',hieu); Writeln('*Tich cua hai so ',so1,' va ',so2,' = ',tich); Writeln('*Thuong cua hai so ',so1,' va ',so2,' = ',thuong:6:2); Readln End. **********0104********** Program Pithagore; Var a,b :Integer; c:Real; Begin Writeln(' CHUONG TRINH TINH CANH HUYEN TAM GIAC VUONG'); Writeln(' theo dinh ly Pithagore'); Write('-Nhap canh a = '); Readln(a); Write('-Nhap canh b = '); Readln(b); c := Sqrt((a*a) + (b*b)); Writeln('*Canh huyen = ',c:6:2); Readln End. **********0105********** Program Phep_Cong; Var so1,so2,so3,tong :Integer; Begin Writeln(' CHUONG TRINH THUC HIEN PHEP CONG SO HOC'); Writeln(' co toi da 4 ky so'); Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); Write('-Nhap so thu ba = '); Readln(so3); tong:= so1+so2+so3; Writeln; Writeln; Writeln('-------------------------------'); Writeln; Writeln(' ',so1:4); Writeln(' + ',so2:4); Writeln(' ',so3:4); Writeln(' -----'); Writeln(' = ',tong:5); Readln End. **********0106********** Program Lenh_Write; Begin Write('Nam '); Write('Quoc '); Write('Son '); Write('Ha '); Write('Nam ');
Write('De '); Write('Cu '); Readln End. **********0107 Program Lenh_Writeln; Begin Writeln('Nam '); Writeln('Quoc '); Writeln('Son '); Writeln('Ha '); Writeln('Nam '); Writeln('De '); Writeln('Cu '); Readln End. *********0108********* Program Tam_giac_Pascal; Begin Writeln(' 1'); Writeln(' 1 Bài 5: Tại công ty sản xuất THÀNH CÔNG hạch toán hàng tồn kho theo phương pháp kê khai thường xuyên, tính thuế giá trị gia tăng ( thuế GTGT) theo phương pháp khấu trừ NVL dùng để sản xuất sản phẩm chịu thuế GTGT theo PP khấu trừ Có tình hình vật liệu sau: Số dư đầu kỳ: TK 152: 300 kg, đơn giá: 7.000 đ/ kg Phát sinh kỳ: 1/ Mua NVL nhập kho 700 kg, đơn giá mua có thuế GTGT 6600 đ/ kg, thuế suất GTGT 10%, trả tiền người bán 30% tiền gửi ngân hàng, lại chưa trả tiền người bán Chi phí vận chuyển 500đ/kg, thuế GTGT 10%, trả tiền gửi ngân hàng 2/ Mua NVL nhập kho 500 kg, trị giá mua chưa thuế GTGT 1500.000đ, thuế suất GTGT 10%, trả tiền người bán 20% tiền gửi ngân hàng, 40% tiền mặt, lại chưa trả tiền người bán Chi phí vận chuyển 200đ/kg, thuế GTGT 10%, trả tiền mặt 3/ Xuất kho 400kg NVL để trực tiếp sản xuất sản phẩm 200kg NVL để phục vụ chung cho sản xuất sản phẩm, 200kg NVL để phục vụ phận bán hàng 100kg NVL để phục vụ phận quản lý doanh nghiệp 4/ Mua NVL nhập kho 100kg, đơn giá mua có thuế GTGT 8800đ/kg, thuế suất GTGT 10%, công ty chưa trả tiền người bán NVL không nhập kho mà sử dụng vào trực tiếp sản xuất sản phẩm 5/ Mua NVL nhập kho 700kg, trị giá mua có thuế GTGT 6.160.000đ, thuế suất GTGT 10%, công ty chưa trả tiền người bán Chi phí bảo quản mua NVL 350.000đ, thuế GTGT 10%, trả tiền mặt 6/ Xuất kho 400kg NVL để phục vụ phận bán hàng 200kg NVL để phục vụ phận quản lý doanh nghiệp 7/ Mua NVL 200kg, đơn giá mua có thuế GTGT 8800đ/kg, thuế suất GTGT 10%, công ty chưa trả tiền người bán NVL không nhập kho mà 30% sử dụng vào trực tiếp sản xuất sản phẩm, 20% dùng phục vụ BP bán hàng, 30% phục vụ chung cho sản xuất, lại phục vụ cho BP QLDN Yêu cầu: Định khoản tính giá trị nhập kho, giá trị xuất kho, đơn giá nhập kho, đơn giá xuất kho, nếu: a/ công ty tính giá xuất kho HTK theo PP nhập trước xuất trước (FIFO) b/ công ty tính giá xuất kho HTK theo PP bình quân gia quyền liên hoàn c/ công ty tính giá xuất kho HTK theo PP bình quân gia quyền cuối kỳ d/ công ty tính giá xuất kho HTK theo PP thực tế đích danh, biết: Ngày 3: 400kg NVL để trực tiếp sản xuất sản phẩm mua 200kg vào ngày 200kg đầu kỳ 200kg NVL để phục vụ chung cho sản xuất sản phẩm NVL mua vào ngày 200kg NVL để phục vụ phận bán hàng mua ngày 100kg NVL để phục vụ phận quản lý doanh nghiệp mua ngày Ngày 6: 400kg NVL để phục vụ phận bán hàng mua 100kg vào ngày 1và 300kg mua ngày 200kg NVL để phục vụ phận quản lý doanh nghiệp mua ngày BÀITẬP TỪ TRƯỜNG A. LÝ THUYẾT 1. Từ trường. Xung quanh nam châm và xung quanh dòng điện tồn tại từ trường. Từ trường có tính chất cơ bản là tác dụng lực từ lên nam châm hay lên dòng điện đặt trong nó. Vectơ cảm ứng từ là đại lượng đặc trưng cho từ trường về mặt tác dụng lực từ. Đơn vị cảm ứng từ là Tesla (T). 2. Từ trường của dòng điện trong dây dẫn thẳng, dài đặt trong không khí: Vectơ cảm ứng từ tại điểm M cách dây dẫn một đoạn r: - Điểm đặt: Tại điểm M - Phương: Vuông góc với mặt phẳng (M. I). - Chiều: Tuân theo quy tắc vặn đinh ốc. - Độ lớn: 7 I B 2.10 r − = 3. Từ trường tại tâm của dòng điện trong khung dây tròn: Vectơ cảm ứng từ tại tâm khung dây tròn có: - Điểm đặt: Tại tâm - Phương: Vuông góc với mặt phẳng vòng dây. - Chiều: Theo quy tắc vặn đinh ốc (hoặc vào mặt nam S ra bặt bắc N của vòng dây) Mắt S: dòng điện cùng chiều kim đồng hồ, mặt N: dòng điện ngược chiều kim đồng hồ - Độ lớn: 7 NI B 2 .10 R − = π R là bán kính của khung dây, N là số vòng dây trong khung, I là cường độ dòng điện trong mỗi vòng. 4. Từ trường của dòng điện trong ống dây: Vectơ cảm ứng từ tại một điểm trong lòng ống dây - Điểm đặt: Tại điểm đang xét. - Phương: Vuông góc với mặt phẳng vòng dây - Chiều: Vào mặt nam(S) ra mặt bắc (N) của ống dây. - Độ lớn: 7 7 N B 4 .10 I 4 .10 nI l − − = π = π n là số vòng dây trên một đơn vị dài của ống. l chiều dài của ống N tổng số vòng dây trên ống 5. Nguyên lý chồng chất từ trường: 1 2 n B B B B= + + + ur ur ur ur Xét trường hợp : 1 2 B B B= + ur ur ur a. Khí 1 B ur cùng hướng với 2 B ur : B ur cùng hướng với 1 B ur , 2 B ur B = B 1 + B 2 b. Khi 1 B ur ngược hướng với 2 B ur : 1 2 B B B= − B ur cùng hướng với 1 1 2 2 1 2 B khi : B B B khi : B B > < ur ur c. Khi 1 2 B B⊥ ur ur 2 2 1 2 B B B= + B ur hợp với 1 B ur một góc α xác định bởi: 2 1 B tan B α = d. Khi B 1 = B 2 và · 1 2 B ,B = α ur ur 1 B 2B cos 2 α = ÷ B ur hợp với 1 B ur một góc 2 α II. Lực từ tác dụng lên dòng điện – lực lorenxơ 1. Lực từ tác dụng lên dây dẫn có dòng điện: - Điểm đặt: Tại trung điểm của đoạn MN. - Phương: Vuông góc với mặt phẳng ( I,B r ur ) - Chiều: Xác định theo quy tắc bàn tay trái: Đặt bàn tay trái duỗi thẳng để cho các đường cảm ứng từ hướng vào lòng bàn tay chiều từ cổ tay đến ngón tay giữa là chiều dòng điện, thì chiều ngón tay cái choãi ra 90 0 là chiều của lực từ tác dụng lên đoạn dây. - Độ lớn: F = BIlsin α α là góc hợp bởi đoạn dòng điện và vectơ cảm ứng từ. 2. Lực từ tác dụng lên hai dòng điện thẳng song song - Điểm đặt: Trung điểm của đoạn dây - Chiều: Là lực hút nếu dòng điện cùng chiều, lực đẩy nếu hai dòng điện ngược chiều - Độ lớn: 7 1 2 I I F 2.10 l r − = r là khoảng cách giữa hai dòng điện. 3. Mômen ngẫu lực từ Mômen ngẫu lực từ tác dụng lên khung dây có dòng điện: M = IBS.sin α Trong đó S là diện tích phần mặt phẳng giới hạn bởi khung, α là góc hợp bởi vectơ pháp tuyến của khung và vectơ cảm ứng từ 4. Lực Lorenxơ - Điểm đặt: Tại điện tích - Phương: Vuông góc với mặt phẳng ( v,B r ur ) - Chiều: Xác định theo quy tắc bàn tay trái: Đặt bàn tay trái duỗi thẳng sao cho cảm ứng từ đâm xuyên vaoaf lòng bàn tay, chiều từ cổ tay đến ngón tay là chiều của vận tốc, ngón tay cái choãi ra 90 0 là chiều của lực lorenxơ nếu q >0, và chiều ngược lại nếu q <0 - Độ lớn: f q Bvsin= α Trong đó q là điện tích của hạt, α là góc hợp bởi vectơ vận tốc của hạt và vectơ cảm ứng từ B. BÀITẬPBài 1: Một đoạn dây dẫn dài 5 (cm) đặt trong từ trường đều và vuông góc với vectơ cảm ứng từ. Dòng điện chạy qua dây có cường độ 0,75 (A). Lực từ tác dụng lên đoạn dây đó là 3.10 -2 (N). Tính độ lớn Cảm ứng từ của từ trường ĐS: B. 0,8 (T). Bài 2: Một đoạn dây dẫn thẳng MN dài 6 (cm) có dòng điện I = 5 (A) đặt trong từ trường đều có cảm ứng từ B = 0,5 (T). Lực từ tác dụng lên đoạn dây có độ lớn F = 7,5.10 -2 (N). Tính góc α hợp bởi dây MN và đường cảm ứng MỘT SỐ BÀITẬP ĐỀ NGHỊ –KIỂU DỮ LIỆU TỆP & CHƯƠNG TRÌNH CON (chuẩn bị kiểm tra 15 phút & 45 phút – lần 2) I./ Phần lý thuyết: Chương 5: KIỂU DỰ LIỆU TỆP Câu 1: Trình bày lợi ích của việc sử dụng kiểu dữ liệu tệp và phân loại tệp. Câu 2: Trình bày cú pháp các thủ tục và hàm thường dùng khi thao tác với tệp. Chương 6: CHƯƠNG TRÌNH CON Câu 1: Trình bày các khái niệm: Chương trình con là gì?, lợi ích của việc sử dụng chương trình con trong lập trình. Câu 2: Viết cấu trúc chung của chương trình con, cấu trúc thủ tục, cấu trúc hàm. Trình bày chi tiết các thành phần trong các cấu trúc đó. Câu 3: Lập bảng so sánh sự giống nhau và khác nhau giữa các cấu trúc: Chương trình, thủ tục, hàm. II./ Phần bàitậpBài 1: Viết chương trình tạo tệp Sothuc.txt được lưu trữ trong ổ đĩa F. Gồm n số thực được nhập từ bàn phím. Bài 2: Viết chương trình tạo tệp có tên B.txt gồm các số nguyên dương từ tệp A.txt lưu trữ ở ổ đĩa F. Biết rằng trong tệp A.txt lưu trữ các số nguyên. Bài 3: Viết chương trình thực hiện các công việc sau: a.) Tạo tệp A.txt có cấu trúc như sau: Tệp A gồm n dòng, m cột. (n, m là các số nguyên dương được nhập từ bàn phím: Với m thể hiện số phần tử nguyên nằm trên dòng thứ n i .) b.) Từ tệp A đã tạo ở câu trên, tính giá trị trung bình cộng của từng dòng tương ứng và ghi kết quả lên tệp B.txt. c.) Hiển thị tệp B.txt sau khi sắp xếp các giá trị theo chiều tăng dần ra màn hình. Bài 4: Cho mảng T gồm 20 phần tử thuộc số nguyên. Viết chương trình thực hiện yêu cầu sau: a.) Viết thủ tục nhập giá trị cho mảng T từ bàn phím. b.) Viết hàm tính trung bình cộng cho các phần tử chẵn trong mảng T. c.) Hiển thị các phần tử mảng T và giá trị TBC tính ở câu b. Bài 5: Cho mảng A gồm 5 cột, 9 dòng, các phần tử là các số nguyên. Viết chương trình thực hiện một số yêu cầu sau: a.) Viết thủ tục nhập dữ liệu cho mảng A từ bàn phím. b.) Viết hàm tìm phần tử lớn nhất và phần tử nhỏ nhất trên mảng A. c.) Viết hàm tính giá trị TBC các phần tử trên mảng A. - HẾT - 1 TÍNH TOÁN THIẾT KẾ KẾT CẤU BẰNG CHƯƠNG TRÌNH SAP 2000 – TỰ HỌC SAP 2000 BẰNG HÌNH ẢNH BÀITẬP5BÀI TOÁN KHUNG PHẲNG Trong bàitập này bạn sẽ thực hành giải bài toán khung phẳng với các số liệu ban đầu như sau : Khung gồm 5 tầng, khoảng cách giữa các tầng là 5m. Khung gồm 5 nhòp, khoảng cách giữa các nhòp là 4m. Vật liệu là bê tông cốt thép (BTCT) với mô đun đàn hồi : E = 2.6510 6 T/m 2 . Hệ số Poisson v = 0.2. Trọng lượng riêng của BTCT là : 2.5 T/m 3 Kích thước của cột 0.4 x 0.4. Kích thước của dầm 0.3 x 0.4. Lực phân bố tác dụng lên tầng 1 và 2 là 0.6 T /m Lực tác dụng lên tầng 3 và 4,5 là 0.5 T / m. Bằng chương trình Sap 2000 bạn có thể nhìn thấy được biểu đồ nội lực, phản lực và kết quả biến dạng của thanh dầm một cách nhanh chóng. Để thực hiện được điều đó bạn hãy tiến hành trình tự qua các bước sau : THIẾT KẾ VỚI SỰ TR GIÚP CỦA MÁY TÍNH BIÊN SOẠN : TỦ SÁCH STK 122 TÍNH TOÁN THIẾT KẾ KẾT CẤU BẰNG CHƯƠNG TRÌNH SAP 2000 – TỰ HỌC SAP 2000 BẰNG HÌNH ẢNH 1. KHỞI ĐỘNG SAP 2000. Từ trình đơn Start chọn Programs > SAP 2000NonLinear. Cửa sổ làm việc xuất hiện như hình sau : 2. ĐƠN VỊ TÍNH. Khai báo đơn vò tính là Ton-m, bằng cách bạn dùng chuột nhấp chọn vào tam giác bên phải phía dưới của màn hình và chọn Ton-m. 3. CHỌN MẪU KẾT CẤU. Đầu tiên bạn vào trình đơn File > New Model from Template để mở hộp thoại Model Template. Hộp thoại Model Templates xuất hiện : THIẾT KẾ VỚI SỰ TR GIÚP CỦA MÁY TÍNH BIÊN SOẠN : TỦ SÁCH STK 123 TÍNH TOÁN THIẾT KẾ KẾT CẤU BẰNG CHƯƠNG TRÌNH SAP 2000 – TỰ HỌC SAP 2000 BẰNG HÌNH ẢNH Trong hộp thoại Model Templates bạn dùng chuột nhấp chọn vào mẫu kết cấu thứ hai tính từ trái qua như hình con trỏ chỉ bên trên, đây là hệ khung phẳng trong mặt phẳng X-Z, khi đó xuất hiện hộp thoại Portal Frame. Hộp thoại Portal Frame xuất hiện : Trong hộp thoại Portal Frame, bạn tiến hành khai báo các thông số như sau : Đầu tiên nhấp chuột vào Rectraints để bỏ chọn. Tại Number of Stories (số tầng) nhập giá trò : 5. Tại Number of Bays (số nhòp) nhập giá trò : 5. Story Height chiều cao tầng : 5 Trong hộp Bay Width (bề rộng của nhòp) nhập giá trò là 4. Sau cùng bạn nhấp Ok để đóng hộp thoại Portal Frame. Lúc này trên màn hình của bạn xuất hiện hai cửa sổ làm việc đó là 3-D View và X-Y Plane @ Y= O, khi đó dùng chuột nhấp vào Close của cửa sổ 3-D View để đóng cửa sổ này. THIẾT KẾ VỚI SỰ TR GIÚP CỦA MÁY TÍNH BIÊN SOẠN : TỦ SÁCH STK 124 TÍNH TOÁN THIẾT KẾ KẾT CẤU BẰNG CHƯƠNG TRÌNH SAP 2000 – TỰ HỌC SAP 2000 BẰNG HÌNH ẢNH Bạn sẽ làm việc với cửa sổ X-Y Plane @ Y= O như hình bên dưới gồm 5 tầng và 5 nhòp như bạn đã khai báo. Để dấu đi đường lươi bạn nhấn F7 trên bạn phím. THIẾT KẾ VỚI SỰ TR GIÚP CỦA MÁY TÍNH BIÊN SOẠN : TỦ SÁCH STK 125 TÍNH TOÁN THIẾT KẾ KẾT CẤU BẰNG CHƯƠNG TRÌNH SAP 2000 – TỰ HỌC SAP 2000 BẰNG HÌNH ẢNH 4. HIỂN THỊ CÁC THÔNG SỐ LÊN MÀN HÌNH Các thông số của phần tử cho phép hiển thò một cách lựa chọn các đặc trưng khác nhau tùy ý có liên quan đến các phần tử. Sử dụng phương pháp này để hiển thò một cách lựa chọn các kiểu phần tử khác nhau có liên quan đến số lượng các thông số của phần tử, các loại hình đặc trưng tiết diện của phần tử và các tính chất khác. Bạn cũng có thể dấu hay thu nhỏ các phần tử. Vậy phần tử là gì? Theo một số khái niệm cơ bản nhất thì phần tử được mô tả như sau : Những kết cấu rời rạc tạo thành phần tử, tuy nhiên không phải loại phần tử nào cũng giống nhau. Tùy theo hình dạng, sự làm việc của từng bộ phận kết cấu mà người ta xây dựng những phần tử thích hợp để đảm bảo các yêu cầu về sự tương thích. Ngoài ra để phân tích một kết cấu bước đầu tiên là rời rạc hóa kết cấu ban đầu là một miền liên tục thành các miền con thật đơn giản. Giữa chúng nối với nhau thông qua một số điểm. Các miền con được gọi là phần tử, điểm nối để liên kết các phần tử gọi là nút . Các phần tử được phân loại như sau: Các dầm, cột trong hệ khung được mô tả là phần Mã sinh viên 41100034 41100125 41000228 41000251 41200348 41000312 41100450 41100446 40900376 41000492 41100899 41000811 41101157 41101271 41101287 41101296 41001144 41001189 41101316 41001336 41101442 41101463 41001225 41101686 41101683 41101797 41101944 41101967 41101968 41102091 41001982 41102204 41102395 41102443 41002396 41102656 41102842 41102945 41102989 41103013 41103179 41104427 41103208 41103162 41103489 41103611 41103618 41103656 41103634 41103685 41103814 41104071 41104089 41003777 41104042 41104206 41004091 41104326 41100817 41100888 Họ Trần Đức Phan Ngọc Nguyễn Thuận Nguyễn Ngọc Minh Nguyễn Hữu Nguyễn Việt Hoàng Mạnh Đậu Hùng Hoàng Võ Đức Tô Hoàng Nguyễn Tài Hoàng Phạm Thái Thiên Lê Thái Bùi Thái Nguyễn Văn Văn Thái Vương Quốc Huy Phùng Văn Nguyễn Cẩm Nguyễn Trọng Nguyễn Văn Đặng Thành Ngô Huỳnh Anh Nguyễn Văn Trần Minh Nguyễn Hoàng Mai Xuân Nguyễn Tiến Trần Lê Trọng Trần Hoàng Trần Thanh Quãng Thành Vĩnh Đặng Minh Trần Văn Nguyễn Minh Lê Hoàng Nguyễn Thành Nguyễn Văn Mai Hữu Phạm Bá Nguyễn Văn Kiều Duy Lê Thế Vũ Ngọc Nguyễn Hữu Vĩnh Trần Hữu Trương Quốc Trần Trung Đỗ Trọng Lê Song Trần Ngọc Lê Tuấn Trần Anh Nguyễn Minh Mã Trí Nguyễn Chấn Nông Quang Trần Duy Phạm Duy Trần Vũ Tên An Anh Bình Cát Chiến Chính Cường Cường Duy Duy Gia Hà Hiển Hòa Hòa Hòa Hoàng Huân Huê Hùng Hùng Hưng Huy Khởi Khôi Lân Lộc Lợi Lợi Minh Minh Nghi Nhật Nhuận Phong Phương Quý Sơn Tài Tạo Thái Thanh Thành Thanh Thuần Tiến Tiến Tín Tín Toàn Trí Tú Tú Tuấn Tuệ Việt Vũ Vũ Đoan Đức BT chiếu sáng KTGK (để cộng điểm) (20%) 10 10 7.5 10 8.5 8.5 10 10 7 10 10 8.5 8.5 8.5 8.5 7 5 2.5 4.5 4.5 3.5 3.5 3.5 8.5 6.5 3.5 3.5 1.5 5.5 4.5 4.5 5.5 4.5 10 10 10 10 8.5 10 3.5 3.5 3.5 6.5 8.5 10 4 10 10 7.5 10 1.5 4.5 3.5 8 5.5 7 ... 40 0kg NVL để phục vụ phận bán hàng mua 100kg vào ngày 1và 300kg mua ngày 200kg NVL để phục vụ