Tập 3 mảng 2 chiều + struct

... Bài tập mảng 2 chiều Bài 1: Viết CT nhập vào một ma trận vuông, tính và in ra màn hình tổng của đường chéo chính của ma trận đó. Ví dụ 1 2 3 4 2 8 6 4 -1 4 -9 1 5 3 2 0 Tổng là 1+8 +( -9 )+0 = ... 1+8 +( -9 )+0 = 0 Bài 2: Viết CT nhập vào một ma trận, tìm và in ra số lớn nhất trên mỗi dòng của ma trận. Bài 3: Viết CT nhập vào 1 mảng 2 chiều, sau đó xóa 1 d...

Ngày tải lên: 14/01/2014, 23:12

... 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 64 72 80 9 18 27 ... 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 6...

Ngày tải lên: 23/07/2013, 01:26

... Nhap; ____________________ ThuËt to¸n vÒ m¶ng 2 chiÒu 22 47 16 41 10 35 4 5 23 48 17 42 11 29 30 6 24 49 18 36 12 13 31 7 25 43 19 37 38 14 32 1 26 44 20 21 39 8 33 2 27 45 46 15 40 9 34 3 28 Bài 7: Cho ma trận số ... Clrscr; Until (dem=4) or (Readkey= #27 ); END. Bài 18: {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+} {$M 1 638 4,0,65 536 0} Uses crt;...

Ngày tải lên: 29/09/2013, 12:10

... write('Nhap b[',j,']:');readln(b[j]); end; a[n+1]: = 32 001; b[m+1]: = 32 001; i:=1;j:=1; for k:=1 to m+n do begin if a<b[j] then begin c[k]:=a;inc(i);end else begin ... Chủ Đề: Một số bài tập Pascal về mảng một chiều Đề bài: Nhập vào một mảng gồm n số nguyên và số nguyên k. TÌm và đưa ra màn hình: a.Giá trị lớn nhất của mảng, vị trí lớn nhất đó b....

Ngày tải lên: 08/10/2013, 21:56

... vào vị trí k trong mảng A, N phần tử. Xoá phần tử ở vị trí h trong mảng A. Ví dụ: A : 12 2 3 6 5 17 X = 20 , k = 3 h = 2 Kết quả chèn: 12 2 3 20 6 5 17 Kết quả xoá: 12 2 20 6 5 17 Hướng dẫn: - ... Readln; END. Mở rộng: + Tìm kiếm các cặp 2 phần tử gần nhau có tổng chia hết cho 10. Thay thế các phần tử đó bằng tổng của chúng. Ví dụ: A: 1 19 62 7 8 32 12 Ket qua...

Ngày tải lên: 10/10/2013, 15:11

... 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 2 2 4 4 6 6 8 8 10 10 12 12 14 14 16 16 18 18 20 20 3 3 6 6 9 9 12 12 15 15 18 18 21 21 24 24 27 27 30 30 4 4 8 8 12 12 16 16 20 20 24 24 28 28 32 32 36 36 40 40 5 5 10 10 15 15 20 20 25 25 30 30 35 35 40 40 45 45 50 50 6 6 12 12 18 18 24 24 30 30 36 36 42 42 48 48 54 54 60 60 7 7 14 14...

Ngày tải lên: 14/10/2013, 22:11

... 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 12 24 32 40 48 56 68 72 9 ... ); readln(A[i,j]); end; Các bước: Thể hiện bằng pascal a. Nhập mảng hai chiều A 1 2 3 4 1 2 3 7 935 38 29 6741 b. In mảng hai chiều W...

Ngày tải lên: 28/11/2013, 09:11

... 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 12 24 32 40 48 56 68 72 9 ... ); readln(A[i,j]); end; Các bước: Thể hiện bằng pascal a. Nhập mảng hai chiều A 1 2 3 4 1 2 3 7 935 38 29 6741 b. In mảng hai chiều W...

Ngày tải lên: 28/11/2013, 09:11

... 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 12 24 32 40 48 56 68 72 9 ... ); readln(A[i,j]); end; Các bước: Thể hiện bằng pascal a. Nhập mảng hai chiều A 1 2 3 4 1 2 3 7 935 38 29 6741 b. In mảng hai chiều W...

Ngày tải lên: 28/11/2013, 09:11

... tr nghiệp rị ngu p vừa uồn nh a và n , Thán hân l nhỏ T ng năm . lực ch ập 3 P ho do Phần anh n 2

Ngày tải lên: 15/12/2013, 03:15