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  : Ad...

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 (belakan...

MEMBUAT DATA TABEL DENGAN SQLITE3 DI CMD 😎  Membuat dan membuka .db              Asumsikan kita akan membuat tabel dengan nama tabel data.db  Membuka sqlite3 dan membuka data.db buka cmd lalu ketik cd.. lalu ketik cd.. lagi lalu cd sqlite jika anda menempatkan sqlitenya di folder c sqlite dan kita bisa ketik .databases untuk melihat apakah database sudah dibuat atau belum          Membuat tabel create tabel (namatable) (judul atas) = membuat tabel untuk melihat daftar tabel yang dibuat ketik .tabels Dan disini saya akan membuat tabel data dengan struktur ( no sebagai primary key, judul dan harga ) Memodifikasi tabel Menambahkan kolom alter table (namatabel) add column (namacolom) (typenya); ->> Dan saya akan coba menambahkan kolom pengarang pada tabel data saya dengan mengetik  alter table data column Pengarang varchar; Menambah data ke tabel kita bisa mengetikan di cmd  insert into (namatabel)(....

Stack Code Pascal (Balik Kalimat) Asalamualaikum wr. wb. Ok sob kali ini saya akan membagikan sebuah source code pascal balik kalimat menggunakan Stack.. ======================================================================== Program Balik_Kalimat_Stack; uses wincrt; const elemen = 255; {batas maksimun karakter} type typearray = string[elemen]; typeStack = record isi : typearray; atas : 0..elemen; end; var t : typeStack; i : integer; kalimat : typearray; procedure buatStack(var t : typeStack); begin t.atas := 0; end; procedure push(var t : typeStack; x : char); begin t.atas := t.atas + 1; t.isi[t.atas] := x; end; function pop(var t : typeStack): char; begin pop := t.isi[t.atas]; t.atas := t.atas-1; end; begin buatStack(t); writeln('tumpukan untuk membalik kalimat'); writeln('---------------------------------------------'); writeln; write('isi kalimat : '); readln(kalimat); writeln; writeln('kalimat asli : '); writeln...

Bubble Sort Code Program Pascal Ok sob kali ini mimin akan berbagi source code program pascal nih tentang bubble sort, langsung aja sob perhatiin ya. ======================================================================== Program Bubble_Sort; uses crt; var i,j,k,temp,n : integer; A,B,C : array [1..100] of integer; begin clrscr; write('Banyaknya elemen array : '); readln(n); {Input Data} for i := 1 to n do begin write('Elemen ke-', i,':'); readln(A[i]); end; {Cetak Array Sebelum Pengurutan} writeln; write('Sebelum diurutkan : '); for i := 1 to n do write(A[i], ' '); writeln; writeln('Proses Pengurutan Bubble :'); for i := 1 to n-1 do begin for j := n downto i+1 do begin if A[j-1] > A[j] then begin temp := A[j-1]; A[j-1] := A[j]; A[j] := temp; end; end; {cetak Array tiap langkah pengurutan} writeln; write('Hasil akhir langkah ke-', i,':'); for k := 1 to n do writ...

Selection Sort Program Pascal Selamat malam siang sore pagi sob, kali ini mimin akan berbagi source code pascal nih tentang selection sort, pasti udah pada tahu kan, langsung aja sob pantengin code nya :D. ======================================================================== Program Selection_Sort;  uses crt; var i,j,k,temp,imaks, n : integer; A,B,C : array [1..100] of integer; begin clrscr; write('Banyaknya elemen array : '); readln(n); {input data} for i := 1 to n do begin write('Elemen ke-', i,':'); readln(A[i]); end; {Cetak array sebelum pengurutan} writeln; write('Sebelum pengurutan : '); for i := 1 to n do write(A[i],' '); writeln; writeln; writeln('Proses pengurutan seleksi : '); for i := 1 to n-1 do  begin imaks := 1; for j := 2 to n-i+1 do if A[j] > A[imaks] then imaks := j; {tukar A[j] dengan A[imaks]} temp := A[imaks]; A[imaks] := A[n-i+1]; A[n-i+1] := temp; writeln; {ceta...