Bài Tập Sắp Xếp Mảng 2 Chiều | Cộng đồng Học Sinh Việt Nam

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install bài tập sắp xếp mảng 2 chiều

• Thread starter wind_naruto
• Ngày gửi 8 Tháng bảy 2011
• Replies 1
• Views 7,039

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. W

wind_naruto

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Ai có bài tập liên quan đến sắp xếp mạng 2 chiều ko post lên mọi người cùng làm đi W

wind_naruto

lúc đi thi bí, mà thường là ko thể như lúc ở nhà mình chọn cách đơn giản nhất chuyển ma trận thành mảng rồi sặp xếp mạng, có thể dùng bubble sort(or shaker sort) hoặc quick sort rồi biến mảng trở thành matrix, rồi uốn nó kiểu j` cũng được -> thành hình xoán ốc hoặc ziczac ... đây là code: Mã: program bai2_de_12_vong1; uses crt; const nmax=20; var a:array[1..nmax,1..nmax]of integer; i,j,m,n,k:integer; b:array[1..nmax*nmax] of integer; fi:text; procedure enter; begin Assign(fi,'C:\FPC\2.4.2\bin\i386-win32\inp.txt'); reset(fi); Readln(fi,n,m); for i:=1 to n do begin for j:=1 to m do Read(fi,A[i,j]); Readln(fi); end; end; procedure swap(var a,b:integer); var tg:integer; begin tg:=a; a:=b; b:=tg; end; Procedure matrix2mang; var i,j:integer; begin k:=0; for i:=1 to n do for j:=1 to m do begin inc(k); b[k]:=A[i,j]; end; end; procedure sapxep; begin for i:=1 to k-1 do for j:=k downto i+1 do if b[j-1]>b[j] then swap(b[j],b[j-1]); end; procedure mang2matrix; begin k:=0; for i:=1 to n do for j:=1 to m do begin inc(k); a[i,j]:=b[k]; end; end; procedure xuat; begin for i:=1 to n do begin for j:=1 to m do Write(a[i,j],' '); Writeln; end; end; Begin clrscr; enter; matrix2mang; sapxep; mang2matrix; xuat; close(fi); readln; end. Cảm ơn bạn, bạn có thể góp tiếp You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.