bài tập mảng 1 chiều tìm max min sắp xếp

... a [1] , i 1; Max: =a [1] ; B3 Nếu i>N đưa Max KT B4 B 41 Nếu a[i] >Max Max ←a[i] B42 i ←i +1 quay lại B3 csMax: =1; For i:=2 to N if a[i] >Max then begin Max: =a[i]; csMax:=i; end; Writeln(‘GTLN la:’ ,Max, ’Vi ... thu’,i); Readln(a[i]); End; max: =a [1] ; csmax: =1; For i:=2 to N if a[i] >max then begin max: =a[i]; csmax:=i; end; Write(‘Gia tri lon nhat la:’, max: 4, ‘Vi tri dat max la:’, csmax:4); End SỞ GIÁO DỤC ... T×M GI¸ TRÞ MIN NỘI DUNG Tìm giá trị max, a Bài toán b Thuật toán Minh họa thuật toán tìm min: (tương tự max) A: F c Chương trình Sắp xếp a Khái niệm b Thuật toán c Chương trình Min F F T F...

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

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

... 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 lại bước IF a[i] >max then begin max: =a[i]; csmax:=i; end; ... readln(A[i]) ; End; Max := A [1[ ; csmax : =1 ; For i := to n If (A[i] >max) Then begin max := a[i]; csmax=i; end; Writeln( Gia tri cua phan tu Max : ,Max) ; Writeln( Chi so cua phan tu Max : , csmax) ; Readln ... 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...

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

... mmc=array [1 100] of integer; Var A : mmc; 14 25 A[5] = 25 A[7] = 6… Bài tập1 : Nhập vào mảng số nguyên Đếm xem mảng vừa nhập có số chẵn, Tính tổng số chẵn Gợiý: - Các biến cần khai báo - Nhập vào mảng ... nguyên liên tục có dạng n1 n2, với n1 số đầu, n2 số cuối - Kiểu phần tử: kiểu phần tử mảng *Tham chiếu đến phần tử mảng [chỉ số] VD1:Type mmc=array [1 100] of integer; Câu 2:Tại ... i: =1 to n if a[i] = x then dem:=dem + 1; writeln(‘so bang’,x,’ mang la:’, dem); readln end IV - Củng cố - Cách khai báo tham chiếu đến phần tử mảng chiều - Bài tập: Nhập vào mảng số nguyên, xếp...

Ngày tải lên: 12/06/2015, 03: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

... 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 lại bước IF a[i] >max then begin max: =a[i]; csmax:=i; end; ... readln(A[i]) ; End; Max := A [1[ ; csmax : =1 ; For i := to n If (A[i] >max) Then begin max := a[i]; csmax=i; end; Writeln( Gia tri cua phan tu Max : ,Max) ; Writeln( Chi so cua phan tu Max : , csmax) ; Readln ... 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...

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

... 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 lại bớc IF a[i] >max then begin max: =a[i]; csmax:=i; end; ... readln(A[i]) ; End; Max := A [1[ ; csmax : =1 ; For i := to n If (A[i] >max) Then begin max := a[i]; csmax=i; end; Writeln( Gia tri cua phan tu Max : ,Max) ; Writeln( Chi so cua phan tu Max : , csmax) ; Readln ... 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...

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

... gì? d:=0; For i: =1 to 7do if M[i]N[i] then d:=d +1; Writeln(d); GV: Yêu cầu học sinh chạy thử đoạn chương trình với liệu vào: B 1: N: Bài 4.6 M: Đáp án C Bộ 2: N: 12 14 M: 12 14 16 HS: thực Gv: ... 4 .10 ? chan co gia tri le la:’,dem); HS: Xác định Readln; GV: Hướng dẫn học sinh nhập End mảng A, B.(tưong tự nhập mảng A Bài 4 .10 4.9) Mảng C xác định thông qua mảng A, B For i:= to n C[i*2- 1] :=A[i]; ... bai49; HS: Thực Uses crt; Gv: Ý tửơng giải thuật: Var -Khai báo mảng A integer; -Nhập mảng A I,dem,m:byte; A: array [1 100] -Kỉêm tra mảng A vị trí Begin chẵn có giá trị lẻ đếm Clrscr; Write(‘nhap...

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

... 1 1 1 Day F : 6 Day G : 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ... 10 11 10 11 8 12 10 13 12 10 13 10 15 14 16 15 10 17 16 15 14 13 12 11 10 14 17 16 15 12 13 11 10 Bài 25: Nước mưa ( Thi Tin học trẻ 96 ) Cho lưới MxN ô vuông có cạnh độ dài đơn vị ( M,N < 51 ... 1 1 1 1 1 1 1 1 1 1 1 1 1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 147 Chuyªn Tin 10 Bài 20: Cho số tự nhiên M,N (M,N >=2) mảng chiều A [1 M ,1 M ,1 N -1] Tìm gía trị bé biểu thức F=A[i1 ,i 2 ,1] + A[i2,i...

Ngày tải lên: 07/09/2014, 07:11

... i: =1 to N If not xoa[i] then Write(A[i]); End; BEGIN Nhap;Hien(N); Xuly;Hien2; Readln END Bài 6: Chuyªn Tin 10 11 1 Uses Crt; Const Max = 10 0; Type k1 = Array [1 Max] of integer; k2 = Array [1 2 *Max] ... Xuly;Hien(L); END Bài 5: { Phương pháp dùng MẢNG VÒNG } Uses Crt; Const Max = 10 00; Type Mang = Array [1 Max] of Integer; Var A : Mang; N,i,L,P: Integer; Xoa : Array [1 Max] of Boolean; Chuyªn Tin 10 11 0 Procedure ... N = D0 + D1 * 2! + + Dm * (m +1) ! Chú thích : (M +1) ! = 1. 2.3 (M).(M +1) Bài 18 : Tìm 10 00 phần tử theo thứ tự tăng dần mà phần tử có dạng tích luỹ thừa 2,3,5 với số mũ số tự nhiên Bài 19 : Có N...

Ngày tải lên: 07/09/2014, 07:11

... + 1; writeln(‘so bang’,x,’ mang la:’, dem); readln end IV - Củng cố - Cách khai báo tham chiếu đến phần tử mảng chiều - Bài tập: Nhập vào mảng số nguyên, xếp mảng theo chiều tăng dần, đưa mảng ... i: =1 to n if (a[i] mod = ) then begin dem:=dem + 1; t:= t + a[i]; end; writeln(‘so chan mang la:’, dem); writeln(‘tong so chan la:’, t); readln end Bài tập 2: Nhập vào mảng số nguyên, đưa mảng ... Program bt1; Uses crt; Var a : array [1 20] of integer; i,n,dem,x:integer; begin write(‘nhap n = ‘); readln(n); for i:= to n begin write(‘a[‘,i,’]’); readln(a[i]); end; dem:=0; for i: =1 to n if...

Ngày tải lên: 12/06/2015, 03:00

... tài 11 B8 Thường xuyên 11 B7 Thường xuyên 11 B6 không thường xuyên 11 B1 Không áp dụng Giỏi Yếu Kém 37,5% 37,5% 0% 0% 21, 6% 43,2% 35,2% 0% 0% 25% Khá TB 11 ,1% 27,8% 47,2% 13 ,9% 7,6% 20,5% 56,4% 12 ,8% ... sau đúng? a, Type 1chieu=array [1 100] of char; b, Type mang=array (1 100) of char c, Type mang1c=array [1- 100] of char; d, Type mang1c=array [1 100] of char; Câu 10 : Trong khai báo mảng thường ... điều tra Đối với 40 học sinh lớp 11 B1, 11 B6, 11 B7, 11 B8 học môn Tin học, theo phương pháp chọn mẫu ngẫu nhiên lấy ngẫu nhiên 10 học sinh lớp có STT từ 10 đến 15 từ 25 đến 20 Em có cảm giác sợ...

Ngày tải lên: 11/12/2015, 21:15

... t,i1,i2,r1,r2,h:byte; begin i1: =1; i2: =1; h:=0; while (i1

Ngày tải lên: 19/08/2013, 09:35

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

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

... chung ớc nguyên tố) 10 / Tìm số tự nhiên nhỏ 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 ... i: =1; While ((i

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

... int max = a[0]; for (int i = 1; i < len; i++) if (max < a) max = a; return max; } static void XoaCacPhanTuLonNhat() { int max = timPhanTuLonNhat(); for (int i = 0; i < len; i++) xoaPhanTuX (max) ; ... timTatCaCacVTLN() { int h = 0; int max = timPhanTuLonNhat(); for (int i = 0; i < len; i++) { if (a == max) a[h] = i; h++; } Console.WriteLine("Cac vi tri cua PT Max day: "); for (int j = 0; j < ... 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;...

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

... Bài  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; ... â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

Ngày tải lên: 17/02/2015, 17:00

... 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 ... số tập lập trình Pascal Created by NgoHung Vấn đề 4: Mảng chiều Bài toán số 4 .1: Viết chương trình thao tác mảng chiều với công việc sau: + Nhập xuất mảng chiều + Đếm số lần xuất giá trị mảng...

Ngày tải lên: 15/08/2015, 14:00