1. THÔNG BÁO TUYỂN ADMIN DIỄN ĐÀN 2013
    Tìm kiếm nhà trọ - Ở ghép
    THÔNG BÁO BÁN ÁO SPKT.NET CHO THÀNH VIÊN DIỄN ĐÀN


    HÃY TÌM KIẾM Ở ĐÂY TRƯỚC KHI ĐẶT CÂU HỎI
    {xen:phrase loading}

Thảo luận đề thi cuối kì Tin đại cương 21/6/2010

Thảo luận trong 'Thảo luận đề thi' bắt đầu bởi nath, 21 Tháng sáu 2010.

  1. nath New Member

    Số bài viết: 71
    Đã được thích: 0
    Điểm thành tích: 0
    Câu 1:
    Mã:
    Private sub swap(byval a as integer, b as integer)
     Dim tmp as integer
      tmp=a
      a=b
      b=tmp
    end sub
    Private sub prog()
    dim a(1 to 6) as integer
    'Nhập các phần tử của mảng a là {3,6,5,7,8,2}
    For i=1 to 5
        For j=i+1 to 6
             if a(i)>a(j) then
                 call swap(a(i),a(i+1))
             end if
       next j
    next i
    'xuất mảng a
    End Sub
    
    Chạy từng bước khi prog được gọi và cho biết mảng a khi xuất kết quả

    Câu 2:
    Viết chương trình giải quyết bài toán sau: Nhập vào 1 mảng A(n) một chiều gồm n phần tử từ bàn phím. Xuất ra trên màn hình 2 mảng:
    A1(n-1) gồm các phần tử là ước chung lớn nhất của các phần tử liền kề nhau trong A;
    A2(n-1) gồm các phần tử là bội số chung nhỏ nhất của các phần tử liên tiếp nhau trong A.

    Câu 3: câu 21 phần thuật toán ( P179) trong sách
  2. vanbinh_21 <marquee><b><i>--- waiting for you... mãi chờ em..

    Số bài viết: 2,077
    Đã được thích: 52
    Điểm thành tích: 48
    Re: Đề thi cuối kì Tin đại cương 21/6/2010

    câu 1 chạy tay ha?
    làm trên giấy hay máy vậy bạn?
  3. nath New Member

    Số bài viết: 71
    Đã được thích: 0
    Điểm thành tích: 0
    Re: Đề thi cuối kì Tin đại cương 21/6/2010

    uhm , chạy tay , làm ra giấy hết đấy
    kq a={3,3,3,3,3,3}
  4. Le Quang Active Member

    Số bài viết: 1,091
    Đã được thích: 7
    Điểm thành tích: 38
    Re: Đề thi cuối kì Tin đại cương 21/6/2010

    Mình hổng có sách nhập môn tin học nên bạn nào có thể đánh máy câu này lên giùm mình được hum? Thanks :D
  5. na_37 New Member

    Số bài viết: 14
    Đã được thích: 0
    Điểm thành tích: 0
    Re: Đề thi cuối kì Tin đại cương 21/6/2010

    bạn nào có đáp an post lên dùm nhé.thanks nhiều
  6. vanbinh_21 <marquee><b><i>--- waiting for you... mãi chờ em..

    Số bài viết: 2,077
    Đã được thích: 52
    Điểm thành tích: 48
  7. nhokalone New Member

    Số bài viết: 134
    Đã được thích: 1
    Điểm thành tích: 0
    Câu 1:
    Mã:
    Private sub swap(byval a as integer, b as integer)
     Dim tmp as integer
      tmp=a
      a=b
      b=tmp
    end sub
    Private sub prog()
    dim a(1 to 6) as integer
    'Nhập các phần tử của mảng a là {3,6,5,7,8,2}
    For i=1 to 5
        For j=i+1 to 6
             if a(i)>a(j) then
                 call swap(a(i),a(j))
             end if
       next j
    next i
    'xuất mảng a
    End Sub
    
    Chạy từng bước khi prog được gọi và cho biết mảng a khi xuất kết quả

    Giải:
    sub swap() : đây là sub giúp hoán đổi giá trị 2 phần tử của mảng a().
    sub prog(): sắp xếp các phần tử của mảng theo thứ tự tăng dần

    kết quả : a{2,3,5,6,7,8}
  8. onimusha_1491 New Member

    Số bài viết: 51
    Đã được thích: 0
    Điểm thành tích: 0
  9. Y4gamiLight Moderator

    Số bài viết: 245
    Đã được thích: 0
    Điểm thành tích: 0
    giải có nhiu đó na trùi sao thấy nguy hiểm thế
  10. Y4gamiLight Moderator

    Số bài viết: 245
    Đã được thích: 0
    Điểm thành tích: 0
    đáp án câu 3
    Private Sub CmdEnd_Click()
    End
    End Sub

    Private Sub CmdTongatoib_Click()
    Dim i As Long, s As Long
    For i = Val(Txt1) To Val(Txt2)
    s = s + i
    Next
    TxtKq = s
    End Sub

    Private Sub CmdTongchanatoib_Click()
    Dim i As Integer, s As Long
    For i = Val(Txt1) To Val(Txt2)
    If i Mod 2 = 0 Then s = s + i
    Next
    TxtKq = s

    End Sub

    Private Sub CmdTongleatoib_Click()
    Dim i As Integer, s As Long
    For i = Val(Txt1) To Val(Txt2)
    If i Mod 2 <> 0 Then s = s + i
    Next
    TxtKq = s
    End Sub

    Private Sub Txt1_Change()
    VSB1 = Val(Txt1)
    End Sub

    Private Sub Txt2_Change()
    VSB2 = Val(Txt2)
    End Sub

    Private Sub VSB1_Change()
    Txt1 = VSB1
    End Sub

    Private Sub VSB2_Change()
    Txt2 = VSB2
    End Sub
  11. nath New Member

    Số bài viết: 71
    Đã được thích: 0
    Điểm thành tích: 0
    Sub Swap(): Là hàm san bằng ( cái này do mình gọi :">) các bạn chú ý tới thằng byval a as integer, b as integer <~ cái này các bạn gặp mặt trực tiếp mình mới giải thích đc /:) chứ trên đây giải thích khó lắm. Đại khái là cái hàm Swap này có tác dụng là làm biến b lấy vào bằng với biến a đưa vào. VD: cho a=3 b=5 chạy hàm swap(a,b) => a=3 b=3
    Sub Prog(): Hàm này không có tác dụng sắp xếp phần tử thông thường, mà nó sẽ lần lượt gọi hàm swap() cho đến khi san bằng hết cái mảng A.

    Túm lại: Khi vào bài thi các bạn sẽ ghi thế này

    i=1 => a={3,3,5,7,8,2}
    i=2 => a={3,3,3,7,8,2}
    i=3 => a={3,3,3,3,8,2}
    i=4 => a={3,3,3,3,3,2}
    i=5 => a={3,3,3,3,3,3}

    kết quả: a={3,3,3,3,3,3}

  12. nhokalone New Member

    Số bài viết: 134
    Đã được thích: 1
    Điểm thành tích: 0
    đúng rùi,nãy nhìn nhầm đề.
  13. FX~FIT New Member

    Số bài viết: 32
    Đã được thích: 0
    Điểm thành tích: 0

Chia sẻ trang này