NuSinau

  • Computer
    • CMS
      • WordPress
    • Hardware
      • BIOS
    • Lecture
      • Data Structure
      • Linear Algebra
      • Object-oriented Programming
      • Programming Algorithms
    • Operating System
      • OpenSolaris
    • Programming
      • .NET
      • ASP / VbScript
      • C / C++
      • Delphi
      • HTML, XML, CSS
      • Java / Javascript
      • Pascal
      • PHP
      • SQL
      • Visual Basic
Illustration of a bird flying.
  • Program Penjualan

    Program_penjualan ; uses crt ; var pembelian,potongan : integer ; begin write (‘ total pembelian ‘ ); readln (pembelian); case pemotongan of =10000 : potongan := 1000; =100000 : potongan := 10000; end; writeln (‘ jumlah pembelian : ‘ ,pembelian) ; writeln (‘ potongan : ‘ ,potongan) ; write ( ‘ jumlah bayar : ‘…

    June 27, 2009
  • Program Nilai

    Program nilai ; Uses crt ; Var huruf : char ; Begin Write ( ‘ nilai yang didapat: ‘);readln (huruf) ; Case huruf of ‘A’ : writeln (‘sangat baik’) ; ‘B’ : writeln ( ‘baik ‘) ; ‘C’ : writeln ( ‘cukup’) ; ‘D’ : writeln ( ‘kurang’ ) ; ‘E’ : writeln ( ‘gagal’…

    June 27, 2009
  • Program Gaji

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

    June 27, 2009
  • Program Berat

    Program Berat_badan ; uses crt ; var berat : integer ; begin write ( ‘ masukkan berat badan : ‘ ); readln (berat) ; if berat > 37 then writeln (‘berat’); else writeln ( ‘ kurus ‘ ) ; readln ; end.

    June 27, 2009
  • Program Pencari Tanggal

    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 ini adalah ‘ ,days[dow],’, ‘,tg:0,’ ‘); case bl of 1:begin write(‘Januari’); end; 2:begin write(‘Februari’); end; 3:begin write(‘Maret’); end; 4:begin write(‘April’); end; 5:begin write(‘Mei’); end; 6:begin write(‘juni’); end; 7:begin write(‘Juli’); end; 8:begin write(‘Agustus’); end; 9:begin write(‘September’);…

    June 27, 2009
  • ARRAY PADA PASCAL

    Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array. Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100. A[1] A[2] A[3] A[4] A[5]…

    June 21, 2009
  • Pemrograman

    Definisi Program/Pemrograman • Adalah kumpulan instruksi-instruksi tersendiri yang biasanya disebut source code yang dibuat oleh programmer (pembuat program) • Program adalah kumpulan instruksi atau perintah yang disusun sedemikian rupa sehingga mempunyai urutan nalar yang tepat untuk menyelesaikan suatu persoalan. (Menurut P. Insap Santosa) • Instruksi (statement) yang dimaksud adalah syntax (cara penulisan) sesuai dengan bahasa…

    June 19, 2009
  • Algoritma dan Pemrograman

    Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis Algoritma adalah urutan logis pengambilan keputusan untuk pemecahan masalah Urutan logis berarti urutan langkah-langkah harus benar, dan langkah-langkah itu sendiri juga harus benar Tanpa disadari kita sering menerapkan algoritma dalam kehidupan sehari-hari Menyapu halaman Mencuci piring Mandi Dan banyak contoh lainnya … Setiap orang…

    June 19, 2009
  • Aplikasi Stack pada Struktur Data untuk Mengkonversikan Notasi INFIX Menjadi POSTFIX

    Listing Program Uses crt; const Noelstack = 80; Makschar = 80; Type Eon = char; stack = Record Top : array[1…Noelstack] of Eon; Noel : 0… Noelstack; End; Tipeindex = 0… makschar; Typeeks = array[1… Noelstack] of char Var lagi : char; {Bentuk-bentuk operasi stack} Function isempty(Var s : stack):Boolean; Begin IsEmpty : = s.…

    June 18, 2009
  • Program Banyak Huruf dalam Kalimat

    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 : ‘);readln(kata); for i:=1 to length(kata) do for j:=1 to 26 do if ord(upcase(kata[i]))=64+j then inc(n[j]); for i:=1 to 13 do writeln(chr(64+2*i-1),’ = ‘,n[2*i-1],’ ‘,chr(64+2*i),’ = ‘,n[2*i]); end.

    June 18, 2009
←Previous Page
1 … 4 5 6 7 8 … 13
Next Page→

NuSinau

Proudly powered by WordPress