Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 35 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
35
Dung lượng
1,67 MB
Nội dung
KHOA: ĐIỆN ĐIỆN - TỬ BỘ MÔN: ĐIỆN TỰ ĐỘNG CÔNG NGHIỆP BÁO CÁO THÍ NGHIỆM :KỸ THUẬT LẬP TRÌNH TÊN HỌC PHẦN : KỸ THUẬT LẬP TRÌNH GIÁO VIÊN HƯỚNG DẪN : HỌ VÀ TÊN SINH VIÊN : MAI VĂN TÚ MÃ SINH VIÊN :50594 LỚP HỌC PHẦN : NO3 NHÓM THỰC HÀNH: TH2 :TH2 HẢI PHÒNG – 2016 Bài 1: Lập trình Bài 1: Viết chương trình tính tổng T= 1+2+3+…+N, với N số nguyên dương , N=0 T=0 Giao diện tự thiết kế cho phù hợp - Giao diện: Code: Private Sub Command1_Click() Dim n As Integer, tong As Integer, i As Integer n = Val(Text1) tong = For i = To n tong = tong + i Next Text1 = tong End Sub Bài : Viết chương trình tính tổng T= 1-2+3-4+…(-)N+1N, với N số nguyên dương , N=0 T=0 Giao diện tự thiết kế cho phù hợp Giao diện: Code: Private Sub Command2_Click() Dim n As Byte, s As Single n = Val(Text2) If n = Then Text2 = s = ElseIf n > And (n Mod = 0) Then s = -1 * (n / 2) ElseIf n > And (n Mod = 1) Then s = -1 * ((n - 1) / 2) + n End If Text2 = s End Sub Bài 3: Viết chương trình nhập số nguyên dương có chữ số, viết hình dạng: nghìn, tram, chục, đơn vị ví dụ: nhập vào số:9456, kết : nghìn, trăm, chục, đơn vị Giao diện thiết kế cho phù hợp Giao diện: Code: Private Sub Command3_Click() Dim n As Long, nghin As Byte, tram As Byte, chuc As Byte, donvi As Byte n = Val(Text3) If 1000 b Then a=a-b Else b=b-a End If Loop USCLN = a End Function Private Sub Command6_Click() Dim ts As Integer, ms As Integer Dim u As Integer, a As Integer, b As Integer a = Val(Text6) b = Val(Text6_1) u = USCLN(a, b) ts = a / u ms = b / u Text6_2 = u Text6_3 = ts & "/" & ms End Sub Bài 7: Viết chương cho phép nhập vào mảng A gồm n phần tử, thực yêu cầu sau(Giao diện thiết kế cho phù hợp) Tính tổng mảng Tính giá trị lớn Tính giá trị nhỏ Đếm số lần xuất x (với x nhập từ bàn phím) Giao diện: Code: Dim sopt As Integer, mang() As Integer Private Sub Command7_Click() Dim tong As Integer, max As Integer, As Integer Dim s As String sopt = Val(Text7) ReDim mang(sopt) For i = To sopt mang(i) = InputBox(" Nhap phan tu thu " & i & " : ", " Nhap mang ") Next 10 ElseIf b " " Then thuong = thuong + End If Next i Text12_1 = hoa & " chu hoa, " & thuong & " chu thuong " End Sub Bài 13: Viết chương trình nhập vào chuỗi, đảo ngược chuỗi xuất hình Ví dụ nhập vào câu : “Tin Hoc”, in : Hoc Tin Giao diện tự thiết kế cho phù hợp Giao diện: Code: Private Sub Command13_Click() Dim a As String Dim b As String Dim i As Integer Dim n As Integer 21 a = Text13 n = Len(a) b = "" For i = n To Step -1 If Mid(a, i, 1) = " " Then b = b & " " & Mid(a, i + 1, n - i + 1) n=i-1 i=n End If Next i i=1 Do i=i+1 Loop Until Mid(a, i, 1) = " " b = b & " " & Left(a, i - 1) Text13_1 = b End Sub Bài 14: Viết chương trình giải phương trình bậc 2: ax2 + bx + c =0 Với yêu cầu giao diện sau Cho phép nhập trực tiếp giá trị a, b, c Cho phép thay đổi giá trị a, b, c (nguyên) cuộn In kết giải tương ứng với tất trường hợp Giao diện: 22 Code: Private Sub Command14_Click() Dim a As Double Dim b As Double Dim c As Double Dim x1 As Double Dim x2 As Double Dim delta As Double a = Val(Text14) b = Val(Text14_1) c = Val(Text14_2) delta = b * b - * a * c If (delta < 0) Then Text14_3 = " Phuong trinh vo nghiem " Else x1 = (-b - Sqr(delta)) / (2 * a) 23 x2 = (-b + Sqr(delta)) / (2 * a) Text14_3 = " Phuong trinh co nghiem: " & " x1 = " & CStr(x1) & vbTab & " x2 = " & CStr(x2) End If End Sub Private Sub VScroll1_Change() Text14 = VScroll1.Value End Sub Private Sub VScroll2_Change() Text14_1 = VScroll2.Value End Sub Private Sub VScroll3_Change() Text14_2 = VScroll3.Value End Sub Bài 15: Viết chương trình nhập vào số nguyên a, b, Giao diện tự thiết kế cho phù hợp: Tính tổng số khoảng từ a tới b Tính tổng số lẻ khoảng từ a tới b Tính tổng số chẵn khoảng từ a tới b Giao diện: 24 Code: Private Sub Command15_Click() Dim a As Integer, b As Integer, i As Integer, j As Integer, k As Integer Dim s As Long, sc As Long, sl As Long a = Val(Text15) b = Val(Text15_1) k=a j=b If b < a Then k=b j=a Else k=a j=b End If 25 s=0 sc = sl = For i = k To j s=s+i If i Mod = Then sc = sc + i Else sl = sl + i End If Next i Text15_2 = s Text15_3 = sl Text15_4 = sc End Sub Bài 2: Vẽ đồ thị hàm số : Giao diện: 26 Code: Dim mau As Integer, y As Double, a As Integer, b As Integer, c As Integer, d As Integer, x As Single, ham As String Public Sub Vetructoado() Picture1.AutoRedraw = True Picture1.Scale (-20, 20)-(20, -20) 'truc tung Picture1.Line (-20, 0)-(20, 0) 'truc hoanh Picture1.Line (0, 20)-(0, -20) 'Chia vach Dim i As Integer For i = To 20 Picture1.Line (-0.5, -i * 2)-(0.5, -i * 2) Picture1.Line (-0.5, i * 2)-(0.5, i * 2) 27 Picture1.Line (-i * 2, -0.5)-(-i * 2, 0.5) Picture1.Line (i * 2, -0.5)-(i * 2, 0.5) Next 'Ve chu For i = To 20 Picture1.PSet (1, i * 2), vbWhite If i Then Picture1.Print i End If Picture1.PSet (1, -i * 2), vbWhite If i Then Picture1.Print "-" & i End If Picture1.PSet (-i * 2, -1), vbWhite If i Then Picture1.Print "-" & i End If Picture1.PSet (i * 2, -1), vbWhite If i Then Picture1.Print i End If Next End Sub Private Sub Close_Click() End End Sub 28 Private Sub HScroll1_Change() mau = HScroll1.Value If HScroll1.Value = Then Mauve.BackColor = QBColor(0) If HScroll1.Value = Then Mauve.BackColor = QBColor(1) If HScroll1.Value = Then Mauve.BackColor = QBColor(2) If HScroll1.Value = Then Mauve.BackColor = QBColor(3) If HScroll1.Value = Then Mauve.BackColor = QBColor(4) If HScroll1.Value = Then Mauve.BackColor = QBColor(5) If HScroll1.Value = Then Mauve.BackColor = QBColor(6) If HScroll1.Value = Then Mauve.BackColor = QBColor(7) If HScroll1.Value = Then Mauve.BackColor = QBColor(8) If HScroll1.Value = Then Mauve.BackColor = QBColor(9) If HScroll1.Value = 10 Then Mauve.BackColor = QBColor(10) If HScroll1.Value = 11 Then Mauve.BackColor = QBColor(11) If HScroll1.Value = 12 Then Mauve.BackColor = QBColor(12) If HScroll1.Value = 13 Then Mauve.BackColor = QBColor(13) If HScroll1.Value = 14 Then Mauve.BackColor = QBColor(14) If HScroll1.Value = 15 Then Mauve.BackColor = QBColor(15) End Sub Private Sub Veluoi_Click() a = Text1 b = Text2 c = Text3 d = Text4 DrawStyle = For i = To 10 29 Picture1.Line (-20, -i * 2)-(20, -i * 2), vbBlue Picture1.Line (-20, i * 2)-(20, i * 2), vbBlue Picture1.Line (-i * 2, -20)-(-i * 2, 20), vbBlue Picture1.Line (i * 2, -20)-(i * 2, 20), vbBlue Next ham = "(" & a & "* x ^ +" & b & "* x + " & c & ")/(" & d & "* x + Sin(x))" Text8 = "y=" & ham End Sub Private Sub Phongto_Click() Picture1.Cls Picture1.Scale (-10, 10)-(10, -10) 'truc tung Picture1.Line (-10, 0)-(10, 0) 'truc hoanh Picture1.Line (0, 10)-(0, -10) 'Chia vach Dim i As Integer For i = To 10 Picture1.Line (-0.5, -i * 2)-(0.5, -i * 2) Picture1.Line (-0.5, i * 2)-(0.5, i * 2) Picture1.Line (-i * 2, -0.5)-(-i * 2, 0.5) Picture1.Line (i * 2, -0.5)-(i * 2, 0.5) Next 'Ve chu 30 For i = To 10 Picture1.PSet (1, i * 2), vbWhite If i Then Picture1.Print i End If Picture1.PSet (1, -i * 2), vbWhite If i Then Picture1.Print "-" & i End If Picture1.PSet (-i * 2, -1), vbWhite If i Then Picture1.Print "-" & i End If Picture1.PSet (i * 2, -1), vbWhite If i Then Picture1.Print i End If Next a = Text1 b = Text2 c = Text3 d = Text4 mau = HScroll1.Value For x = 0.01 To 10 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next 31 For x = -10 To -0.01 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next End Sub Private Sub Thunho_Click() Picture1.Cls Picture1.Scale (-30, 30)-(30, -30) 'truc tung Picture1.Line (-30, 0)-(30, 0) 'truc hoanh Picture1.Line (0, 30)-(0, -30) 'Chia vach Dim i As Integer For i = To 30 Picture1.Line (-0.5, -i * 2)-(0.5, -i * 2) Picture1.Line (-0.5, i * 2)-(0.5, i * 2) Picture1.Line (-i * 2, -0.5)-(-i * 2, 0.5) Picture1.Line (i * 2, -0.5)-(i * 2, 0.5) Next 'Ve chu For i = To 30 Picture1.PSet (1, i * 2), vbWhite If i Then Picture1.Print i 32 End If Picture1.PSet (1, -i * 2), vbWhite If i Then Picture1.Print "-" & i End If Picture1.PSet (-i * 2, -1), vbWhite If i Then Picture1.Print "-" & i End If Picture1.PSet (i * 2, -1), vbWhite If i Then Picture1.Print i End If Next a = Text1 b = Text2 c = Text3 d = Text4 mau = HScroll1.Value For x = 0.01 To 30 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next For x = -30 To -0.01 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next 33 End Sub Private Sub Ve_Click() a = Text1 b = Text2 c = Text3 d = Text4 mau = HScroll1.Value For x = 0.01 To 19 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next For x = -20 To -0.01 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next ham = "(" & a & "* x ^ +" & b & "* x + " & c & ")/(" & d & "* x + Sin(x))" Text8 = "y=" & ham End Sub Private Sub Vemoi_Click() Picture1.Cls Vetructoado a = Text1 b = Text2 c = Text3 34 d = Text4 mau = HScroll1.Value For x = 0.01 To 19 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) Next For x = -20 To -0.01 Step 0.0001 y = (a * x ^ + b * x + c) / (d * x + Sin(x)) Picture1.PSet (x, y), QBColor(mau) ham = "(" & a & "* x ^ +" & b & "* x + " & c & ")/(" & d & "* x + Sin(x))" Text8 = "y=" & ham Next End Sub 35 [...]... x = Val(Text7_5) For i = 1 To sopt If x = mang(i) Then solan = solan + 1 11 Next i End Function Private Sub Command7_1_Click() Call solan Text7_6 = solan End Sub Bài 8: Viết chương trình cho phép nhập vào một mảng A có n phần tử và sắp xếp mảng A đó theo thứ tự tăng dần, giảm dần Giao diện thiết kế cho phù hợp Giao diện: Code: Dim sopt As Integer, i As Integer, mang() As Integer Private Sub Command8_Click()... sopt If mang(i) < mang(j) Then tg = mang(i) mang(i) = mang(j) mang(j) = tg End If Next j Next i h = "" For i = 1 To sopt h = h & mang(i) & " " Next i Text8_3 = h End Sub Bài 9: Viết chương trình nhập vào mảng A gồm n phần tử (n nhập từ bàn phím) Kiểm tra mảng A có đối xứng hay không? Giao diện thiết kế cho phù hợp Giao diện: 14 Code: Dim i As Integer, mang() As Integer, sopt As Integer Private Sub Command9_Click()... Sub Command9_1_Click() For i = 1 To sopt If mang(i) = mang(sopt + 1 - i) Then Text9_2 = " Mang doi xung " Else Text9_2 = " Mang khong doi xung " End If Next i End Sub Bài 10: Viết chương trình nhập vào mảng A gồm n phần tử (n nhập vào từ bàn phím) Kiểm tra mảng là tăng hay giảm hay không tăng không giảm Giao diện thiết kế cho phù hợp Giao diện: Code: Dim i As Integer, mang() As Integer, sopt As Integer... i, 1) = " " Then b = b & " " & Mid(a, i + 1, n - i + 1) n=i-1 i=n End If Next i i=1 Do i=i+1 Loop Until Mid(a, i, 1) = " " b = b & " " & Left(a, i - 1) Text13_1 = b End Sub Bài 14: Viết chương trình giải phương trình bậc 2: ax2 + bx + c =0 Với yêu cầu giao diện như sau Cho phép nhập trực tiếp các giá trị a, b, c Cho phép thay đổi giá trị a, b, c (nguyên) bằng các thanh cuộn In kết quả giải tương... For i = 1 To n b = Mid(a, i, 1) If b = "0" Then dem = dem + 1 ElseIf Val(b) 0 Then dem = dem + 1 t = t + Val(b) End If Next i Text11_1 = dem & " ki tu so " Text11_2 = t End Sub Bài 12: Viết chương trình nhập vào một câu, đếm xem trong câu có bao nhiêu chữ hoa, bao nhiêu chữ thường Giao diện tự thiết kế cho phù hợp Giao diện: 19 Code: Private Sub Command12_Click() Dim a As String Dim n As Integer... Mid(a, i, 1) If b = UCase(b) And b " " Then hoa = hoa + 1 20 ElseIf b " " Then thuong = thuong + 1 End If Next i Text12_1 = hoa & " chu hoa, " & thuong & " chu thuong " End Sub Bài 13: Viết chương trình nhập vào một chuỗi, đảo ngược chuỗi và xuất ra màn hình Ví dụ nhập vào câu : “Tin Hoc”, in ra là : Hoc Tin Giao diện tự thiết kế cho phù hợp Giao diện: Code: Private Sub Command13_Click() Dim a As... mang(i) > mang(i + 1) And i < sopt - 1 i=i+1 Loop If i = sopt - 1 Then Text10_2 = " Mang giam dan " Else 17 Text10_2 = " Mang da nhap khong tang cung khong giam " End If End If End Sub Bài 11: Viết chương trình nhập vào một câu có không quá 50 ký tự giao diện tự thiết kế cho phù hợp a b Đếm xem trong câu có bao nhiêu ký tự là số Tính tổng các chữ số trong câu Giao diện: Code: Private Sub Command11_Click()... Sub VScroll1_Change() Text14 = VScroll1.Value End Sub Private Sub VScroll2_Change() Text14_1 = VScroll2.Value End Sub Private Sub VScroll3_Change() Text14_2 = VScroll3.Value End Sub Bài 15: Viết chương trình nhập vào 2 số nguyên a, b, Giao diện tự thiết kế cho phù hợp: 1 Tính tổng các số trong khoảng từ a tới b 2 Tính tổng các số lẻ trong khoảng từ a tới b 3 Tính tổng các số chẵn trong khoảng từ a tới