break a time, with break the c0de…

simple sort


berikut adalah program pascal simple sort

Program simple_sort;
Uses crt;
Var
 Data : array [1..5] of byte;
 X,y,z : byte;
Begin
 Data [1] := 5;
 Data [2] := 4;
 Data [3] := 3;
For x:= 1 to 5 do write (data [x]);
For x:= 1 to 5 do;
 Begin
 For z:= x + 1 to 5 do
 If data [x] > data [z] then
 Y:= data [x];
 Data [x] := data [z];
 Data [z] := y;
 End;
End.

Penjelasan :

line 1 : Menamakan program simple sort (tidak mutlak)
line 2 : Menggunakan compiler pascal 98 DOS / bisa menggunakan use wincrt pada compiler pascal yang jaman windows
line 3 : Tentukan variable
line 4 : Data adalah array dari 1 sampai 5
line 5 : Variable x, y, z adalah byte
line 6 : Begin – Mulai program . seperti halnya kurung kurawal pada c maka juga akan ada penutup nya ({ })
line 7 : Array data 1 berisi nilai 5
line 8 : Array data 2 berisi nilai 4
line 9 : Array data 3 berisi nilai 3
line 10: Untuk nilai x = 1 menuju ke 5 , lalu menulis data byte x
line 11: Untuk nilai x = 1 menuju ke 5
line 12: Memulai program di dalam program . disebut juga program tersarang
line 13: Untuk nilai z = 1 menuju ke 5
line 14: Jika data x lebih besar dari data z kemudian
line 15: Data array Y sama dengan data array X
line 16: Data array Z sama dengan nilai variabel y
line 17: Akhir dari program tersarang, tetapi jika syarat telah terpenuhi.
line 18: Akhir dari program, jika semua syarat program telah terpenuhi.

Inti program tersebut adalah pertukaran data pada syarat2 tertentu (bubble sort).
Ok, sampai disini dulu selanjutnya saya akan menjelaskan analogi programnya.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s