Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com - Định hướng Forum Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN
Kết nối: VNK X - VNK groups | Nhà Tài Trợ: BhnongFood X - Bhnong groups - Đặt mua Bánh Bhnong

Trả lời chủ đề

Nội dung: <blockquote data-quote="minhlebk" data-source="post: 73984" data-attributes="member: 1884">Chương trình thực hiện nhập và in mảng 2 chiều dạng ma trận (m dòng, n cột)1. NhậpĐể nhập các phần tử của mảng 2 chiều dạng ma trận, ta cần dùng các  lệnh sau của unit CRT (nhớ phải có khai báo user crt ở đầu chương  trình).GotoXY(a,b): di chuyển con trỏ màn hình đến vị trí (a,b) trên màn hình (cột a, dòng b). Màn hình có 80 cột và 25 dòng.GotoXY(a,b): di chuyển con trỏ màn hình đến vị trí (a,b) trên màn hình (cột a, dòng b). Màn hình có 80 cột và 25 dòng.whereX: hàm cho giá trị là vị trí cột của con trỏ màn hình.whereY: hàm cho giá trị là vị trí dòng của con trỏ màn hình.Khi nhập 1 phần tử ta dùng lệnh readln nên con trỏ màn hình sẽ xuống  dòng, do đó cần quay lại dòng của bằng lệnh GotoXY(j * 10, whereY -1 ),  nếu ta muốn mỗi phần tử của ma trận ứng với 10 cột màn hình.procedure nhap;var i,j : integer;beginclrscr;write('Nhap m,n =  ');readln(m,n);for i := 1 to m do beginfor j := 1 to n do beginwrite('A[',i,',',j,']=');readln(a[i,j]);gotoXY(j*10,whereY-1);end;writeln;end;end;2. InĐể in bảng dạng ma trận, với mỗi dòng ta sẽ in các phần tử trên 1 hàng rồi xuống dòng:procedure inbang;var i,j : integer;beginfor i := 1 to m do beginfor j := 1 to n dowrite(a[i,j]:6);writeln;end;end;Theo laptrinhvn</blockquote>

Tên

Mã xác nhận