NuSinau

Pascal

  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

60 responses to “Pascal”

  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.

  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.

  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. 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. #

    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. 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. 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. Kak, aku mau tanya..
    klo string kan panjangnya 256 karakter, untuk membuat string dengan panjang 1000 karakter gmn,???
    jawab cepet ya……….

  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….

    • setau saya algoritma adalah langkah-langkah/proses sebuah program. Jadi sebelum kita membuat program buat dulu algoritmanya supaya kalo ada masalah tidak membuat kita pusing. sedangkan pascal/turbo pascal ada program yang berjalan di DOS dari pengembang Borland, pascal sendiri adalah bahasa pemrograman tingkat tinggi ada beberapa bahasa pemrograman tingkat tinggi semisa C++, Oracle, Ajax DSB (Dan Saya Bingung), ada lagi bahasa campuran kalo tidak salah namanya Assembler. Mungkin ada yang bisa koreksi pendapat saya?

  25. para ahli IT sekalian bantuin ane dong bkinin di pascal dengan soal
    input kode barang
    jika kode barang =’B001′ maka nama barang =’buku’ harga=2000
    jika kode barang =’B002′ maka nama barang =’pensil’ harga=1000
    jika kode barang =’B003′ maka nama barang =’penghapus’ harga=500
    input jumlah barang
    cetak total bayar adalah harga x jumlah barang.
    ane udah coba dari tadi siang, hasilnya nihil, ga ada yang bisa ngajarin,,
    semoga di bales yah gan, butuh banget nih..
    ane ga ngerti pas mesti di totalinnya..

  29. re

    @noer ilham
    program penjualan_rumah;
    uses crt;

    procedure input;
    var
    harga,uangmuka,sisa :extended;
    tipe:byte;
    kode:integer;

    begin
    writeln(‘Kode Rumah :’);
    writeln(‘1.tipe 21, Harga 55 juta’);
    writeln(‘2.Tipe 27, Harga 87 juta’);
    writeln(‘3.Tipe 36, Harga 126,5 juta’);
    writeln(‘4.Tipe 45, Harga 1,5 Miliar’);
    write(‘Pilihan Anda : ‘);
    readln(tipe);

    case tipe of
    1:
    begin
    kode:=21;
    harga:=55000000;
    uangmuka:=(20/100)*harga;
    sisa:=harga-uangmuka;
    end;
    2:
    begin
    kode:=27;
    harga:=87000000;
    uangmuka:=(20/100)*harga;
    sisa:=harga-uangmuka;
    end;
    3:
    begin
    kode:=36;
    harga:=126500000;
    uangmuka:=(20/100)*harga;
    sisa:=harga-uangmuka;
    end;

    4:
    begin
    kode:=45;
    harga:=1500000000;
    uangmuka:=(20/100)*harga;
    sisa:=harga-uangmuka;
    end;
    else
    begin
    writeln(‘Masukkan pilihan anda (1-4) !!!’);
    end;
    //end;
    end;
    writeln(‘Kode : ‘,kode);
    writeln(‘harga : ‘,harga:0:3);
    writeln(‘Uang Muka : ‘,uangmuka:0:3);
    writeln(‘Sisa : ‘,sisa:0:3);
    end;

    //program utamanya
    begin
    clrscr;
    writeln(‘——————Program penjualan Rumah——————‘);
    writeln(‘———————————————————–‘);
    input;
    readkey;
    end.

  30. mas mau, tanya bagaimana cara mengerjakan program pascal jika outputnya(hasilnya)
    seperti ini :
    masukkan jumlah bilangan : 4
    ———————————————————————————————————————–
    bilangan prima bilangan non prima
    ————————————————————————————————————————
    2 4
    3 6

    ——————————————————————————————————————–
    jumlah bilangan prima : 2
    jumlah bilangan non prima : 2
    terima kasih

  31. mas mau, tanya bagaimana cara mengerjakan program pascal jika outputnya(hasilnya)
    seperti ini :
    masukkan jumlah bilangan : 4
    ———————————————————————————————————————–
    bilangan prima bilangan non prima
    ————————————————————————————————————————
    2 4
    3 6

    ——————————————————————————————————————–
    jumlah bilangan prima : 2
    jumlah bilangan non prima : 2
    terima kasih dan tolong dibalas secepatnya

  33. bos!!! mantap…sering di apdet dong biar tugas ane sejaterah..eheheh o ya b d way napa tp.win 1.5 kagak bisa di ubah color nya( bukan kolor celana dalem) ahahah tp thema en colour textnya pdhal w dha buat sesuai perinth loh..mmhmm

  36. mas bisa mta tlong gx bikinin program pascal ttg penjualan
    dgan penjualan ditentukan dosen,dan mendapat potongan dari diler danpengecer
    dgan potongan 10%
    berapa keseluruhan autputy dr input yang diinsert mksh mas

  37. kk Bisa bantu aku ga??aku aada tugas dari dosen nih>,< aku d suru buat program apa aja tapi harus yang menunjukkan perpaduan STRUKTUR dan ARRAY.. thx kk.. kalo bisa tolong d taro d email aku yah.. pls bnget minggu depan d kumpul nih.. thx kk.. heheheh

  38. Agust :
    kk Bisa bantu aku ga??aku aada tugas dari dosen nih>,< aku d suru buat program apa aja tapi harus yang menunjukkan perpaduan STRUKTUR dan ARRAY.. thx kk.. kalo bisa tolong d taro d email aku yah.. pls bnget minggu depan d kumpul nih.. thx kk.. heheheh

    Email aku [email protected] ..Thx

  43. Mas2 dan mbak2 mau tanya, gmn yaa caranya ngebuat program pascal dengan keluaran seperti

    ini….

    Stok perangko :
    5000 : 10 lembar
    1000 : 10 lembar
    500 : 10 lembar

    Masukkan uang : 55000 ==> total yg bisa di beli hanya 65000
    Perangko anda : 10 lembar 5rb, 10 lembar 1000 dan 10 lembar500
    5000 : 10 lembar
    1000 : 5 lembar
    500 : 0 lembar
    Kembalian : 0

    Sisa stok :
    5000 : 0 lembar
    1000 : 5 lembar
    500 : 10 lembar

    dengan jumlah perangko yang tersedia pada mesin terbatas : 10 lembar 5000, 10 lembar 1000,

    dan 10 lembar 500. jadi kalo kita inputkan angka seperti di atas maka yg 5rb an gk bisa

    lebih dari jumlah stoknya yaitu 10 lembar, begitu pula yg 1000 dan 500. jadiTampilkan stok

    perangko sebelum dan sesudah transaksi.

  49. Kak bisa minta tolong ga bikinin aku program Algoritma(Buble Sort) yang mencakup tambah data, edit data, hapus data, dan yang terakhir dta tersebut tersusun berdasarkan abjad, misalkan

    1. nama budi
    alamat ……
    no tlp…….
    2. nama andi
    alamat ……
    no tlp…….
    tapi ketika pilih menu tampilkan andi menjadi urutan pertama.
    terimakasih kak sebelumnya, kalau kakak tidak keberatan membuatnya boleh email ke aku di ([email protected])..

  51. permisi,,,aku mw tanya ni,,,
    aku lagi bingung dsruh bwat program pertukaran be2rapa mata uang..minta tolong bisa gak kasi tau contoh program konverter beberapa mata uang…
    trima kasih bantuannya….

  53. mantap bued blogsnya,,, smpai mencuri hte,,,hahay,,,
    thanks bngts contoh2 progrmnya,,,,
    ya wlpun tgasnya bda dkit qta modif itung2 bljr,,, wkwkwkww,,,

  55. kak bisa minta tolong buatkan program untuk menentukan frekuensi kemunculan bilangan pada program pascal….
    yang ini soalnya kak….
    contohnya kita masukkan jumlah n nya ada 4 yaitu 7,4,8,4.
    dimana angka 7 muncul 1 kali.
    angka 4 muncul 2 kali.
    dan angka 8 muncul 1 kali.

    makasih….

  56. assalamualaikummas…
    mas bisa tolongin ga bikin listing program dgn menggunakan c++..saya newbie neh jdi di kasih penjelasanya juga ya..
    ini soalnya….

    buatlah program dgn menggunakan c++
    1.penjumlahan 2 buah matrik
    2.pengurangan 2 buah matriks..

    terima kasih sebelumnya…

  57. Mas tolong bantuin dong
    buat algoritma ja

    Menu Pilihan
    1. Isi Data Barang
    2. Tampil Data Barang
    (terurut secara Asc. berdasarkan Kode Barang)
    0. Keluar

    Data Barang terdiri dari Kode Barang, Nama Barang, Harga Beli, Harga Jual, Stok dalam bentuk array of record

Leave a Reply