... 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 Mảngchiều ... ] of ; Ví dụ: Var nhietdo : array [1 365] of integer; Var A,B : array [1 100] of real; Cc thao t c xử lí mảngchiều a Nhậpmảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 ... kh c * Đếm phần tử mảng thoả mãn điều kiện cho trư c Ví dụ: Đếm số ngày c nhiệt độ cao dem :=0; nhiệt độ TB tuần 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...
... 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 tấ t cả ca c phầ ... 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 SỞ GIÁO D C VÀ ĐÀO ... T c Chương trình Sắp xếp a Khái niệm b Thuật toán c Chương trình Max F T F F THUẬT TOÁN THỂ 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...
... mảngchiều Procedure QuickSort; Var s,D ,C, i,j : Word; coc,x : Integer; dP,cP : Array[Chiso] of Chiso; Begin s: =1; dP[s]: =1; cP[s]:=Max; Repeat D:=dP[s]; { Chỉ số đầu phân hoạch thứ s } C: =cP[s]; ... + C ch : Mảng A c kích th c : Sizeof(A) Byte + C ch : Kích th cMảng = Kích th c phần tử * Số lợng phần tử VII / Vấn đề mảng tự điển : Trong số tập , vi c tổ ch cmảng nh để làm vi c với ... bạn c chuỗi hạt cha bị c t c t chuỗi hạt , trải thẳng sau chọn hạt màu hạt từ đầu bị c t gặp hạt kh c màu Hãy x c định điểm c t để số lợng hạt đ c chọn lớn trờng hợp + Chuỗi hạt hạt trắng nh chuỗi...
... tra mảng A chuỗi c p số c ng cc 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 if(A[i] ... 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 N phần tử) Ý tưởng thuật toán: + Dịch chuyển phần ... XuatMang 1C( A, N); ThayTheTatCa(A, N, x, y); Writeln('Ket qua thay the tat ca la:',x, y); XuatMang 1C( A, N); Readln; END Mở rộng: + Tìm kiếm c p phần tử gần c tổng chia hết cho 10 Thay phần tử tổng chúng...
... 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 Mảngchiều ... ] of ; Ví dụ: Var nhietdo : array [1 365] of integer; Var A,B : array [1 100] of real; Cc thao t c xử lí mảngchiều a Nhậpmảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 ... kh c * Đếm phần tử mảng thoả mãn điều kiện cho trư c Ví dụ: Đếm số ngày c nhiệt độ cao dem :=0; nhiệt độ TB tuần 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...
... Đ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 nhiệt độ cao nhiệt độ trung bình tuần Hãy x c định Input, Output ... 4A 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 + ... - 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: Nguyễn...
... 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 Mảngchiều ... ] of ; Ví dụ: Var nhietdo : array [1 365] of integer; Var A,B : array [1 100] of real; Cc thao t c xử lí mảngchiều a Nhậpmảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 ... kh c * Đếm phần tử mảng thoả mãn điều kiện cho trư c Ví dụ: Đếm số ngày c nhiệt độ cao dem :=0; nhiệt độ TB tuần 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...
... timTatCaCacVTLN, xoaTatCaPhanTuX, xoaSoAm, thayThePhanTu, chenXCoVTBatKy, Thoat } static void ThucDon() { nhapNgauNhien(); xuatMang(); while (true) { int x, y, vt; Console.WriteLine("\n"); Console.WriteLine("Chon ... (int)LietKe.timPhanTuLonNhat: Console.WriteLine("Phan tu lon nhat cua mang:{0}", timPhanTuLonNhat()); break; case (int)LietKe.XoaCacPhanTuLonNhat: Console.WriteLine("Mang sau xoa cac phan tu lon nhat!"); XoaCacPhanTuLonNhat(); ... break; case (int)LietKe.xoaTatCaPhanTuX: Console.WriteLine("Nhap vao phan tu x can xoa:"); x = int.Parse(Console.ReadLine()); xoaTatCaPhanTuX(x); Console.WriteLine("Mang sau xoa tat ca cac phan...
... nhỏ 18 8 Liệt kê vị trí chẵn lớn 18 9 Liệt kê giá trị mà giá trị c chữ số chữ số lẻ 19 0 Liệt kê giá trị tòan chữ số lẻ 19 1 Liệt kê giá trị cc đại Cc đại lớn ptử lận c n 19 2 Liệt kê giá trị c chữ ... if (daule(A[i])= =1) { s = s + A[i]; } } return s; } 203/ Tổng ptử c chữ số hàng ch c int hangchuc5(int n) { n = abs(n); n=n /10 ; int hangchuc=n% 10 ; if (hangchuc == 5) { return 1; } return 0; } ... chữ số chẵn 19 3 Liệt kê giá trị c dạng 3^k Nếu mảng ko c trả 19 4 Liệt kê c p giá trị gần 19 5 Liệt kê giá trị (a,b ,c) thỏa a=b +c ví dụ: (6,2,4) 19 6 Liệt kê số âm 19 7 Liệt kê chữ số đầu lẻ 19 8 Liệt...
... = {2 912 , 17 06, 15 06, 19 04}; 2 912 17 06 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 & & ... Mảngchiều 43 VC VC & & BB BB Bài tập th c hành Cc thao t cnhậpxuất a Nhậpmảng b XuấtmảngCc thao t c kiểm tra a Mảngc phải mảng toàn chẵn b Mảngc phải mảng toàn số nguyên tố cMảngc ... 19 04 2 912 17 06 15 06 19 04 NMLT - Mảngchiều 10 VC VC & & BB BB Truy xuất đến phần tử Thông qua số [][]…[] Ví dụ Cho mảng sau int a[4]; Cc truy xuất...
... i:= to 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ớn dãy c có trọng lượngđượcnhất không giảm chìm xuống đáy 1 Số phần tử lượt duyệt (j) giảm từ n xuống hai phần tử Cc em cho For j := n downto biết Pascal nhận xét For i := to j -1 Tại thể ... then writeln(Chi so tim duoc: ,i) else writeln(Khong tim thay); C ch 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...
... 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 Mảngchiều ... ] of ; Ví dụ: Var nhietdo : array [1 365] of integer; Var A,B : array [1 100] of real; Cc thao t c xử lí mảngchiều a Nhậpmảngchiều Ví dụ: Nhập nhiệt độ n ngày A 17 ... kh c * Đếm phần tử mảng thoả mãn điều kiện cho trư c Ví dụ: Đếm số ngày c nhiệt độ cao dem :=0; nhiệt độ TB tuần 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...
... Cc đại lớn ptử lận c n 19 2 Liệt kê giá trị c chữ số chẵn 19 3 Liệt kê giá trị c dạng 3^k Nếu mảng ko c trả 19 4 Liệt kê c p giá trị gần 19 5 Liệt kê giá trị (a,b ,c) thỏa a=b +c ví dụ: (6,2,4) 19 6 ... 18 7 Liệt kê vị trí mà giá trị giá trị dương nhỏ 18 8 Liệt kê vị trí chẵn lớn 18 9 Liệt kê giá trị mà giá trị c chữ số chữ số lẻ 19 0 Liệt kê giá trị tòan chữ số lẻ 19 1 Liệt kê giá trị cc đại Cc ... s + A[i]; } } return s; } 203/ Tổng ptử c chữ số hàng ch c int hangchuc5(int n) { n = abs(n); n=n /10 ; int hangchuc=n% 10 ; if (hangchuc == 5) { return 1; } return 0; } int tong(int A[], int n)...
... Bài 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 ... tử c số nhỏ • • • • • • • • • • • Chương trình: Program bai2; Uses crt; Const nmax =10 0; Type mang=array [1 nmax]of integer; Var A:mang; n,i,j,max:integer; Begin Write(‘Nhap so luong phan tu cua ... then Posi:=Posi +1 • else if a[i]
... For i: =1 to N TC[i]: =C[ i]; For i: =1 to N TC[i+N]: =C[ i]; TX[j] := X[j]; For i:= j +1 to j+N -1 TX[i] := TX[i]+TX[i -1] ; For i:= j +1 to j+N -1 TC[i] := TC[i]+TC[i -1] ; For i:=j to j+N -1 If TX[i]-TC[i] x C chốt tới giá...
... Lập trình nâng cao - Mảngchiều 43 VC VC & & BB BB Bài tập th c hành Cc thao t cnhậpxuất a Nhậpmảng b XuấtmảngCc thao t c kiểm tra a Mảngc phải mảng toàn chẵn b Mảngc phải mảng toàn ... nâng cao - Mảngchiều 31 VC VC & & BB BB Tách mảng thành mảng Yêu c u Cho trư cmảng a, số lượng phần tử na Tách mảng a thành mảng b (chứa số nguyên tố) mảngc (c c số lại) Ý tưởng C ch 1: ... Mảngchiều 17 VC VC & & BB BB Thủ t c HoanVi & Hàm LaSNT Lập trình nâng cao - Mảngchiều 18 VC VC & & BB BB Nhậpmảng Yêu c u Cho phép nhậpmảng a, số lượng phần tử n Ý tưởng Cho trư c mảng...