Pascal

March 13th, 2010 Leave a comment Go to comments
  1. Struktur Program Pascal
  2. Konsep IF .. ELSE ..
  3. Contoh Looping
  4. Contoh Array
  5. Program Input Nilai Mahasiswa
  6. Program Data Pegawai
  7. Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
  8. Erika Array
  9. Erika Record
  10. Program Contoh Bulan
  11. Program Data Mahasiswa
  12. Program Penilaian Mahasiswa
  13. Contoh Program Record
  14. Intan Array
  15. Intan Record
  16. Program Menghitung Bulan
  17. Dirman Record
  18. Program Stat Game
  19. Program Bulan
  20. Program Faktorial
  21. Perintah With..Do dalam Pascal
  22. Program GJE (Gauss Jordan Exchange) dengan Pascal
  23. STATEMENT-STATEMENT PADA PEMOGRAMAN PASCAL
  24. Program PSB SMA Ver.1 Pascal
  25. MENU DAN EDITOR TURBO PASCAL 7.0
  26. ELEMEN – ELEMEN BAHASA DALAM PASCAL
  27. Struktur Kondisi dan Struktur Perulangan
  28. Program untuk Mencari Akar Persamaan Kuadrat
  29. Program Suhu
  30. Program Penjualan
  31. Program Nilai
  32. Program Gaji
  33. Program Berat
  34. Program Pencari Tanggal
  35. ARRAY PADA PASCAL
  36. Aplikasi Stack pada Struktur Data untuk Mengkonversikan Notasi INFIX Menjadi POSTFIX
  37. Program Banyak Huruf dalam Kalimat
  38. Program untuk Mengurutkan Data dengan Metode RADIX SORT
  39. Instruksi Pemilihan
  40. Tipe Data dan Operator
  41. Pandapotan Struktur Data
  42. Tipe Data, Variabel
  43. Perhitungan Gaji
  44. TAMBAHAN PERCABANGAN
  45. RINGKASAN PERCABANGAN
  46. STRUKTUR CASE OF ELSE
  47. STRUKTUR CASE OF
  48. STRUKTUR IF TERSARANG
  49. STRUKTUR IF THEN ELSE
  50. STRUKTUR IF THEN
  51. Dasar-dasar Mempelajari Struktur Data
  52. Rekursi
  53. Perulangan dalam Pascal
  54. ARRAY / LARIK
  55. Soal UTS Algoritma 08/09 No. 2 (procedure & function)
  56. Soal UTS Algoritma 08/09 No. 1 (function)
  57. Perulangan dengan Repeat Until
  58. Pengulangan dan Perbedaan Penggunaannya
  59. Tipe Data
  60. Program Konversi Suhu
  61. Membuat Piramid Bintang
  62. Program Kalkulator Sederhana
  63. Perulangan
  64. Dani Record
  65. Program Pertukaran Uang Rupiah dan Dolar
  66. Pandapotan Record
  67. Pandapotan Array
  68. Dani Array
  69. Aljan Array dan Record
  70. Hendra Array & Record
  71. Program yang Menggunakan Record
  72. Program Bilangan Prima dengan Menggunakan Bantuan Array
  73. ARRAY DAN RECORD
  74. Menghitung Hambatan
  75. Menentukan Bentuk Padat, Cair, Gas Benda
  76. Pengertian If..Else dan Contoh Programnya
  77. Program Counter Digital
  78. Program Bilangan Genap
  79. Program dengan Array of String
  80. Program Mencari Nilai Mata Uang
Bookmark and Share
  1. brata
    November 12th, 2009 at 22:41 | #1

    Em tolong dunk..gimana program konversi dari kg ke kwintal lalu ke ton dengan pascal..mohon bantuanya..

  2. Nu
    November 18th, 2009 at 00:39 | #2

    @brata
    di coba dulu donk .. trus kirim ke sini, nanti kita belajar bikin bareng .. :)

  3. zefri
    December 22nd, 2009 at 08:20 | #3

    bra klu misalnya ada soal seperti ini
    Tentukan Rata-rata gaji pak mamad selama 1 tahun
    gimana cara penyelesaiannya menggunakan while do.
    tolong kirim ke e-mail saya ya.
    zefri_syn@yahoo.co.id

  4. zefri
    December 22nd, 2009 at 10:02 | #4

    Nu mana balasannya..

  5. Nu
    December 22nd, 2009 at 13:50 | #5

    @zefri
    bisa itu dibuat, tapi detailnya mana nih?

    gaji pak mamad selama setahun tu dapet dari mana aja yak?

    mungkin seperti ini ya :
    http://www.nusinau.com/program-gaji/

    saya asumsikan kaya’ gitu aja dah ..
    lihat baris paling bawah (sebelum end.)

    gaji_bersih := gaji_kotor + pajak ;
    writeln ( ‘ Gaji Bersih: ‘ , gaji_bersih : 2 : 0 ) ;
    readln ;
    end.

    bisa ditambahkan :

    writeln (‘Gaji selama 1 tahun : ‘, gaji_bersih * 12);

    hasilnya jadi :

    gaji_bersih := gaji_kotor + pajak ;
    writeln ( ‘ Gaji Bersih: ‘ , gaji_bersih : 2 : 0 ) ;
    writeln (‘ Gaji selama 1 tahun : ‘, gaji_bersih * 12 : 2 : 0);
    readln ;
    end.

  6. loekman
    December 26th, 2009 at 21:44 | #6

    mas tolong buatkan aku program procedure yang didalamnya ada 10 program………..
    tolong ya masssssssss

    makasih sebelumnya…….?

  7. loekman
    December 26th, 2009 at 21:46 | #7

    oh ya maz tolong dikirim ke email saya………..

    luqman_hakiem@yahoo.co.id

  8. Nu
    December 26th, 2009 at 21:55 | #8

    @loekman
    ha?
    tugas dari dosen ya?
    hehehehehe …

  9. wahyu
    February 12th, 2010 at 06:51 | #9

    low program untuk membalik beberapaangka yang diinputkan gimana ya?

    tolong programnya seperti apa?

    trimakasih

    tolong krm ke e-mail saya ya

    w4hyu_cy83r@yahoo.co.id

  10. Nu
    February 23rd, 2010 at 12:16 | #10

    @wahyu
    bisa dijelaskan lebih detail?

  11. aLbab
    March 11th, 2010 at 21:54 | #11

    maaf,
    mau tanyak..
    untuk program mencari nilai mata uang gmn ya mas?
    pke struktur if else.
    misalnya uang yang kita masukin 100.000
    outputnya :
    1 lembar uang 100 rb dan 0 lembar uang 50 rb.
    itu gmn ya mas?

    trimakasiih sblmnya.

  12. Nu
    March 13th, 2010 at 12:47 | #12

    @aLbab
    Coba di cek di sini : Program Mencari Nilai Mata Uang
    Semoga membantu. :)

  13. April 9th, 2010 at 22:51 | #13

    hai semua leh tanya2 dong tapi jangan diketawain ya.. neewbie bangeth nie.. hhahahahaha, yg gw tanyai (lofika dari program ini gmn ya? gw bungung bgt nie, terutama yg bagian :
    Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);

    Uses Crt;
    Const N = 10;
    Var
    Nim : Array[1..N] Of integer;
    Nama : Array[1..N] Of String[20];
    IP : Array[1..N] Of real;
    I : Integer;
    Begin
    Clrscr;
    {Baca Data}
    Writeln(‘Masukkan’,N,‘buah data’);
    For I := 1 to N Do
    Begin
    Write(‘No.Mhs : ’);Readln(NIM[I]);
    Write(‘Nama Mhs : ’);Readln(Nama[I]);
    Write(‘IP Mhs : ’);Readln(IP[I]);
    End;
    {Cetak Hasil}
    Writeln(‘Daftar Nilai’);
    Writeln(‘No NIM NAMA IP’);
    For I := 1 to N Do
    Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);
    Readln
    End.

    (dijawab ya teman2.. thanks before) :)

  14. noer ilham
    April 18th, 2010 at 17:48 | #14

    kk saya minta tolong ter amat sangat minta tolong ..:
    bagaimana cara menggunakan pascal untuk menghitung
    biaya penjualan rumah apa bila…:

    INPUT => type rumah > 21 harga 55 juta
    > 27 harga 87 juta
    > 36 harga 126.500.000
    > 1,5 M
    dengan nama pelanggang iphul
    PROSES => uang muka 20% dari harga rumah

    OUTPUT = > harga rumah
    > unag muka
    > dan sisa.

    aku sangat memerlukan bantuan, tolong kirim lewat e-mail sayakk pls.
    sebelumnya saya ucapkan trima kaseh, dan maaf
    klo sangat merepotkan…..aku muhon.

  15. noer ilham
    April 18th, 2010 at 17:49 | #15

    #

    hai semua leh tanya2 dong tapi jangan diketawain ya.. neewbie bangeth nie.. hhahahahaha, yg gw tanyai (lofika dari program ini gmn ya? gw bungung bgt nie, terutama yg bagian :
    Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);

    Uses Crt;
    Const N = 10;
    Var
    Nim : Array[1..N] Of integer;
    Nama : Array[1..N] Of String[20];
    IP : Array[1..N] Of real;
    I : Integer;
    Begin
    Clrscr;
    {Baca Data}
    Writeln(‘Masukkan’,N,‘buah data’);
    For I := 1 to N Do
    Begin
    Write(‘No.Mhs : ’);Readln(NIM[I]);
    Write(‘Nama Mhs : ’);Readln(Nama[I]);
    Write(‘IP Mhs : ’);Readln(IP[I]);
    End;
    {Cetak Hasil}
    Writeln(‘Daftar Nilai’);
    Writeln(‘No NIM NAMA IP’);
    For I := 1 to N Do
    Writeln(‘I:2, Nim[I]:10, Nama[I]:15, IP[I]:6:2);
    Readln
    End.

    (dijawab ya teman2.. thanks before) :)
    #
    noer ilham
    April 18th, 2010 at 17:48 | #14
    Reply | Quote

    Your comment is awaiting moderation.

    kk saya minta tolong ter amat sangat minta tolong ..:
    bagaimana cara menggunakan pascal untuk menghitung
    biaya penjualan rumah apa bila…:

    INPUT => type rumah > 21 harga 55 juta
    > 27 harga 87 juta
    > 36 harga 126.500.000
    > 1,5 M
    dengan nama pelanggang iphul
    PROSES => uang muka 20% dari harga rumah

    OUTPUT = > harga rumah
    > unag muka
    > dan sisa.

    aku sangat memerlukan bantuan, tolong kirim lewat e-mail sayakk pls.ato di respon aja.
    sebelumnya saya ucapkan trima kaseh, dan maaf
    klo sangat merepotkan…..aku muhon.

  16. noer ilham
    April 18th, 2010 at 17:50 | #16

    kk saya minta tolong ter amat sangat minta tolong ..:
    bagaimana cara menggunakan pascal untuk menghitung
    biaya penjualan rumah apa bila…:

    INPUT => type rumah > 21 harga 55 juta
    > 27 harga 87 juta
    > 36 harga 126.500.000
    > 1,5 M
    dengan nama pelanggang iphul
    PROSES => uang muka 20% dari harga rumah

    OUTPUT = > harga rumah
    > unag muka
    > dan sisa.

    aku sangat memerlukan bantuan, tolong kirim lewat e-mail sayakk pls.ato di respon aja.
    sebelumnya saya ucapkan trima kaseh, dan maaf
    klo sangat merepotkan…..aku muhon.

  17. noer_ilham
    April 18th, 2010 at 18:30 | #17

    aku pemula neh aku mau tanaya, moon bantuannya.
    giaman cara menghitung biaya penjualan rumah dengan mnggunakan
    program pascal sbb……..:

    INPUT: kode rumah > 21 haraga 55 juta
    > 27 haraga 87 juta
    > 36 haraga 126.500.00
    > 45 haraga 1,5 M
    nama pelanggan ilham
    PROSES => uang muka > 20% dari harga rumah sisa
    OUTPUT => harga rumah
    > uang muka
    > sisa .
    saya teramat sangat mohon bantuannya dan sebelumnya saya ucapkan trima kaseh…..

  18. Bahrul Halimi
    April 22nd, 2010 at 09:43 | #18

    Kak, aku mau tanya..
    klo string kan panjangnya 256 karakter, untuk membuat string dengan panjang 1000 karakter gmn,???
    jawab cepet ya……….

  19. jenie
    May 28th, 2010 at 16:27 | #19

    mas bisa bantu bikin program gabungan input output, kondisi(if, case), perulangan, array, prosesur atau function gag? temanya bebas. aku udah nyoba dari kemaren tapi tetep aja gag bisa. please bantuin dong mas….

  20. eniee
    June 17th, 2010 at 15:54 | #20

    mas… tolong bantu dong.. contoh program GAME yang memakai stack.. mohon bantuanya dengan sangat..

  1. No trackbacks yet.