nhập xuất mảng 1 chiều

Ngày tải lên: 19/10/2016, 13:09

Ngày tải lên: 19/10/2016, 13:09

... 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]); } } }...

Ngày tải lên: 20/10/2016, 16:15

... array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiề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ảng chiề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ảng chiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ...

Ngày tải lên: 04/06/2013, 01:25

... 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...

Ngày tải lên: 08/06/2013, 01:26

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

... 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ảng chiề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ảng chiề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 ...

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

... Khai báo mảng A, N phần tử Nhập / Xuất mả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...

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

... array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiề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ảng chiề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ảng chiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ...

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

... 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:...

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

... array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiề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ảng chiề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ảng chiều dùng câu lệnh FOR DO Ghi nhớ! 15 20 19 25 18 12 16 ...

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

... 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

Ngày tải lên: 04/12/2013, 11:11

... 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...

Ngày tải lên: 25/01/2014, 10:20

... (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ảng chiề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ảng chiề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ảng chiề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) ...

Ngày tải lên: 21/06/2014, 09:20

... 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ảng chiề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ảng chiều VC VC & & BB BB Khởi tạo giá trị cho mảng lúc khai ... int b [10 ][20]; NMLT - Mảng chiề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...

Ngày tải lên: 26/06/2014, 23:20

... 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ảng chiều Nhập mảng chiề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...

Ngày tải lên: 19/07/2014, 08:00

... array [1 100] of real; Các thao tác xử lí mảng chiều a Nhập mảng chiề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ảng chiề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ảng chiều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 ...

Ngày tải lên: 19/07/2014, 08:00

... int b [10 0], nb=0; for (i nt i =0; i

Ngày tải lên: 29/07/2014, 21:20

... 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 Liệt kê số âm 19 7 ... { if (i==0 && A[i]!=A[i +1] ) { s = s + A[i]; } else if (i==n -1 && A[i]!=A[i -1] ) { s = s + A[i]; } else if ((A[i]A[i -1] ) ) { s = s + A[i]; } } ... i++) { if (i==0 && A[i]!=A[i +1] ) { DemTam++; } else if ( i == n -1 && A[i -1] !=A[i]) { DemTam++; } else if ((A[i -1] >A[i] && A[i]

Ngày tải lên: 29/07/2014, 21:20

... (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ảng chiề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ảng chiề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ảng chiề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) ...

Ngày tải lên: 29/07/2014, 21:20