Program pengurutan data string pada pemrograman pascal untuk mengurutkan data String/karakter, dari beberapa nama yang diinputkan tidak terurut menjadi teruurut.
Berikut program pengurutan data string pada pemrograman pascal.
uses crt ;
var
nama : array[1..30] of string ;
xnama : string ;
jmldata : byte ;
i, j : byte ;
begin
jmldata := 10 ;
for i := 1 to jmldata do
begin
write('Nama ke ',i,':') ; readln(nama[i]) ;
end;
clrscr ;
for i := 1 to jmldata do
begin
writeln ('Nama ke ',i,':', nama[i]) ;
end;
for i:= 1 to jmldata-1 do
begin
for j:= jmldata-1 downto i do
begin
if nama[j] > nama[j+1] then
begin
xnama := nama[j] ;
nama[j] := nama[j+1] ;
nama[j+1] := xnama ;
end;
end;
end;
writeln;
for i := 1 to 10 do
begin
writeln ('Nama ke ',i,':', nama[i]) ;
end;
readln;
end.
Demikianlah artikel program pengurutan data string pada pemrograman pascal , semoga anda semakin termotivasi untuk belajar bahasa pemrograman.
Terima kasih.
Sumber : Mesran.Net
