Thứ Sáu, 17 tháng 12, 2010

Thuật toán tìm phần tử max,min của mảng

Giả sử phần tử min cần tìm là phần tử k. Ban đầu ta cho k=1. Sau đó cho i chạy từ 2 đến n, nếu a[k] > a[i] thì rõ ràng a[i] bé hơn, ta gán k bằng i. Sau khi duyệt toàn bộ dãy thì k sẽ là chỉ số của phần tử min.

Tìm min:

procedure timmin;
var i, k : integer;
begin
k := 1;
for i := 2 to n do
if a[k] > a[i] then k := i;
writeln(‘Phan tu nho nhat la a[',k,']=’,a[k]);
end;

Tìm max:

procedure timmax;
var i, k : integer;
begin
k := 1;
for i := 2 to n do
if a[k] < a[i] then k := i;
writeln(‘Phan tu lon nhat la a[',k,']=’,a[k]);
end;

Theo laptrinh.vn

0 nhận xét:

Đăng nhận xét