Referensi Membuat Program Visual Basic 6.0

http://www.konsultasivb.com http://www.belajarvb.com http://www.pemrogramanvb.com http://www.tugasakhirvb.com http://www.meriwardana.blogspot.com http://contohcontohprogramvb.blogspot.com/ http://www.codeguru.com/ http://www.codeguru.com/csharp/.net/net_data/datagrid/article.php/c13041 http://diazscript.wordpress.com/2010/12/29/mengoneksikan-database-be-k-access-menggunakan-source-app-path/ http://prodisi.wordpress.com/ http://ekakom.blogspot.com/ http://xbasicpro.com/ http://www.i-bego.com/...

Program Mencari Nilai Terkecil

program max_min;  uses wincrt;  var  bil:array[1..100] of integer;  terbesar :integer;  terkecil :integer;  i,n :integer;  begin  clrscr;  writeln;write(' Ada berapa bilangan =');readln(n);  for i:= 1 to n do  begin  write(' Bilangan ke ',i,' = ');readln(bil[i]);  end;  terbesar:=bil[1];  terkecil:=bil[1];  for i:= 2 to n do  if bil[i] > terbesar then  terbesar:=bil[i]  else  if bil[i] < terkecil then  terkecil:=bil[i];  writeln(' -----------------');   writeln(' Bilangan terkecil =',terkecil);  readln;...

Contoh Procedure Input dan Edit

program cb; uses wincrt; type  data_mahasiswa = record                 Nim    : string[6];         Nama     : string[25];                 jurusan : string[15];                 fakultas : string[15] ;              alamat  : string[50];                  hoby :string[10];                 end; dtmahasiswa = array [1..10] of data_mahasiswa; {var mhs  : dtmahasiswa ; }  procedure masukkan_data;  var  i,x : integer;  dtmhs  : data_mahasiswa ;  jawab : char;  Begin  repeat...

Contoh Procedure Input

program penjualan_tape; uses wincrt; type jualTape = record       jumlah : integer;       jenis  : string;       harga,bagus,total  : integer;       end;       procedure input;       var       i,n,jumlah  : integer ;       kelas     : string  ;       harga     : integer ;       penjual   : string  ;       bagus,total: integer;       tape      : array [1..5] of jualTape;       bagus_ganteng: jualTape;       begin            ...

Penjumlahan Tiga Array Dan Mencari Nilai Rata-rata

program coba ; uses wincrt ; var  bil1:array[1..100] of integer;   bil2:array[1..100] of integer;    bil3:array[1..100] of integer;  rata :real;  jumlah1 :integer;  jumlah2 :integer;  jumlah3, total :integer;  i,n :integer;  begin  clrscr;  writeln;  write(' jumlah N pertama  =');readln(n);  for i:= 1 to n do  begin  write(' Bilangan ke ',i,' = ');readln(bil1[i]);  end;  jumlah1 := n+n;   writeln;   write(' jumlah N kedua =');readln(n);  for i:=...

Pengurutan Data Menggunakan Bubble Sort 2

program sort; uses Wincrt; var angka: array[1..5] of integer; i,a, temp: integer; begin {Mengisi array} angka[1] := 3; angka[2] := 5; angka[3] := 4; angka[4] := 2; angka[5] := 1; {Tampilkan data sebelum diurutkan} writeln('Sebelum diurutkan : '); for i:=1 to 5 do begin writeln('angka ke-', i, ' : ', angka[i]); end; {Lakukan pengurutan/sorting} for i:=1 to 4 do begin for a:=i+1 to 5...

Program Sequential Sort

program sequential_searh_boolean; uses wincrt; const max=100; type tabinteger=array[1..max] of integer; var    tabint:tabinteger;    jml_data,data,indeks:integer;    found:boolean;    cari:char;    procedure input(n:integer; var t:tabinteger);    var    i:integer;    begin      for i:=1 to n do      begin        write ('nilai ke - ',i,' : ');        readln(t[i]);      end;    end;    procedure search(t :tabinteger; n,x :integer;var idx:integer);    var i:integer;    begin...

Program Input, Edit, Cetak Library Book

Program Data_Buku_Perpustakaan; uses wincrt; type Buku=Record          Kodebuku    :integer;          Judul        :string;          Pengarang    :String;          Tahun        :Integer;          Harga        :Integer;      end; var    Filebuku:file of buku;    Data:buku;    Pil,Ul:Char; procedure Menu; begin clrscr; writeln('..:::Menu Pilihan:::...'); writeln('======================='); writeln('1. Input Data Library Book'); writeln('2. Edit Data Library Book'); writeln('3. Cetak Data Library Book'); writeln('4. Keluar');...

Menghitung Nilai Rata-rata

var a, siswa : integer; nilai, total, tinggi, rendah, rata : real; begin   total := 0;   write ('jumlah siswa : '); readln (siswa);   writeln;   for a := 1 to siswa do   begin     write ('nilai siswa ke ',a,' : '); readln (nilai);     total := total + nilai;     if a = 1 then begin       tinggi := nilai;...

Program Pengurutan data dengan Larik

program pengurutan_data; uses wincrt; const NilaiMaksimum = 1000; type Larik = array[1..NilaiMaksimum] of integer; var L : Larik; batas : integer;            procedure masukan (var L : Larik; n : integer);            var                  a : integer;            begin              for a := 1 to n do                  begin                     write('Masukkan Nilai Ke-' ,a,' : '); readln(L[a]);                     end;                  end;            procedure pengurutan...

Pengurutan Data Menggunakan Bubble Sort

program inputdtmhs; uses wincrt; type dtmhs=record    nomor    : integer;    nama     : string [20];    IP       : real;    end; _dtmhs = array[1..10] of dtmhs; procedure input; var  jumlahmhs,  I,J       : byte;  Mahasiswa : array[1..10] of dtMhs;  Dummy     : dtmhs; Begin (*memasukkan data mahasiswa*) write('jumlah mahasiswa?'); readln(jumlahmhs); for I:=1 to jumlahmhs do begin      writeln;  with mahasiswa [I] do  begin       writeln;      ...

Algoritma Pengurutan Data (Selection Sort)

Pengurutan Dengan menggunakan Selection Sort var i,j,n,maks,temp:integer; L:Array [1..100] of integer; begin for <- n downto 2 do     maks<-1; for j<-2 to i do if L[j]>L[maks] then     maks <-j;     end if end for temp<-L[i]; L[i]<-L[maks]; L[maks]<-temp; end for end....

Algoritma Pengurutan Data (Bubble Sort)

Pengurutan Dengan menggunakan Bubble Sort Var i,k,n,temp:integer; L:array [1..100] of integer; Begin     for i <- 1 to n-1 do     for k <- n downto i+1 do         if L[k] < L[k-1] then         Temp<-L[k];         L[k]<-L[k-1];         L[k-1]<-temp;         end if     End for     end for end. Untuk Pengurutan Seperti ini ganti Operator [<] menjadi [>]...

Struktur Data – Algoritma & Implementasi Buble Sort dalam Bahasa C/C++

Pada materi matakuliah struktur data ini, akan dibahasa salah satu metode pengurutan yang paling sederhana yaitu Buble sort (metode gelembung). Pada sesi ini akan dijelaskan tentang:Pengertian/konsep buble sort Kelebihan metode bubble sort Kelemahan metode bubble sort Algoritma buble sort Analisis Algoritma buble sort Implementai bubble sort dalam bahasa C atau C++ Pengertian/Konsep Buble SortMetode pengurutan gelembung (Bubble Sort) diinspirasikan oleh gelembung sabun yang berada dipermukaan air. Karena...

Pengertian Binary Search / Pencarian Biner

Sebuah algoritma pencarian biner (atau pemilahan biner) adalah sebuah teknik untuk menemukan nilai tertentu dalam sebuah larik (array) linear, dengan menghilangkan setengah data pada setiap langkah, dipakai secara luas tetapi tidak secara ekslusif dalam ilmu komputer. Sebuah pencarian biner mencari nilai tengah (median), melakukan sebuah pembandingan untuk menentukan apakah nilai yang dicari ada sebelum atau sesudahnya, kemudian mencari setengah sisanya dengan cara yang sama....