Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Smartphone WIKO của Pháp chính thức xuất hiện tại Việt Nam

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tuyển thành viên nhóm Reviews diễn đàn

VN-Zoom & ASUS đón siêu phẩm,tăng tốc chuẩn bị ASUS Expo 2014
kết quả từ 1 tới 5 trên 5
  1. #1
    CrJsty's Avatar
    CrJsty vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Feb 2011
    Bài
    8
    Cảm ơn
    0
    Điểm
    5/4 bài viết
    VR power
    0

    Post Bài tập về mảng Pascal

    1)Nhập mảng 2 chiều A gồm M dòng và N cột các số nguyên. Số đứng ở dòng i cột j kí hiệu là A[i, j]. Bốn số A[i, j], A[i, j + 1], A[i + 1, j +1] và A[i + 1, j] gọi là một chu trình nếu chúng theo thứ tự trên lập thành dãy tăng hoặc dãy giảm.
    In ra màn hình:
    + Dòng đầu in số các chu trình của bảng A.
    + M dòng tiếp theo in bảng A sau khi đã sắp xếp sao cho số các chu trình lớn nhất có thể.
    + Dòng cuối in số chu trình của bảng A mới.
    2)Nhập mảng 1 chiều gồm n phần tử. Đổi chỗ các số hạng sao cho mảng trở thành mảng tăng dần và số lần đổi ít nhất.
    B1 k quá khó, nhưng b2 Khó phết các a ơi. Giup e nhé. Thanks

  2. #2
    qwejkl's Avatar
    qwejkl vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Feb 2009
    Bài
    12
    Cảm ơn
    4
    Điểm
    32/5 bài viết
    VR power
    0

    Default

    Bài làm của mình nè bạn(bài 2):

    Program bai2;
    var a:array[1..100] of shortint;
    n,i,j,imin:byte;
    atg:shortint;
    Begin
    write('Sap xep day n phan tu. Nhap n:'); readln(n);
    For i:=1 to n do
    begin
    write(a[',i:2']='); readln(a[i]);
    end;
    for j:=1 to n-1 do
    begin
    imin:=j;
    for i:=j+1 to n do
    if a[imin]>a[i] then imin:=i;
    atg:=a[j]; a[j]:=a[imin]; a[imin]:=atg;
    end;
    for i:=1 to n do writeln('a[',i:2,']=',a[i]:4);
    readln;
    end.

  3. #3
    CrJsty's Avatar
    CrJsty vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Feb 2011
    Bài
    8
    Cảm ơn
    0
    Điểm
    5/4 bài viết
    VR power
    0

    Default

    Đề bài là đổi chỗ sao cho sao cho số lần đổi ít nhất mà a.In ra số lần sđổi đó mà

  4. #4
    btn1995's Avatar
    btn1995 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2011
    Đến từ
    Đà Nẵng
    Bài
    292
    Cảm ơn
    217
    Điểm
    139/101 bài viết
    VR power
    0

    Default

    Ai vào chém đi cho em tham khảo với.

  5. #5
    noel_trang's Avatar
    noel_trang vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Apr 2008
    Đến từ
    Hà Nội
    Bài
    309
    Cảm ơn
    142
    Điểm
    311/105 bài viết
    VR power
    0

    Default

    Tại sao bạn ko dùng quicksort nhỉ?

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •