SOURCE CODE PROGRAM
program HeapSort;
uses crt;
type
TIntArray = array[4..15] of integer;
var
data: TIntArray;
i: integer;
procedure siftDown(var a: TIntArray; start, ende: integer);
var
root, child, swap: integer;
begin
root := start;
while root * 2 - start + 1 <= ende do
begin
child := root * 2 - start + 1;
if (child + 1 <= ende) and (a[child] < a[child + 1]) then
inc(child);
if a[root] < a[child] then
begin
swap := a[root];
a[root] := a[child];
a[child] := swap;
root := child;
end
else
exit;
end;
end;
procedure heapify(var a: TIntArray);
var
start, count: integer;
begin
count := length(a);
start := low(a) + count div 2 - 1;
while start >= low(a) do
begin
siftdown(a, start, high(a));
dec(start);
end;
end;
procedure heapSort(var a: TIntArray);
var
ende, swap: integer;
begin
heapify(a);
ende := high(a);
while ende > low(a) do
begin
swap := a[low(a)];
a[low(a)] := a[ende];
a[ende] := swap;
dec(ende);
siftdown(a, low(a), ende);
end;
end;
begin
clrscr;
Randomize;
writeln('Mengurutkan Data dengan HeapSort');writeln;
writeln('Data sebelum diurutkan:');
for i := low(data) to high(data) do
begin
data[i] := Random(high(data));
write(data[i]:4);
end;
writeln;
heapSort(data);
writeln('Data sesudah diurutkan:');
for i := low(data) to high(data) do
write(data[i]:4);
readln;
end.
OUTPUT PROGRAM
Welcome To My Blog :)
Anything
Minggu, 29 Maret 2015
Kamis, 25 Oktober 2012
ZAYN JAVADD MALIK
Zayn
Malik was born on January 12, 1993 in Bradford UK. He went to Tong High
School before he decided to try out for the X Factor. When he first
auditioned it wasn’t broadcasted on the air. During the boot camp on the
X Factor Malik found out that he had to dance and he risked elimination
to stay backstage. Soon Simon Cowell noticed that he wasn’t there and
then convinced him to perform.
|
Best thing about being in One Direction? All the free clothes and I get to do what I love every day.
Star Sign: Capricorn
Celeb Crush: Megan Fox
Man Crush: Justin Timberlake
Favorite hair color on a girl: Brunette
Bet you didn’t know: He celebrated his 18th birthday with a trip to Nandos with the boys.
Height: 5’9”
If he didn’t try out for the X Factor what would he have done? He would have liked to get an English Degree at a University in the hopes of becoming a teacher.
Favorite animal: Lion
Favorite color: Blue
Play any other instruments? The triangle.
Star Sign: Capricorn
Celeb Crush: Megan Fox
Man Crush: Justin Timberlake
Favorite hair color on a girl: Brunette
Bet you didn’t know: He celebrated his 18th birthday with a trip to Nandos with the boys.
Height: 5’9”
If he didn’t try out for the X Factor what would he have done? He would have liked to get an English Degree at a University in the hopes of becoming a teacher.
Favorite animal: Lion
Favorite color: Blue
Play any other instruments? The triangle.
Type of phone: IPhone 4
Know as? The vain one of the band. (directioners call him as Bradford Bad Boi and DJ Malik)
ZAYN's Bio
Full Name: Zayn Malik
Real Name: Zain Javadd Malik
Born On: January 12, 1993 West lane Baildon, Bradford, UK at St. Judes Hospital (On monday at 10.00 AM)
Sisters: Safaa, Waliyha and Doniya
Parents: Yaser Malik and Patricia (Trisha)
Likes: Drawing, Tour Buses
Dislikes: Burps, Y-Fronts
"No matter how many times people criticize you, the best revenge is to prove them wrong" - Zayn Malik
Perintah-perintah Keyboard dan Fungsinya
Berikut ini adalah beberapa contoh fungsi perintah yang bisa anda
gunakan ketika menggunakan komputer sehingga akan lebih memepermudah
anda dan memperlincah gerakan anda ketika berhadapan dengan komputer.
1
|
WINDOWS + BREAK
|
Menampilkan kotak System Properties
| |
2
|
WINDOWS + D
|
Menampilkan Desktop
| |
3
|
WINDOWS + M
|
Minimize all windows (Mengecilkan semua tampilan kerja di layar)
| |
4
|
WINDOWS + Shift + M
|
Mengembalikan minimized windows
| |
5
|
WINDOWS + E
|
Membuka My Computer
| |
6
|
WINDOWS + F
|
Pencarian untuk file atau folder (Search results)
| |
7
|
WINDOWS + CTRL + F
|
Pencarian file di computer (Search results-computers)
| |
8
|
WINDOWS + F1
|
Menampilkan Windows Help (Help and Support)
| |
9
|
WINDOWS + L
|
Log Off Komputer (Standby)
| |
10
|
WINDOWS + R
|
Membuka kotak Run
| |
11
|
WINDOWS + U
|
Membuka Utility Manager
| |
12
|
CTRL + A (All)
|
Digunakan untuk memilih (mem-blok) seluruh objek baik gambar atau teks pada lembar kerja Ms Word
| |
13
|
CTRL + B (Bold)
|
Berfungsi untuk membuat tebal teks yang diseleksi
| |
14
|
CTRL + C (Copy)
|
Berfungsi menggandakan teks atau gambar yang diseleksi (Dilanjutkan dengan CTRL+V)
| |
15
|
CTRL + D (Font)
|
Berfungsi untuk mengganti dan mengatur bentuk dan jenis font/ huruf
| |
16
|
CTRL + E (Center)
|
Berfungsi untuk menengahkan suatu paragraf
| |
17
|
CTRL + F (Find)
|
Berfungsi untuk mencari sebuah kata atau frase
| |
18
|
CTRL + G (Go To)
|
Berfungsi untuk menuju halaman yang diinginkan
| |
19
|
CTRL + H (Replace)
|
Yaitu untuk mengganti kata tertentu
| |
20
|
CTRL + I (Italic)
|
Berfungsi untuk memiringkan teks
| |
21
|
CTRL + J (Justify)
|
Untuk membuat rata kanan dan kiri paragraf
| |
22
|
CTRL + K (Hiperlink)
|
Berfungsi untuk me-link-kan/ menghubungkan teks
| |
23
|
CTRL + L (Left)
|
Membuat rata kiri paragraph
| |
24
|
CTRL + M (Indent)
|
Berfungsi
untuk menggeserkan First Indent, Hanging Indent dan Left Indent
secara bersamaan ke sebelah kanan dalam sebuah paragraph
| |
25
|
CTRL + N (New)
|
Berfungsi untuk membuka lembar kerja baru pada Ms Word
| |
26
|
CTRL + O (Open)
|
Berfungsi untuk membuka dokumen Ms Word dalam file computer pada lembar kerja
| |
27
|
CTRL + P (Print)
|
Berfungsi untuk Mencetak dokumen pada printer
| |
28
|
CTRL + Q
|
Berfungsi
untuk menggeserkan First Indent, Hanging Indent dan Left Indent
secara bersamaan ke sebelah kiri dalam sebuah paragraph
| |
29
|
CTRL + R (Right)
|
Berfungsi untuk membuat rata kanan sebuah paraghraf
| |
30
|
CTRL + S (Save)
|
Berfungsi untuk menyimpan lembar kerja
| |
31
|
CTRL + T
|
Berfungsi untuk menggeserkan Hanging Indent dan Left Indent satu Tab ke sebelah kanan
| |
32
|
CTRL + U (Underline)
|
Berfungsi untuk membuat garis Bawah pada teks, kalimat atau paraghraf
| |
33
|
CTRL + V (Paste)
|
Untuk mengeksekusi perintah Copy atau Cut (Didahului dengan CTRL+C atau CTRL+X)
| |
34
|
CTRL + W
|
Untuk mengeluarkan lembar kerja yang sedang aktif
| |
35
|
CTRL + X (Cut)
|
Berfungsi untuk memindahkan teks atau gambar yang diseleksi (Dilanjutkan dengan CTRL+V)
| |
36
|
CTRL + Y (Redo)
|
Untuk kembali pada perintah yang telah dibatalkan
| |
37
|
CTRL + Z (Ando)
|
Untuk kembali ke perintah sebelumnya
| |
38
|
CTRL + 1
|
Untuk mengatur line spasing (Spasi 1)
| |
39
|
CTRL + 2
|
Untuk mengatur line spasing (Spasi 2)
| |
40
|
CTRL + 5
|
Untuk mengatur line spasing (Spasi 1,5)
| |
41
|
CTRL + F1
|
Menampilkan Menu Help
| |
42
|
CTRL + F2
|
Menampilkan ukuran lembar kerja (Print preview)
| |
43
|
CTRL + F3
|
Menghapus tek/gambar yang dipilih
| |
44
|
CTRL + F4
|
Menutup Ms.Word
| |
45
|
CTRL + F5
|
Refresh
| |
46
|
CTRL + F6
|
Membuka Ms. Word lain yang sedang aktif
| |
47
|
CTRL + F7
|
Mengatur posisi lembar kerja MS. Word
| |
48
|
CTRL + F8
|
Mengatur tampilan lebar & tinggi lembar kerja MS. Word
| |
49
|
CTRL + F9
|
Memberikan kurung kurawal pada teks yang dipilih (Di-blok terlebih dahulu teks yang dipilih)
| |
50
|
CTRL + F10
|
Mengatur ukuran lembar kerja dengan ukuran Normal
| |
51
|
CTRL + F12
|
Membuka dokumen Ms Word dalam file computer pada lembar kerja (Sama dengan CTRL+O)
| |
52
|
CTRL + }
|
Memperbesar ukuran huruf
| |
53
|
CTRL + {
|
Mengecilkan ukuran huruf
| |
54
|
CTRL + SHIFT + F
|
Mengganti dan mengatur bentuk dan jenis font/ huruf (Sama dengan CTRL+D)
| |
55
|
CTRL + ALT + S
|
Membagi
(split) jendela dokumen menjadi dua bagian. Setelah mengetik
CTRL+ALT+S, klik pada posisi yang diinginkan (Cara mengembalikan ke
bentuk semula SHIFT+ALT+C)
| |
56
|
CTRL + ALT + P
|
Mengubah tampilan dokumen menjadi tampilan Print Layout (Lihat menu View)
| |
57
|
CTRL + ALT + O
|
Mengubah tampilan dokumen menjadi tampilan outline (Lihat menu View)
| |
58
|
CTRL + ALT + N
|
Mengubah tampilan dokumen menjadi tampilan Draft (Lihat menu View)
| |
59
|
CTRL + ENTER
|
Membuat halaman baru (insert page break)
| |
60
|
CTRL + SHIFT + ENTER
|
Membuat
bagian dokumen baru. Bagian yang baru ini bukan lanjutan dari halaman
sebelumnya, jadi nomor halamannya bisa dimulai dari yang baru
| |
61
|
CTRL + SHIFT + SPACEBAR
|
Membuat
spasi yang tidak bisa dipisahkan. Maksudnya seolah-olah dua kata yang
berada di antara spasi tersebut tetap berada dalam satu baris
| |
62
|
CTRL + HOME
|
Pindah ke awal dokumen
| |
63
|
CTRL + END
|
Pindah ke akhir dokumen
| |
64
|
BACKSPACE
|
Menghapus satu karakter ke kiri
| |
65
|
CTRL + BACKSPACE
|
Menghapus satu kata ke kiri
| |
66
|
DELETE
|
Menghapus satu karakter ke kanan
| |
67
|
CTRL + DELETE
|
Menghapus satu kata ke kanan
| |
68
|
SHIFT + CTRL + A
|
Membuat
teks uppercase/kapital semua (Teks yang diseleksi harus di-blok
terlebih dahulu, cara mengembalikannya SHIFT+CTRL+A, hampir sama
dengan SHIFT+F3)
| |
69
|
SHIFT + F3
|
Untuk mengubah SENTENCECASE, LOWERCASE, UPPERCASE dan CAPITALIZE pada teks yang diseleksi secara bergantian
| |
70
|
SHIFT + ALT + C
|
Menutup kembali jendela dokumen yang telah dibagi dua bagian / displit (Didahului CTRL+ALT+ S)
| |
71
|
SHIFT + ENTER
|
Membuat baris baru
| |
72
|
ALT + ”double-click”
|
Properties (Klik pada file/document)
| |
73
|
ALT + CTRL + C
|
Memunculkan Simbol Copyright ( © )
| |
74
|
ALT + CTRL + R
|
Memunculkan Simbol Registered Trademark ( ® )
| |
75
|
ALT + CTRL + T
|
Memunculkan Simbol Trademark ( ™ )
| |
76
|
ALT + “Print Screen”
|
Mencopy gambar desktop/layar/aplikasi
| |
77
|
ALT + CTRL + F2
|
Membuka dokumen Ms Word dalam file computer pada lembar kerja (Sama dengan CTRL+O dan CTRL+F12)
| |
78
|
ALT + F4
|
Menutup
Ms.Word atau aplikasi lain selain Ms.Word (Jika digunakan ketika
tidak ada aplikasi yang terbuka ALT+F4 digunakan untuk pilihan Log
Of/Shut Down/Restart)
| |
79
|
ALT + R
|
Mengubah tampilan dokumen menjadi tampilan Reading (Lihat menu View)
| |
80
|
ALT + CTRL + Y
|
Melanjutkan pencarian CTRL+F (kata yang sama) dalam paragraf setelah kotak pencarian ditutup
| |
81
|
ALT + CTRL + Z
|
Pindah ke dokumen lain, atau ke bagian lain dalam dokumen (hampir sama dengan CTRL+F6)
| |
82
|
ALT + CTRL + PAGE UP
|
Pindah ke awal tampilan di monitor
| |
83
|
ALT + CTRL + PAGE DOWN
|
Pindah ke akhir tampilan di monitor
| |
84
|
ALT + CTRL + I
|
Pindah ke tampilan print preview atau sebaliknya ke tampilan standar (Sama dengan CTRL+F2)
| |
85
|
ALT + CTRL + F
|
Menambah footnote
| |
86
|
ALT + CTRL + D
|
Menambah endnote
|
Langganan:
Postingan (Atom)