Algoritma untuk menampilkan deret angka (0, 2, 5, 10, 26, 37)
Program deretangka;
uses wincrt;
var
array[1..50]:integer;
i, n, min, kelompok, temp, tempatnya_min : integer;
begin
writeln('Program deret angka 0, 2, 5, 10, 26, 37');
for kelompok := 1 to n do
begin
min := x[kelompok];
for i := kelompok to n do
begin
if (x[i] <= min) then
begin
min := x[i];
tempatnya_min := i;
end.
end.
temp := x[kelompok];
x[kelompok] := x[tempatnya_min];
x[tempatnya_min] := temp;
end.
daftar pustaka
http://blog.rosihanari.net/algoritma-sorting-dan-implementasinya/
diunduh (6 april: 11:22)
Program deretangka;
uses wincrt;
var
array[1..50]:integer;
i, n, min, kelompok, temp, tempatnya_min : integer;
begin
writeln('Program deret angka 0, 2, 5, 10, 26, 37');
for kelompok := 1 to n do
begin
min := x[kelompok];
for i := kelompok to n do
begin
if (x[i] <= min) then
begin
min := x[i];
tempatnya_min := i;
end.
end.
temp := x[kelompok];
x[kelompok] := x[tempatnya_min];
x[tempatnya_min] := temp;
end.
daftar pustaka
http://blog.rosihanari.net/algoritma-sorting-dan-implementasinya/
diunduh (6 april: 11:22)
Kalau dibuat flowchart bagaimana
BalasHapusKalau dibuat flowchart bagaimana
BalasHapus