Contoh Tentang Pengurutan Program

proGram menguruTkan Bilangan (pascaL)

Program Urut_Bilangan;

Uses Wincrt;

Var A,B,C:integer;

Begin

Writeln('Program Mengurut Bilangan');

Writeln('=========================');

Writeln;

Write('Masukkan Nilai A: ');readln(A);

Write('Masukkan Nilai B: ');readln(B);

Write('Masukkan Nilai C: ');readln(C);

Writeln;

if (A

if (B

Writeln(A,' ',B,' ',C)

else

Writeln(A,' ',C,' ',B)

else if (B

if (A

Writeln(B,' ',A,' ',C)

else

Writeln(B,' ',C,' ',A)

else if (C

if (A

Writeln(C,' ',A,' ',B)

else

Writeln(C,' ',B,' ',A)

End.

program BUBBLESHORT_VINO;

uses crt;

type

datasiswa=string[35];

var

i,j,n:byte;

temp:datasiswa;

nama:array[1..40] of datasiswa;

T:boolean;

jwb:char;

begin

repeat

T:=false;

clrscr;

write('masukkan jumlah siswa:');readln(n);

writeln('data semula:');

for i:=1 to n do

begin

write(i:2,'.');

readln(nama[i]);

end;

for i:=1 to n-1 do

for j:=i to n do

if nama[i]>nama[j] then

begin

temp:=nama[i];

nama[i]:=nama[j];

nama[j]:=temp;

end;

writeln;

writeln('data setelah diurutkan:');

writeln;

for i:=1 to n do

writeln(i:2,'.',nama[i]);

write('Akan Proses Lagi [Y/T] :');readln(jwb);

until upcase(jwb)='T';

end.

Mengurutkan Data Pascal

Written by the-kiel   

Thursday, 10 March 2011 01:59

program urut_data;

uses crt;

var

d       : array [1..100] of integer;

c       : string;

i,n,k,s : integer;

begin

clrscr;

write ('Masukan jumlah data yang akan di urutkan : ');

read  (n);

writeln;

i := 0;

while i < n do

begin

i := i + 1;

write ('masukan data ke ',i,' : ');

read  (d[i]);

end;

k := 0;

while k < n - 1 do

begin

k := k + 1;

i:=0;

while i < n - 1 do

begin

i := i + 1;

if d[i] > d[i + 1] then

begin

s        := d[i + 1];

d[i + 1] := d[i];

d[i]     := s;

end;

end;

end;

writeln;

write ('Urutannya adalah : ');

i := 0;

while i < n do

begin

i := i + 1;

write (d[i],' ');

end;

c:= readkey;

readln;

end.