Program Urut Data
Di bawah ini adalah coding untuk mengurutkan data pada program pascal, semoga bermanfaat :)
program
Urut_data;
uses
wincrt;
var
i,j,n:integer;
x:
array[0..6] of integer;
begin
writeln('Program
Urut Data');
write
('Masukkan Banyak Data '); readln (n);
for
i:=1 to n do
begin
write ('Masukkan Data ke ',i,':'); readln (x[i]);
end;
for
i:=1 to n-1 do
for
j:=1 to n-1 do
begin
if x[j]>x[j+1] then
begin
x[0]:=x[j];
x[j]:=x[j+1];
x[j+1]:=x[0];
end;
end;
writeln('Data
Setelah...
