IT Zaman NOW

Program Pascal Binary Tree Ok sob kali ini saya akan memposting sebuah program pascal binary tree beserta outputnya : Lansgung aja sob... -------------------------------------------------------------------------------------------------------------------------- Program binary; uses wincrt; type tptr = ^node; node = record left :tptr; data : integer; right : tptr; end; var c,i,x,n: integer; temp, trail, r, t : tptr; procedure insert(x:integer; var t : tptr); begin new(temp); temp^.left:=nil; temp^.data:=x; temp^.right:=nil; r := t; trail := nil; while(r<>nil ) do begin trail := r; if r^.data > x then r := r^.left else r := r^.right; end; if trail=nil then t := temp else if trail^.data > x then trail^.left := temp else trail^.right := temp; end; procedure inOrder(t:tptr); begin if t <> nil then begin inOrder(t^.left); write(t^.data:5); inOrder(t^.right); end; end; procedure postOrder(

DOWNLOAD SOURCE CODE LOGIN PROJECT BLUE J Hari Ini: . SELAMAT DATANG <===SOURCE CODE BLUE-J LOGIN EMAIL===>> 👇👇👇👇👇👇👇 DOWNLOAD PROJECT Untuk lebih jelasnya kembali bisa lihat di youtube kami :  http://crefranek.com/3Bg4

Selamat malam sob... kali ini ane mau post nih salah satu tugas struktur data semester 3 lagi, yaitu Program Quick sort, apa sih Quick sort itu?... ane jelasin dulu sob dari mbah google... Quick Sort merupakan salah satu algoritma pengurutan data yang menggunakan teknik membagi  data menjadi partisi-partisi. Metode Quick Sort disebut juga dengan nama partition exchange sort.  Untuk memulai proses pengurutan, pertama-tama sebuah data dipilih dari kelompok data sebagai data pivot. Posisi data pivot dapat dicari dengan menggunakan rumus :     i  = (indeks awal + indeks akhir) div 2   Kemudian elemen-elemen data akan diatur, sehingga nilai data pivot yang terletak di posisi ke I memenuhi kondisi sebagai berikut : Semua data di posisi ke 1 sampai dengan ke I-1  lebih kecil atau sama dengan pivot atau data[i]<=pivot. Semua data di posisi ke I+1 sampai dengan ke N  lebih besar atau sama dengan pivot atau data[i]>=pivot. Contoh  : Ada  12 data  sebagai berikut :   indeks

Program Queue atau Antrian Pascal Selamat malam sob... kali ini ane mau post nih salah satu tugas struktur data semester 3, yaitu Program Antrian atau sering disebut Queue, langsung aja sob liat kodingannya,.. COPAS BOLEH, PELAJARI HARUS!!!.. ====================================================================  Program queue;  uses wincrt;  type antrian = ^node;   node = record   isi : String[10];   next : antrian;   end;  var   depan, belakang : antrian;   pointer, x : string;   pil : char;   {Procedure baru digunakan untuk inisialisasi awal list}   Procedure baru(x : string; var tunjuk : antrian);   begin   new(tunjuk);   tunjuk^.isi := x;   tunjuk^.next := nil;   end;   {Function isempty digunakan untuk mengecek apakah suatu list kosong atau tidak}   Function isempty(depan, belakang : antrian):boolean;   begin   isempty := (depan=nil) and (belakang=nil) = true   end;   {procedure tambahAntri digunakan untuk menambahkan jumlah orang dalam antrian}   p