... a[], int n, int ViTri) { int dem = 1; for (int i = ViTri + 1; i < n; i++) { if (a[i] == a[ViTri]) { dem++; } } return dem; } void LietKeCacGiaTriXuatHienDung1Lan(int a[], int n) { for (int i = ... KiemTraBiTrung(int a[], int n, int ViTri) { for (int i = ViTri - 1; i >= 0; i ) { if (a[i] == a[ViTri]) { return 0; // bị trùng } } return 1; // không bị trùng } // Đếm xem từ vị trí trở sau có phần ... i++) { int CheckTrung = KiemTraBiTrung(a, n, i); if (CheckTrung == 1) { int dem = DemSoLuongPhanTuTrung(a, n, i); if(dem == 1) { printf("\nCac phan tu xuat hien dung lan la %d", a[i]); } } }...
... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhậpmả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 ... 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 ... 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 ...
... 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 ... 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 ... 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...
... Inc(i); A[i] := A [1] ; For j := i -1 downto (N +1) A[j] := A[i-j +1] ; Until doiguong (1, i) or (i=2*N +1) ; End; Procedure Tim2; Var k,j : Integer; Begin k := 1; _ Thuật toán mảngchiều While (not ... (p-Random (10 000)) *1. 12345678 912 34567E 11; Writeln(F,p); End; Close(F); End; BEGIN Clrscr; Test; Tim; Readln END _ Thuật toán mảngchiều Bài 16 : {$N+}{$E+} Uses crt; Const Max = 500; Type Ta = Array [1 ... sinh giỏi khối 10 Hà Tây 4 /19 97 hệ PTTH chuyên ban ) : Nhập từ bàn phím số nguyên dơng N a) Khi N< =10 , nhập phần tử mảng A(N) từ bàn phím b) Khi N >10 , nhập ngẫu nhiên phần tử mảng ...
... Khai báo mảng A, N phần tử Nhập / Xuấtmảng A với N phần tử (lưu ý, phải có định nghĩa hàm nhập /xuất mảng) Hai hàm sử dụng kết toán 3 .1 - Nhập giá trị X cần đếm số xuất - In số lần xuất X A ... xuất nhiều mảng Bài toán số 3.3: Tìm kiếm thay Tìm kiếm vị trí xuất x mảng A Thay giá trị Ai x thành y Ví dụ: A: 5 1 X=5 Y =15 Kết quả: Vi tri xuat hien X la Ket qua thay the: 15 15 15 1 Hướng dẫn: ... (A[i -1] +A[i]); A[i -1] := k; A[i] := k; End; End; Bài toán số 3.4: Kiểm tra mảng có đối xứng hay không? Kiểm tra mảng có tăng dần hay không? Mảng đối xứng mảng có phần tử Ai = AN-i -1 Nếu mảng mảng...
... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhậpmả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 ... 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 ... 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 ...
... 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; ... TRƯỜNG ĐHSP HUẾ KHOA TIN HỌC Vấn đề đặt là: Nhập vào nhiệt độ (trung bình) ngày tuần Tính đưa hình nhiệt độ trung bình tuần số ngày tuần có ... 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:...
... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhậpmả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 ... 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 ... 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 ...
... longint; 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); ... 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...
... (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 ... return -1; } 14 8/ Tìm số nguyên tố cuối mảngchiều số nguyên Nếu mảng ko có số nguyên tố trả giá trị -1 int nguyentocuoi(int a[],int n) { for(int i=n -1; i>=0; i ) { if(intto(a[i])= =1) { return ... return -1; } 14 9/ Tìm số hòan thiện cuối mảngchiều số nguyên Nếu mảng ko có số hòan thiện hàm trả giá trị -1 int hoanthiencuoi(int a[],int n) { for(int i=n -1; i>=0; i ) { if(sohoanthien(a[i])= =1) ...
... tử mảng int a[4] = {0}; 0 a 0 0 0 Tự động xác định số lượng phần tử int a[] = {2 912 , 17 06, 15 06, 19 04}; a 2 912 17 06 15 06 19 04 2 912 17 06 15 06 19 04 NMLT - Mảngchiều 10 VC VC & & BB BB Truy xuất ... 15 06 19 04 2 912 17 06 15 06 19 04 a Khởi tạo giá trị cho số phần tử đầu mảng int a[4] = {2 912 , 17 06}; a 2 912 17 06 2 912 17 06 0 0 NMLT - Mảngchiều VC VC & & BB BB Khởi tạo giá trị cho mảng lúc khai ... int b [10 ][20]; NMLT - Mảngchiều VC VC & & BB BB Khởi tạo giá trị cho mảng lúc khai báo Gồm cách sau Khởi tạo giá trị cho phần tử mảng int a[4] = {2 912 , 17 06, 15 06, 19 04}; 2 912 17 06 15 06 19 04...
... 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ềuNhậpmảngchiều Xử lí mảng ... 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 vùng tìm kiếm ... lớn lớn rồi! Nhập n dãy a1, ,an; Write( Nhap vao so luong phan tu:); Readln(n); For i: =1 to n begin write( Phan tu thu ,i, = ); readln(a[i]) end; Max a1 ; i 1; Max:=a [1] ; csmax: =1; Nếu i>N...
... array [1 100] of real; Các thao tác xử lí mảngchiều a Nhậpmả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 ... 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 ... 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 ...
... (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 ... return -1; } 14 8/ Tìm số nguyên tố cuối mảngchiều số nguyên Nếu mảng ko có số nguyên tố trả giá trị -1 int nguyentocuoi(int a[],int n) { for(int i=n -1; i>=0; i ) { if(intto(a[i])= =1) { return ... return -1; } 14 9/ Tìm số hòan thiện cuối mảngchiều số nguyên Nếu mảng ko có số hòan thiện hàm trả giá trị -1 int hoanthiencuoi(int a[],int n) { for(int i=n -1; i>=0; i ) { if(sohoanthien(a[i])= =1) ...