Trình bày thuật toán của bài toán tìm GTNN trong 1 dãy số nguyên ( ý tưởng và viết thuật toán bằng 2 cách)
Giúp mình với
Trình bày thuật toán của bài toán tìm GTNN trong 1 dãy số nguyên ( ý tưởng và viết thuật toán bằng 2 cách)
Giúp mình với
Cách 1
giá trị nhỏ nhất trong một dãy số ta sẽ sử dụng một biến gtnn=a[1];
cho i chạy từ đến cuối nếu a[i] < a[1] thì giá trị của gtnn sẽ bằng a[i];
thuật toán
program ct;
uses crt;
var i, n,min:integer;
a:array[1..1000] of integer;
begin
write(‘nhap n :’);
readln(n)
for i:=1 to n do begin
write(‘nhap a[‘,i,’]’);
readln(a[i]);
end;
min:= a[1];
for i:= 1 to n do
if a[i]<min then min:= a[i];
write(min);
readln;
end.
cách 2:
ta sẽ sắp xếp dãy theo thứ tự tăng dần khi đó số đầu tiên sẽ là số bé nhất
program ct;
uses crt;
var i,n,min,doi:integer;
a:array[1..1000] of integer;
begin
write(‘nhap n :’);
readln(n);
for i:=1 to n do begin
write(‘nhap a[‘,i,’]’);
readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i to n do
if a[i]>a[j]then begin
doi:= a[i];
a[i]:= a[j];
a[j]:= doi;
end;
min:= a[1];
write(min);
readln;
end.
giá trị nhỏ nhất trong một dãy số ta sẽ sử dụng một biến gtnn=a[1];
cho i chạy từ đến cuối nếu a[i] < a[1] thì giá trị của gtnn sẽ bằng a[i];
thuật toán
program ct;
uses crt;
var i,n,min:integer;
a:array[1..1000] of integer;
begin
write(‘nhap n :’);
readln(n);
for i:=1 to n do begin
write(‘nhap a[‘,i,’]’);
readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
write(min);
readln;
end.
cách 2:
ta sẽ sắp xếp dãy theo thứ tự tăng dần khi đó số đầu tiên sẽ là số bé nhất
program ct;
uses crt;
var i,n,min,doi:integer;
a:array[1..1000] of integer;
begin
write(‘nhap n :’);
readln(n);
for i:=1 to n do begin
write(‘nhap a[‘,i,’]’);
readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i to n do
if a[i]>a[j]then begin
doi:=a[i];
a[i]:=a[j];
a[j]:=doi;
end;
min:=a[1];
write(min);
readln;
end.
thấy hay cho mình xin 5s nha