... tìm, hết mảng Tìm kiếm tuyến tính Minh họa tìm x =10 10 Đã tìm thấy Chưa hết 12 41 10 10 32 13 15 3 v mảng trí 10 Minh họa tìm x =25 25 Chưa hết mảng Đã hết mảng 12 41 10 32 13 15 3 10 Giải ... hành để định phạm vi tìm 14 Minh họa tìm x = 41 x x x 14 16 19 22 41 46 51 63 71 10 l m m Tìm thấy x vị trí r m 15 Minh họa tìm x = 45 x x x x 14 16 19 22 41 46 51 63 71 10 l m m r l > r: Kết thúc: ... x = 25 25 12 41 10 32 13 15 25 25 10 11 11 Cài đặt int LinearSearch2(int a[],int N,int x) { int i=0; a[N] = x; // thêm phần tử x sau mảng while (a[i]!=x ) i++; if (i==N) return -1; // tìm hết mảng ...
... trí 1) 10 15 11 i j Đổi chổ trực tiếp – interchange sort Bước 1: Xét phần tử (tại vị trí 1) 10 2 15 12 i j Đổi chổ trực tiếp – interchange sort Bước 1: Xét phần tử (tại vị trí 1) 10 2 15 13 i ... 2: Xét phần tử thứ hai (tại vị trí 2) 1 10 15 16 i j Đổi chổ trực tiếp – interchange sort Bước 2: Xét phần tử thứ hai (tại vị trí 2) 1 10 15 17 i j Đổi chổ trực tiếp – interchange sort Bước 2: ... 2) 1 10 15 18 i j Đổi chổ trực tiếp – interchange sort Bước 2: Xét phần tử thứ hai (tại vị trí 2) 1 10 15 19 i j Đổi chổ trực tiếp – interchange sort Bước 2: Xét phần tử thứ hai (tại vị trí 2) ...
... tử mảng chia hết cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảngchiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ... For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1+1+1+1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảngchiều A: Array [1 366] of integer; i,n,dem: integer; S,TB ... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhập mảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n) Nhập vào giá trị phần tử mảng...
... HIỆN BẰNG PASCAL B1 Nhập N dãy a1…aN; Write(‘nhap so luong phan tu cua mang:’); Readln(N); For i: =1 to N Begin Write(‘phan tu thu’,i); Readln(a[i]); End; B2 Max← a [1] , i 1; Max:=a [1] ; B3 Nếu i>N ... KIỂM TRA BÀI CŨ Phát biểu khái niệm mảng chiều, cú pháp khai báo mảng, cách thức để tham chiếu đến phần tử mảng? MÔN TIN HỌC Tiết 21 : MỘT SỐ VÍ DỤ bµi to¸n t×m max, bµi to¸n s¾p xÕp ... max: ̀ Đầu tiên mảng tri ̣ của phầ n tử thứ nhấ t cho B1: Nhậpgán giá A cho trước; (n phần tử) biế n max, tiế p theo lầ n lươ ̣t so sánh giá tri ̣ B2: max A1, i 1; của max với...
... vị trí k mảng A, N phần tử Xoá phần tử vị trí h mảng A Ví dụ: A : 12 X = 20 , 17 k=3 h =2 Kết chèn: 12 Kết xoá: 20 12 20 5 17 17 Hướng dẫn: Viết thủ tục chèn phần tử X vào vị trí k cho mảng A (có ... chúng Ví dụ: A: 19 62 32 12 Ket qua: 20 20 62 40 40 12 Procedure ThayTheBangTong(Var A:Mang20; N:Integer; X, Y:Integer); Var i,k:Integer; Begin For i:=0 to N If( (A[i -1] +A[i]) mod 10 = 0) then Begin ... Kiểm tra mảng A chuỗi cấp số cộng có công sai k = 5? Ví dụ: 11 16 21 26 31 Function KtraMangCapSoCong (A:Mang20; N:Integer; k:Integer):Boolean; Var flag :boolean; i :Integer; Begin for i: =1 to N...
... tử mảng chia hết cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảngchiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ... For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1+1+1+1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảngchiều A: Array [1 366] of integer; i,n,dem: integer; S,TB ... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhập mảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n) Nhập vào giá trị phần tử mảng...
... TRƯỜNG ĐHSP HUẾ KHOA TIN HỌC Input: t1, t2, t3, t4, t5, t6, t7 Output: tb, dem *Giải thuật: - Nhập vào nhiệt độ ngày tuần (t1, t2, t3, t4, t5, t6, t7) - tb:= (t1 + t2 + t3 + t4 + t5 + t6 + t7)/7; - ... dem:= 0; - Kiểm tra nhiệt độ ngày có lớn nhiệt độ tb hay không? Nếu tăng biến đếm lên: dem:= dem +1; - Đưa kết hình SVTH: Nguyễn Thị Tú Lớp: Tin 4A TRƯỜNG ĐHSP HUẾ KHOA TIN HỌC Chương trình: SVTH:...
... tử mảng chia hết cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảngchiều dùng câu lệnh FOR DO Ghi nhớ! 15 20 19 25 18 12 16 ... For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1+1+1+1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảngchiều A: Array [1 366] of integer; i,n,dem: integer; S,TB ... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhập mảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n) Nhập vào giá trị phần tử mảng...
... a:array [1 100] of longint; st:string; function DOIXUNG(s:string):boolean; var s1:string; i,m,n,kt1,kt2:integer; begin s1:=''; for i:= length(s) downto s1:=s1+s[i]; val(s1,m,kt1);val(s,n,kt2); if ... n nguyên tố tơng đơng với n 11 / Tìm số nhỏ 10 000 ớc nguyên tố khác 3,7 ,11 13 / Đọc tất sô gần nguyên tố lớn nhỏ N (n
... for (int i = 0; i < len; i++) if (a == x) return i; return -1; } static bool xoaPhanTuX(int x) { int vt = timPhanTuX(x); if (vt == -1) return false; else { for (int i = vt; i < len; i++) a = a; ... == x) return true; return false; } static int timPhanTuLonNhat() { int max = a[0]; for (int i = 1; i < len; i++) if (max < a) max = a; return max; } static void XoaCacPhanTuLonNhat() { int max ... int.Parse(Console.ReadLine()); Random r = new Random(); for (int i = 0; i < len; i++) a = r.Next (10 ); } static void xuatMang() { for (int i = 0; i < len; i++) Console.Write("\t{0}", a); } static...
... (sochinhphuong(*(A+i))= =1) { return *(A+i ); } } return -1; } 16 4/ Cho mảng số ng Hãy tìm giá trị thỏa tính chất số gánh (ví dụ: 12 3 21 ) int soganh(int n) { int t=n; int dv,dn=0 ; while (t!=0) { dv=t% 10 ; dn=dn *10 +dv; ... 0; } 16 6/ tìm giá trị mảng có dạng 2^ k ko có trả int dang2k(int n) { int du; if (n= =1) { return 1; } { du = n % ; if (du != 0) { return 0; } n = n /2; } while (n> =2) ; return 1; } int bai166(int ... (i=i +1; i0)&&(mi n>a[i ])) { = a[i ]; } } return min; } return -1; } 14 1/ Hãy tìm vị trí dương nhỏ mảngchiều số thực mảng ko có giá trị dương trả giá trị đoạn [0,n -1] -1 nhằm...
... 2: Tìm kiếm nhị phân Với k = 21 dãy A gồm 10 số hạng sau: A 21 22 30 31 33 i 10 Lượt thứ nhất: agiữa a5 = 9; < 21 vùng tìm kiếm thu hẹp phạm vi từ a6 a10; Lượt thứ hai: agiữa a8 = 30; 30 > 21 ... j -1 If A[i]>A[i +1] Then begin Tg := A[i]; A[i]:=A[i +1] ; A[i +1] :=Tg; end; Writeln( Day so duoc sap xep ); For i: =1 to n Write(A[i]:5); Readln; END Khai báo mảngchiều Nhập mảngchiều Xử lí mảng ... : Phan tu thu = Phan tu thu = Phan tu thu = 15 Phan tu thu = 25 Phan tu thu = 18 Phan tu thu = 12 Phan tu thu = 19 20 16 Gia tri cua phan tu Max : 25 Chi so cua phan tu Max : Bài Nhập vào dãy...
... tử mảng chia hết cho S :=0; For i : =1 to n IF A[i] mod = then S:=S+A[i]; 15 20 16 25 18 12 19 S = 45 Thông thường, thao tác xử lí mảngchiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ... For i : =1 to n IF A[i]>TB then dem:=dem +1; i A[i] Dem=0 17 20 18 21 19 17 19 +1+1+1+1 TB = 18 .7 Program vd1; Uses crt; Var Khai báo mảngchiều A: Array [1 366] of integer; i,n,dem: integer; S,TB ... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhập mảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 Các bước 20 18 19 21 17 19 n với n = Nhập số phần tử mảng (n) Nhập vào giá trị phần tử mảng...
... k>j; k ) { a[k] = a[k -1] ; } a[j] = temp; break; } } } } 26 8/ Hãy tạo mảng b từ mảng a giá trị 0 ,1 để mảng có tính chẵn lẻ 26 9/ Thêm x vào mảng tăng giữ nguyên tính tăng mảng voi d ChenXMang ... i0; i ) { a[i]=a[i -1] ; } a[0]= tam; } 28 8/Hãy ... int b [10 0], nb=0; for (i nt i =0; i
... (sochinhphuong(*(A+i))= =1) { return *(A+i ); } } return -1; } 16 4/ Cho mảng số ng Hãy tìm giá trị thỏa tính chất số gánh (ví dụ: 12 3 21 ) int soganh(int n) { int t=n; int dv,dn=0 ; while (t!=0) { dv=t% 10 ; dn=dn *10 +dv; ... 0; } 16 6/ tìm giá trị mảng có dạng 2^ k ko có trả int dang2k(int n) { int du; if (n= =1) { return 1; } { du = n % ; if (du != 0) { return 0; } n = n /2; } while (n> =2) ; return 1; } int bai166(int ... (i=i +1; i0)&&(mi n>a[i ])) { = a[i ]; } } return min; } return -1; } 14 1/ Hãy tìm vị trí dương nhỏ mảngchiều số thực mảng ko có giá trị dương trả giá trị đoạn [0,n -1] -1 nhằm...
... Tìm hiểu cách sử dụng lệnh kiểu liệu mảngchiều qua chương trình có sẵn • • • • • • • • • • Program sum1; Uses crt; Const nmax =10 0; Type Myarray=array [1 nmax] of integer; Var A:Myarray; s,n,k,i:integer; ... đếm số phần tử âm mảng • Posi:=0;neg:=0; • If a[i]>0 then Posi:=Posi +1 • else if a[i]