Program Nilai

Jun 27, 2009 1 Comment

Program nilai ; Uses crt ; Var huruf : char ; Begin Write ( ‘ nilai yang didapat: ‘);readln (huruf) […]

Read more

Program Gaji

Jun 27, 2009 1 Comment

Program Gaji ; uses wincrt; var Nama,Nip : char ; gaji_pokok,gaji_kotor,tunjangan,pajak,gaji_bersih :real; begin writeln (‘ Gaji Pegawai ‘) ; write […]

Read more

Program Berat

Jun 27, 2009 No Comments

Program Berat_badan ; uses crt ; var berat : integer ; begin write ( ‘ masukkan berat badan : ‘ […]

Read more

Program Pencari Tanggal

Jun 27, 2009 No Comments

ProgramPencariHar; uses WinDos, Wincrt; const days:array [0..6] of string [9]= (‘Minggu’,’Senin’,’Selasa’,’Rabu’,’Kamis’,’Jumat’,’Sabtu’); var th, tg, bl, dow: word; begin GetDate(th,bl,tg,dow); write(‘Hari […]

Read more

ARRAY PADA PASCAL

Jun 21, 2009 8 Comments

Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan […]

Read more

Pemrograman

Jun 19, 2009 2 Comments

Definisi Program/Pemrograman • Adalah kumpulan instruksi-instruksi tersendiri yang biasanya disebut source code yang dibuat oleh programmer (pembuat program) • Program […]

Read more

Algoritma dan Pemrograman

Jun 19, 2009 3 Comments

Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis Algoritma adalah urutan logis pengambilan keputusan untuk pemecahan masalah […]

Read more

Aplikasi Stack pada Struktur Data untuk Mengkonversikan Notasi INFIX Menjadi POSTFIX

Jun 18, 2009 1 Comment

Listing Program Uses crt; const Noelstack = 80; Makschar = 80; Type Eon = char; stack = Record Top : […]

Read more

Program Banyak Huruf dalam Kalimat

Jun 18, 2009 No Comments

uses wincrt; var n:array[1..26] of integer; i,j:integer; kata : String; begin for i:=1 to 26 do n[i]:=0; write(‘Ketikkan sebuah kalimat […]

Read more

Program untuk Mengurutkan Data dengan Metode RADIX SORT

Jun 18, 2009 3 Comments

Uses WinCrt; Type Pointer = ^TypeData; TypeData = Record Nilai : integer; Berikutnya : Pointer; End; Pointer2 = Array[0..9] Of […]

Read more