Đang tải... (xem toàn văn)
Hãy cho biết trong mảng A có bao nhiêu phần tử bằng k, đưa ra chỉ số của nó k Z, được nhập từ bàn phìm?. CT..[r]
(1)(2) BÀI 11: KIỂU MẢNG (T2) MỘT SỐ VÍ DỤ Ví dụ 1: Viết chương trình tạo mảng A gồm N phần tử (N Z +, N 100), kiểu nguyên Hãy xếp mảng A theo thứ tự tăng dần? SĐK CT Ví dụ 2: Viết chương trình tạo mảng A gồm N phần tử (N Z +, N 100), kiểu nguyên Hãy cho biết mảng A có bao nhiêu phần tử k, đưa số nó (k Z, nhập từ bàn phìm)? CT (3) uses crt; var a:array [1 100] of integer; n,i,j: byte; tg:integer; begin clrscr; write('nhap n: '); read(n); for i:=1 to n begin write('nhap a[',i,']='); readln(a[i]); end; for i:=1 to n-1 for j:=i+1 to n if a[i]>a[j] then begin tg:=a[i]; a[i]:=a[j]; Tráo đổi a[j]:=tg; end; writeln('day sau sap xep la: '); for i:=1 to n write(a[i]:6); readln; end Khai báo Tạo, nhập mảng Sắp xếp Home Pascal (4) • Minh họa hoán đổi giá trị hai phần tử, cách dùng biến trung gian (TG) x x x := y (2) TG TG := x (1) y y := TG (3) CT (5) uses crt; var a:array [1 100] of integer; n,i,dem: byte; k:integer; begin clrscr; write('nhap n: '); read(n); for i:=1 to n begin write('nhap a[',i,']='); readln(a[i]); end; for i:=1 to n write(a[i]:6);writeln; dem:=0; write('nhap k='); readln(k); for i:=1 to n if a[i]=k then begin dem:=dem+1; writeln('chi so la: ',i:4); end; writeln('so luong bang k la: ',dem); readln; end Home Pascal (6) Thuật toán sơ đồ khối Nhập: n, a1, a2, , an i:=1 Đ i>n-1 S j:=i+1 Đưa dãy xếp j>n i := i+1; Đ S j:=i+1 S > aj Đ Tráo đổi và aj Home CT (7)