Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Các bài toán cơ bản về mảng hai chiều

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Các bài toán cơ bản về mảng hai chiều   16/11/2014, 15:20

Bài 1: Nhập vào 1 mảng 2 chiều gồm 3 dòng, 4 cột. In ra màn hình các số theo từng dòng và cột đã nhập.

Bài 2: Cho ma trận vuông A cấp 4, với phần tử nguyên thuộc đoạn từ 1..100. Tìm phần tử lớn nhất, phần tử nhỏ nhất.

Bài 3: Cho ma trận vuông A cấp n với phần tử nguyên thuộc đoạn từ 1..100.
a) Sắp xếp tăng dần với từng dòng
b) Sắp xếp giảm theo từng cột

Bài 4: Nhập ma trận vuông cấp n. Xuất ra màn hình ma trận chuyển vị (đổi dòng thành cột).

Bài 5: Cho ma trận vuông A cấp n với phần tử nguyên thuộc đoạn 1..100.
a) Tìm phần tử lớn nhất, phần tử nhỏ nhất.
b) In ra ma trận tam giác trên đường chéo chính.
c) In ra ma trận tam giác dưới đường chéo chính.
d) Sắp xếp tăng dần các phần tử đường chéo chính.
e) Tìm ma trận chuyển vị.

Bài 6: Sinh ngẫu nhiên dãy n số nguyên (n<2000).
a) Tìm phần tử nhỏ nhất và chỉ ra vị trí.
b) Tìm phần tử lớn thứ hai và chỉ ra vị trí
c) Tìm vị trí các dãy đoạn con dài nhất mà các phần tử là 0 (nếu có).

Bài 7: Cho một dãy gồm N số tự nhiên được sinh ngẫu nhiên có giá trị trong khoảng [1..100], các phần tử của dãy khác nhau từng đôi một và một số tự nhiên k được nhập từ bàn phím. Hãy tìm một dãy con dài nhất liên tiếp nhau sao cho tổng chia hết cho k. Cho biết độ dài và vị trí bắt đầu của dãy con tìm được.
Ví dụ: Với dãy số 1 3 4 2 7 ( N=5) và k =3
Kết quả: Độ dài của dãy con tìm được theo yêu cầu là 3, vị trí bắt đầu của dãy con tìm được là 2.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
anhtruong35



Posts : 6
Danh tiếng : 0
Join date : 16/11/2014

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 14:50

uses crt;
type mang=array[1..100,1..100]of integer;
var n,i,j:integer;
a:mang;
{************************}
procedure nhap(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{*************************}
procedure xuat(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
{*************************}
begin
clrscr;
writeln('ma tran tren duong cheo chinh');
write('nhap ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran ban dau la:');
xuat(a,n);
writeln('ma tran tren duong cheo chinh la:');
for i:=1 to n do
begin
for j:=1 to n do
if j>=i then write(a[i,j]:5)
else write(' ':5);
writeln;
writeln;
end;
readln
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
anhtruong35



Posts : 6
Danh tiếng : 0
Join date : 16/11/2014

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 14:51

uses crt;
type mang=array[1..100,1..100]of integer;
var n,i,j:integer;
a:mang;
{*********************}
procedure nhap(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{*********************}
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
{*********************}
begin
clrscr;
writeln('ma tran chuyen vi');
write('nhap so ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la:');
xuat(a,n);
writeln('ma tran sau khi doi la:');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:5);
writeln;
writeln;
end;
readln;
end
Về Đầu Trang Go down
Xem lý lịch thành viên
anhtruong35



Posts : 6
Danh tiếng : 0
Join date : 16/11/2014

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 14:52

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;i,j,n:integer;
{**************}
procedure nhap(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{**************}
procedure xuat(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
{**************}
begin
clrscr;
writeln('ma tran tren duong cheo phu');
write('nhap ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran ban dau la:');
xuat(a,n);
writeln('ma tran tren duong cheo phu la:');
for i:=1 to n do
begin
for j:=1 to n do
if j<i then write(a[i,j]:5)
else write(' ':5);
writeln;
writeln;
end;
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
uyen1245



Posts : 5
Danh tiếng : 0
Join date : 16/11/2014

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 14:59

1) ma trận trên đường chéo chính
uses crt;
type mang=array[1..20,1..20]of integer;
var n,i,j:integer;
a:mang;
procedure nhap(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
procedure xuat(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
begin
clrscr;
writeln('ma tran tren duong cheo chinh');
write('nhap ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran ban dau la:');
xuat(a,n);
writeln('ma tran tren duong cheo chinh la:');
for i:=1 to n do
begin
for j:=1 to n do
if j>=i then write(a[i,j]:5)
else write(' ':5);
writeln;
writeln;
end;
readln
end.


Được sửa bởi uyen1245 ngày 11/1/2015, 15:01; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 17

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 15:00

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;n,i,j:integer;
{****************}
procedure nhap(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
end;
{**************}
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end;
{***************}
begin
clrscr;
writeln('ma tran chuyen vi');
write('nhap so cap ma tran vuong:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la');
xuat(a,n);
writeln('ma tran chuyen vi la');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:3);
writeln;
writeln;
end;
readln;
end.

Về Đầu Trang Go down
Xem lý lịch thành viên
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 17

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 15:03

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;n,i,j:integer;
{*****************}
procedure nhap(var a:mang;n:integer);
         var i,j:integer;
         begin
              for i:=1 to n do
                  for j:=1 to n do
                      begin
                           write('a[',i,',',j,']=');readln(a[i,j]);
                      end;
         end;
{*****************}
procedure xuat(var a:mang;n:integer);
         var i,j:integer;
         begin
              for i:=1 to n do
                  begin
                       for j:=1 to n do
                       write(a[i,j]:3);
                       writeln;
                  end;
         end;
{********************}
begin
    clrscr;
    writeln('ma tran tren duong cheo chinh');
    write('nhap so cap ma tran vuong:');readln(n);
    nhap(a,n);
    writeln('ma tran dau tien la');
    xuat(a,n);
    writeln('ma tran tren duong cheo chinh la');
    for i:=1 to n do
        begin
for j:=1 to n do
             if j>=i then writeln(a[i,j]:3)
             else writeln(' ':3);
 writeln;
 writeln;
        end;
    readln;
end.


Được sửa bởi Nhọn Sky M-tp(Anh Vũ) ngày 11/1/2015, 15:11; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 17

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 15:04

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;n,i,j:integer;
{******************}
procedure nhap (var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
end;
{******************}
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end;
{*******************}
begin
clrscr;
writeln('ma tran tren duong cheo phu');
write('nhap so cap ma tran vuong:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la');
xuat(a,n);
writeln('ma tran tren duong cheo phu la');
for i:=1 to n do
begin
for j:=1 to n do
if j<=i then write(a[i,j]:3)
else write(' ':3);
writeln;
writeln;
end;
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
uyen1245



Posts : 5
Danh tiếng : 0
Join date : 16/11/2014

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 15:06

uses crt;
type mang=array[1..20,1..20]of integer;
var n,i,j:integer;
a:mang;
procedure nhap(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
begin
clrscr;
writeln('ma tran chuyen vi');
write('nhap so ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la:');xuat(a,n);
writeln('ma tran sau khi doi la:');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:5);
writeln;
writeln;
end;
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
huynhhan952@yahoo.com



Posts : 3
Danh tiếng : 0
Join date : 16/11/2014
Age : 17
Location : việt nam

Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   11/1/2015, 15:32

uses crt ;
type matran=array[1..100,1..100] of integer ;
var a:matran;
i,j,m,k,n,x : integer ;
{-----------------------}
procedure xmt (var t:matran;
n:integer );
var i,j : integer ;
begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:5);
writeln;
writeln;
end;
end;
{------------------------------------------------}
begin
write ('nhap a[',i,',',j,']:'); readln (a[i,j]);
writeln ('chay ma tran :;');readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write (' nhap a[',i,',',j,']:'); readln( a[i,j]);
end;
write (' ma tran bat dau :');
matran (n,a);
writeln;
writeln (' ma tran chuyen vi :');
for j:=1 to n do
begin
for i:=1 to n do
write a[i,j]:5);
writeln;
writeln;
readln
end.



Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Các bài toán cơ bản về mảng hai chiều   

Về Đầu Trang Go down
 
Các bài toán cơ bản về mảng hai chiều
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Mảng :: Mảng hai chiều-
Chuyển đến