cài stack bằng mảng 1 chiều

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

... 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 to N Begin Write(‘phan tu thu’,i); Readln(a[i]); End; B2 Max← a [1] , i 1; Max:=a [1] ; B3 Nếu ... 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...

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 ... Randomize; T1 := 0; T3 := 0; For i: =1 to N _ Thuật toán mảng chiều Begin B[i] := 2; A[i] := Random (10 0); If (A[i] mod = 0) then If (A[i] mod = 1) then Begin Inc(T1);B[i] := 1; End Else...

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

... (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 ... 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ó ... AN-i -1 Nếu mảng mảng tăng dần, xếp thành mảng tăng dần Ví dụ: Mảng A: 15 7 15 Kết quả: Mang A doi xung, Mang A khong phai la mang tang dan Mảng A: 14 17 26 26 31 Kết quả: Mang A khong doi xung, Mang...

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

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

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

... trị cho phần 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 ... 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 ... 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 đưa MAX số i => Kết thúc; For i :=2 to n Nếu a[i]>max maxa[i], i i +1 => quay...

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

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

...  Tìm hiểu cách sử dụng lệnh kiểu liệu mảng chiề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]

Ngày tải lên: 11/08/2014, 06:23

... = {2 912 , 17 06, 15 06, 19 04}; a 2 912 17 06 15 06 19 04 NMLT - Mảng chiều 10 VC VC & & BB BB Truy xuất đến phần tử  Thông qua số [][]…[]  Ví dụ  Cho mảng sau ... n1 = 10 ; int a[n1]; => int a [10 ];  const int n2 = 10 ; int a[n2]; => int a [10 ];  Khởi tạo cách biệt với khai báo  int a[4]; a = {2 912 , 17 06, 15 06, 19 04}; => int a[4] = {2 912 , 17 06, 15 06, 19 04}; ... 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 a 17 06 15 06 19 04...

Ngày tải lên: 11/08/2014, 22:22

... kiểu mảng Một số toán mảng chiều NMLT - Mảng hai chiều VC VC & & BB BB Ma Trận … n -1 0 m -1 An … … Am,n … n -1 n -1 NMLT - Mảng hai chiều VC VC & & BB BB Ma Trận … n -1 … n -1 0 … … n -1 n -1 n -1 dòng ... dòng = cột … n -1 0 dòng < cột … n -1 … n -1 … … … An … n -1 … An n -1 n -1 n -1 dòng + cột = n -1 dòng + cột > n -1 dòng + cột < n -1 NMLT - Mảng hai chiều VC VC & & BB BB Khai báo kiểu mảng chiều  Cú pháp ... MaTran10x20 a, b; MaTran11x 11 c; MaTran10x20 d; NMLT - Mảng hai chiều VC VC & & BB BB Truy xuất đến phần tử  Thông qua số [][]  Ví dụ  Cho mảng chiều...

Ngày tải lên: 11/08/2014, 22:22