Cara Membuat Program Sequentiel di Turbo Pascal

Tutorial ini hanyalah merupakan contoh dasar pembuatan program sequentiel di turbo pascal,,jika ingin membuat program yang lain,,caranya hampir sama dengan tutorial dibawah. Lebih lengkapnya silahkan perhatikan cara dasar pembuatan program sequentiel di turbo pascal.

1. Buka Program Turbo Pascal.
2. Setelah terbuka, masukkan perintah - perintah untuk membuat program seperti berikut
PROGRAM Belajar_Turbo_Pascal;
Uses Crt;
     Begin
     Clrscr;
     Writeln('Selamat Datang di Turbo Pascal 7.0');
     Writeln('---------------------------------');
     Writeln;
     Writeln('Anda Baru Belajar Turbo Pascal');
     Writeln('Gimana......Mudahkan?.......Jangan Cepat Bosan');
     Writeln('Anda Harus Bisa');
     Writeln('Ikuti Terus Petunjuk Instruktur');
     Writeln('Gitu aza Kok Repot');
     Writeln('Dan Jangan Segan-segan Bertanya OK.?');
     Writeln('---------------END---------------');
     Writeln;
     End.

3. Tampilan di Turbo Pascalnya seperti gambar ini





4. Kemudian cek apakah ada yang mengalami error dengan cara pilih Compile, maka akan muncul window seperti gambar dibawah. setelah muncul tulisan "compile successful",tekan tombol apa saja di keyboard.





5. Setelah itu pilih menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9.





6. Lalu pilih menu Debug dan pilih User screen atau bisa juga menggunakan kombinasi Alt dan F5 di keyboard.





7. Setelah memilih user screen,maka hasilnya akan seperti gambar dibawah yang menandakan program telah jadi....





8. Selanjutnya tekan tombol F2 di keyboard untuk menyimpan program yang dibuat tadi.

Cara Membuat Program Konversi Suhu

Suhu merupakan derajat panas atau dinginnya suatu benda yang biasanya dianyatakan dalam satuan derajat Celcius dan dapat diukur menggunakan alat yang biasa disebut Termometer. Ada beberapa skala satuan dalam suhu, yakni Celcius (C), Reamur (R), Fahrenheit (F), dan Kelvin (K).

Diantara skala satuan suhu yang ada, Celcius merupakan skala yang paling banyak digunakan negara-negara diseluruh dunia, kecuali negara-negara yang umumnya berbahasa inggris yang menggunakan skala Fahrenheit.

Kali ini saya akan memberikan cara membuat program konversi suhu dengan menggunakan Turbo Pascal yakni :

1. Buka Program Turbo Pascal.
2. Setelah terbuka, masukkan perintah - perintah untuk membuat program konversi suhu seperti berikut

program KonvensiSuhu;
uses crt;
var
  celcius                    :byte;
  reamur,fahrenheit     :real;
begin
clrscr;
   write('Input Derajat Celcius =');readln (celcius);
   fahrenheit  :=(9/5)*celcius+32;
   reamur       :=(4/5) * celcius;
   writeln('Derajat Fahrenheit =',fahrenheit:6:2);
   writeln('Derajat Reamur =',reamur:6:2);
   readln;

end.

3. Setelah perintah - perintah pembuatan programnya di masukkan, maka tampilan di Turbo Pascalnya seperti gambar dibawah ini

4. Kemudian cek apakah ada yang mengalami error dengan cara pilih Compile, maka akan muncul window seperti gambar dibawah. setelah muncul tulisan "compile successful",tekan tombol apa saja di keyboard.

5. Setelah itu pilih menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9.

6. setelah program di jalankan dengan mengunakan perintah RUN (Ctrl+F9) maka akan muncul pilihan "Input Derajat Celcius",,ketikkan angka yang menandakan derajat suhunya,sebagai contoh saya memasukkan 79, yang berarti 79 derajat celcius.

7. Setelah memasukkan angka 79, lalu tekan enter maka program akan secara otomatis mengkonversi celcius ke Farhrenheit dan Reamur.

8. Gimana??? Mudah kan.... Silahkan di prektekkan dirumah ya.... Jangan lupa, setelah jadi, programnya di save dengan mengunakan tombol F2 di keyboard.

Tutorial Membuat Program Penghitung Tagihan Telepon

Telepon merupakan suatu alat komunikasi jarak jauh yang saat ini banyak digunakan masyarakat diseluruh dunia. Namun tahukah anda bahwa kita bisa menghitung tagihan telepon yang kita miliki mengunakan suatu program yang dinamakan Turbo Pascal. Selanjutnya,saya akan memberikan tutorial step by step cara membuatnya....

Karena ini merupakan tutorial cara membuatnya, maka saya misalkan saja biaya langganan telepon perbulan itu 25000 dan tarif perpulsanya adalah 150. Selanjutnya kita buat programnya di turbo pascal.

1. Buka Program Turbo Pascal.

2. Setelah terbuka, masukkan perintah - perintah untuk membuat program konversi suhu seperti berikut

program HitungTagihan;
uses crt;
const tarif    =150;
      langganan=25000;
var
   pulsa      : byte;
   tagihan    : integer;
begin
clrscr;
 write('banyaknya pulsa =');readln(pulsa);
 tagihan :=(pulsa*tarif)+langganan;
 writeln('jumlah tagihan=',tagihan);
readln;
end.

3. Setelah perintah - perintah diatas di masukkan, maka tampilan di Turbo Pascalnya seperti gambar berikut

4. Lalu kita cek apakah ada perintah-perintah yang mengalami error dengan cara pilih Compile atau menggunakan kombinasi ALT+F9 di keyboard, maka akan muncul window seperti gambar dibawah. setelah muncul tulisan "compile successful",tekan tombol apa saja di keyboard.

5. Setelah itu pilih menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9.

6. Setelah program di jalankan dengan mengunakan perintah RUN (Ctrl+F9) maka dilayar akan muncul "banyaknya pulsa=",,masukkan angka yang menandakan banyaknya pulsa anda, contohnya saya memasukkan 20, yang berarti banyaknya pulsa saya sama dengan 20.

7. Setelah memasukkan banyaknya pulsa,tekan enter. Maka akan muncul jumlah tagihan yang harus kita bayar.

8. setelah programnya selesai dibuat,jangan lupa tekan tombol F2 untuk menyimpan program penghitung tagihan telpon yang dibuat tadi.

Tutorial Membuat Program Konversi Umur Dalam Jam

Umur atau biasa disebut usia merupakan satuan waktu yang mengukur waktu keberadaan suatu benda atau makhluk, baik yang hidup maupun yang mati . Misalkan saja, umur seseorang lima belas tahun berarti ia sudah ada sejak 15 tahun lalu. Namun, tahukah anda sudah berapa jam kita hidup didunia??? untuk mengitungnya, saya akan memberikan tutorial menghitung atau mengkonversi umur kita dalam satuan jam menggunakan Turbo Pascal. Untuk membuat programnya, ikuti saja langkah-langkah berikut

1. Buka Program Turbo Pascal.

2. Setelah turbo pascalnya terbuka, kita masukkan perintah-perintah sesuai dengan yang diketahui di soal diatas.

program MenghitungUmurDalamJam;
uses crt;
var
  tahun,bulan,hari : byte;
  jamTh,JamBulan,jamHari,jam : longint;
begin
clrscr;
    writeln('PROGRAM MENGHITUNG UMUR DALAM JAM');
    writeln('---------------------------------');
    writeln('Masukkan');

    write('Tahun =');readln(tahun);
    write('Bulan =');readln(bulan);
    write('hari  =');readln(hari);

    jamTh   := 365*24*tahun;
    jamBulan:= 30*24*bulan;
    jamHari := 24*hari;
    jam     := jamTh+jamBulan+jamHari;
    writeln('-------------------------');
    writeln('umur anda dalam jam adalah',jam,'jam');
readln;
end.

3. Tampilan perintah-perintah di atas pada Turbo Pascal seperti gambar ini

4. Setelah perintah tersebut selesai di masukkan pada turbo pascal, selanjutnya kita cek apakah ada yang error atau tidak dengan cara menekan kombinasi tombol ALT dan F9 di keyboard atau biasa di sebut COMPILE. Bila di window turbo pascal hasil compile tertulis  "compile successful" berarti tidak ada yang error. Next, tekan tombol apa aja di keyboard untuk lanjut ke step berikutnya.

5. Setelah tahap Compile selesai tanpa ada error, tekan tombol kombinasi Ctrl dan F9 di keyboard atau masuk di menu Run, lalu pilih Run untuk menjalankan program yang dibuat tadi.

6. Next, anda akan melihat hasil dari program konversi umur yang di buat tadi. masukkan umur kalian di program tersebut. Example, seseorang yang berumur 17 tahun 7 bulan 9 hari,,masukkan umurnya diprogram. Tahun = 17,lalu tekan enter

Bulan = 7, lalu tekan enter

Hari = 9, lalu tekan enter lagi untuk memulai konversi

Dan ternyata orang tersebut sudah berumur 154176 jam.

7. Finally...Program yang dibuat sudah jadi. Jangan lupa di simpan atau bahasa programnya di save agar bisa digunakan lagi ketika ingin menghitung umur saudara, teman, atau siapa pun. Caranya mudah kok,,tekan tombol F2 di keyboard, lalu ketikkan nama filenya (namanya terserah anda ya....), setelah itu di save.

Membuat Program Management Bus

Bus dan Mikrolet merupakan kendaraan umum yang sudah lazim digunakan banyak orang di seluruh negara. Diera modern seperti sekarang ini, pemilik atau owner kendaraan ini dapat menggunakan program dalam memanagement pengunaan sewa bus dan mikroletnya agar bisa mengefisiensi banyanknya penumpang dan busnya agar tidak ada lagi penumpang yang terlantar. Cara membuatnya pun relatif mudah yakni menggunakan program turbo pascal. Untuk membuatnya,kita gunakan contoh seperti berikut :

- Bus berkapasitas 50 orang
- Mikrolet berkapasitas 11 orang
dengan ketentuan : bus dan mikrolet akan berangkat jika penumpang telah memenuhi kapasitas,,jika terdapat kelebihan penumpang,maka dialihkan ke bus dan mikrolet yang lain.
- tujuan program untuk menghitung banyaknya bus dan mikrolet yang berangkat sesuai banyaknya penumpang agar tidak ada penumpang yang terlantar atau berdesak-desakan karna kelebihan muatan.

Dari ketentuan diatas, maka cara membuat programnya harus mengunakan permisalan
PD adalah Jumlah Penumpang yang mendaftar
BB adalah banyaknya bus yang berangkat
MK adalah banyaknya Mikrolet yang berangkat
SS adalah sisa penumpang jika bus telah penuh (memenuhi kapasitas muatan)

1. Buka Program Turbo Pascal.

2. Setelah terbuka, masukkan perintah - perintah untuk membuat program management bus seperti berikut

program MenghitungJumlahBusDanMicrolet;
uses crt;
var
   PD : integer;
   BB,MK,SS : integer;
begin
clrscr;
      writeln('PROGRAM MENGHITUNG JUMLAH PENUMPANG');
      writeln('-----------------------------------');

      write('Masukkan Jumlah Pendaftar =');readln(PD);

      BB := PD Div 50;
      MK := (PD Mod 50) Div 11;
      SS := (PD Mod 50) Mod 11;

      writeln('-------------------------------------');
      writeln('Jumlah Bus yang berangkat',BB,' Unit');
      writeln('Jumlah Microlet yang berangkat adalah',MK,'unit');
      writeln('Jumlah Sisa Pendaftar adalah',SS,'Orang');
readln;
end.

3. Setelah perintah - perintah pembuatan programnya di masukkan, maka tampilan di Turbo Pascalnya kurang lebih seperti ini

4. Kemudian cek apakah ada perintah yang mengalami error dengan cara di Compile mengunakan kombinasi ALT dan F9 di keyboard, setelah itu akan muncul window seperti gambar dibawah. Jika muncul tulisan "compile successful",tekan tombol apa saja di keyboard.

5. Setelah itu pilih menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9 untuk mengetest apakah program tersebut bisa digunakan atau tidak.

6. Setelah program di jalankan dengan mengunakan perintah RUN (Ctrl+F9) maka akan muncul pilihan "Masukkan jumlah pendaftar = ",,ketikkan angka yang menandakan banyak penumpang terdaftar. Lalu tekan enter untuk mengetahui jumlah bus dan mikrolet yang akan berangkat dan sisa penumpang yang belum mendapatkan bus dan mikrolet.

7. Jika programnya sudah berhasil, save programnya agar bisa digunakan lagi yakni menggunakan tombol F2 dikeyboard.

Cara Membuat Program Penghitung Sewa Angkutan

Turbo Pascal for fun. Siapa bilang turbo pascal tidak bisa dikaitkan dengan matematika??? kali ini saya akan memberikan contoh penggunaan turbo pascal dalam menghitung tarif angkutan sesuai jarak tempuhnya, "dimatematika juga banyak loh soal menghitung seperti ini,jadi bisa berguna untuk teman-teman dalam menyelesaikan soal seperti itu".

Untuk membuatnya kita gunakan permisalan seperti ini
tarif angkutan untuk 1 KM pertama adalah Rp. 4500,dan selanjutnya Rp. 2000

1. Mula-mula, buka program Turbo Pascal.

2. Setelah terbuka, input perintah - perintah untuk membuat program menghitung tarif angkutan seperti berikut

uses crt;
const
   pertama  =4500;
   lanjut   =2000;
var
    jarak,bayar : integer;
begin
clrscr;
   write('Jarak Tempuh (Km) =');readln(jarak);
   if jarak>1 then
   begin
     bayar := pertama+(jarak*lanjut);
    end
    else
      bayar := pertama;
      writeln('bayarnya = Rp.',bayar);
    readln;
    end.

3. Setelah perintah - perintah pembuatan programnya di masukkan, tampilan di Turbo Pascalnya seperti gambar berikut

4. Lalu kita cek apakah ada yang error dengan menggunakan kombinasi tombol ALT dan F9 di keyboard atau istilah turbo pascalnya di Compile, setelah itu akan muncul tampilan seperti gambar dibawah. Jika di window tertulisan "compile successful", maka tekan tombol apa saja di keyboard untuk lanjut ke proses berikutnya.

5. Setelah itu masuk ke menu Run lalu pilih Run atau bisa juga dengan menggunakan kombinasi tombol Ctrl dan F9 di keyboard.

6. Next kita lihat hasilnya dengan menekan tombol ALT dan F5 secara bersamaan atau bisa juga dengan masuk ke menu Debug lalu pilih User screen

7. Hasil running program yang kita buat tadi akan muncul tulisan "jarak Tempuh (Km)", maka masukkan jarak tempuhnya dalam angka. Ingat, jarak tempuh yang dimasukkan harus dikurangkan 1. Misalnya jarak tempuh yang akan dilalui 13 Km, nah kita kurangkan 1 (jarak awal dengan tarif yang berbeda).
Jadi 13-1 = 12. masukkan angka 12 di program lalu tekan enter. Hasilnya akan tampak bahwa kita harus membayar Rp. 28.500.
Kita tes dalam perhitungan matematika : jarak 13 Km,tarif 1 Km pertama Rp.4500 dan tarif selanjutnya Rp.2000 per Km. Jadi tarif untuk Km ke 2 sampai 13 :
2,3,4,5,6,7,8,9,10,11,12,13 (Km), berarti ada 12 tahapan. 12 x Rp.2000 = Rp. 24000
tarif Km ke 1 = Rp. 4500. Totalnya Rp. 24000 + Rp. 4500 =Rp. 28500

8. Setelah programnya jadi, jangan lupa di save (tekan F2 di keyboard).

Tutorial Membuat Program Kasir Sederhana

Hal yang paling penting dalam suatu usaha penjualan barang dan jasa adalah kualitas pelayanan yang diberikan, konsumen akan merasa puas jika pelayanan yang diberikan sangat baik. Oleh karena itu, keberhasilan suatu produk juga sangat ditentukan dari baik atau tidaknya pelayanan yang diberikan perusahaan dalam memasarkan produknya, baik itu pelayanan sewaktu memberikan penawaran produk, pelayanan keramahan dalam wiraniaga pelayanan kasir, pelayanan terhadap pengaturan parkir, hingga pelayanan terhadap kondisi produk pasca pembelian.

Salah satu usaha meningkatkatkan pelayanan dalam berniaga adalah adanya suatu program yang dapat mempermudah kasir dalam menginput transaksi jual beli, sehingga kepercayaan konsumen bisa lebih ditingkatkan. Oleh karna itu, Punkgawa Planner akan memberikan contoh sederhana dalam membuat program yang berguna bagi kasir. Tentunya menggunakan program Turbo Pascal.

Caranya mudah kok.....ikuti saja step by step cara membuatnya dibawah ini

1. buka notepad ++ lalu pastekan kode program dibawah dan simpan dengan nama Kasir.PAS (di simpan dengan nama lain juga boleh, yang penting format filenya harus .PAS agar bisa dibuka menggunakan program Turbo Pascal)

Program Kasir;

uses

    crt;

label

     awal,exit;

var

   nam_bar  :String;{nama barang} 

   har_sat  :Real  ;{harga satuan}

   ban_bar  :Real  ;{banyak barang}

   tot_har  :Real  ;{total harga}

   uang_cash:Real  ;{uang cash}

   pot_har  :Real  ;{potongan harga}

   kemb     :Real  ;{kembalian}

   non_pot  :Real  ;{non potongan}

   ya       :char  ;{kembali ke awal}

begin

     awal:

     clrscr;

     writeln('          SELAMAT MENCOBA PROGRAM KASIR SEDERHANA BUATAN PUNKGAWA PLANNER');

     write('Nama Barang             : ');readln(nam_bar);

     write('Harga Satuan            : Rp.');readln(har_sat);

     write('Banyak Barang           : ');readln(ban_bar);

     tot_har:=(har_sat*ban_bar);

     writeln('Total Harga             : Rp.',tot_har:1:0);

     if tot_har >=5000 then

     pot_har:=(0.1*tot_har);                  

     if tot_har <500 then

     pot_har:=(0.0*tot_har);                  

     writeln('Potongan Harga          : Rp. ',pot_har:1:0);

     write('Uang Cash               : Rp.');readln(uang_cash);

     kemb:=(uang_cash)-(tot_har-pot_har);

     writeln('Uang Kembalian          : Rp. ',kemb:1:0);

     write('Masukkan Data Lagi(y/n) ? ');readln(ya);

     if ya='y' then

     goto awal

     else if ya='n' then

     goto exit;

     exit:

end.

2. Next, setelah di save, buka program Turbo Pascal.

3. Setelah terbuka, pilih menu File, lalu open dan pilih filenya, dalam hal ini Kasir.PAS

4. Kemudian lakukan perinta Compile untuk mengecek data yang diinput tadi, apakah ada yang error atau tidak dengan menekan kombinasi tombol ALT dan F9. Jika ada yang error perbaiki file yang tadi (biasanya turbo pascal akan memberitahu letak data yang error). Namun jika tidak ada yang error, anda bisa lanjut ke tahap berikutnya yaitu menjalankan atau merunning data program yang dibuat tadi

5. Tekan kombinasi tombol CTRL dan F9 untuk melakukan proses RUN program.

6. Next, Sekarang anda bisa melihat hasilnya dengan menekan tombol ALT dan F5 secara bersamaan.

Hasil running program yang dibuat tadi seperti ini :

contoh :

Nama Barang : (ketik nama barangnya, lalu tekan enter)

Harga Satuan : (ketik harga barangnya, lalu tekan enter)

Banyak Barang : (ketikkan berapa banyak barang yang dibeli, lalu tekan enter)

Total Harga : (akan terinput otomatis sesuai harga dan banyak barang,)

Potongan Harga : (otomatis terdeteksi sesuai data yang di buat tadi)

Uang cash : (ketik nominal uang yang digunakan konsumen, lalu tekan enter)

Uang Kembalian : (otomatis dikalkulasi sesuai uang konsumen - total harga)

Masukkan Data lagi (y/n) ? (tekan y untuk membuat daftar pembelian baru, tekan n untuk keluar dari program)

program belajar turbo pascal

 Buatlah program sebagai berikut:

PROGRAM Belajar_Turbo_Pascal ;

Uses Crt;

Begin

Clrscr;

Writeln (‘Selamat Datang di Turbo Pascal 7.0 ‘)

Writeln(‘_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ‘) ;

Writeln;

Writeln (‘Anda Baru Belajar Turbo Pascal ‘) ;

Writeln (‘Gimana. . . . Mudahkan? . . Jangan Cepat Bosan’) ;

Writeln (‘Anda Harus Bisa’) ;

Writeln (‘Ikuti Terus Petunjuk Instruktur’) ;

Writeln (‘Gitu Aza Koq Repot’ ) ;

Writeln (‘Dan Jangan Segan-Segan Bertanya Ok. ? ‘ ) ;

Writeln;

End.

jawab :

1.     Install program pascal

2.    Kemudian jalankan program.

3.    Lalu setelah program pascal sudah berjalan, masukan perintah-perintah untuk membuat program seperti gambar dibawah ini:

   4. Kemudian cek apakah ada yang mengalami kesalahan dalam pengisian dengan cara masuk ke compile® compile dan akan muncul  seperti dibawah ini:

5.     Selanjutnya pilih menu Run

Tutorial Membuat Program Kasir Sederhana

Hal yang paling penting dalam suatu usaha penjualan barang dan jasa adalah kualitas pelayanan yang diberikan, konsumen akan merasa puas jika pelayanan yang diberikan sangat baik. Oleh karena itu, keberhasilan suatu produk juga sangat ditentukan dari baik atau tidaknya pelayanan yang diberikan perusahaan dalam memasarkan produknya, baik itu pelayanan sewaktu memberikan penawaran produk, pelayanan keramahan dalam wiraniaga pelayanan kasir, pelayanan terhadap pengaturan parkir, hingga pelayanan terhadap kondisi produk pasca pembelian.

Salah satu usaha meningkatkatkan pelayanan dalam berniaga adalah adanya suatu program yang dapat mempermudah kasir dalam menginput transaksi jual beli, sehingga kepercayaan konsumen bisa lebih ditingkatkan. Oleh karna itu, Punkgawa Planner akan memberikan contoh sederhana dalam membuat program yang berguna bagi kasir. Tentunya menggunakan program Turbo Pascal.

Caranya mudah kok.....ikuti saja step by step cara membuatnya dibawah ini

1. buka notepad ++ lalu pastekan kode program dibawah dan simpan dengan nama Kasir.PAS (di simpan dengan nama lain juga boleh, yang penting format filenya harus .PAS agar bisa dibuka menggunakan program Turbo Pascal)

Program Kasir;

uses

    crt;

label

     awal,exit;

var

   nam_bar  :String;{nama barang} 

   har_sat  :Real  ;{harga satuan}

   ban_bar  :Real  ;{banyak barang}

   tot_har  :Real  ;{total harga}

   uang_cash:Real  ;{uang cash}

   pot_har  :Real  ;{potongan harga}

   kemb     :Real  ;{kembalian}

   non_pot  :Real  ;{non potongan}

   ya       :char  ;{kembali ke awal}

begin

     awal:

     clrscr;

     writeln('          SELAMAT MENCOBA PROGRAM KASIR SEDERHANA BUATAN PUNKGAWA PLANNER');

     write('Nama Barang             : ');readln(nam_bar);

     write('Harga Satuan            : Rp.');readln(har_sat);

     write('Banyak Barang           : ');readln(ban_bar);

     tot_har:=(har_sat*ban_bar);

     writeln('Total Harga             : Rp.',tot_har:1:0);

     if tot_har >=5000 then

     pot_har:=(0.1*tot_har);                  

     if tot_har <500 then

     pot_har:=(0.0*tot_har);                  

     writeln('Potongan Harga          : Rp. ',pot_har:1:0);

     write('Uang Cash               : Rp.');readln(uang_cash);

     kemb:=(uang_cash)-(tot_har-pot_har);

     writeln('Uang Kembalian          : Rp. ',kemb:1:0);

     write('Masukkan Data Lagi(y/n) ? ');readln(ya);

     if ya='y' then

     goto awal

     else if ya='n' then

     goto exit;

     exit:

end.

2. Next, setelah di save, buka program Turbo Pascal.

3. Setelah terbuka, pilih menu File, lalu open dan pilih filenya, dalam hal ini Kasir.PAS

4. Kemudian lakukan perinta Compile untuk mengecek data yang diinput tadi, apakah ada yang error atau tidak dengan menekan kombinasi tombol ALT dan F9. Jika ada yang error perbaiki file yang tadi (biasanya turbo pascal akan memberitahu letak data yang error). Namun jika tidak ada yang error, anda bisa lanjut ke tahap berikutnya yaitu menjalankan atau merunning data program yang dibuat tadi

5. Tekan kombinasi tombol CTRL dan F9 untuk melakukan proses RUN program.

6. Next, Sekarang anda bisa melihat hasilnya dengan menekan tombol ALT dan F5 secara bersamaan.

Hasil running program yang dibuat tadi seperti ini :

contoh :

Nama Barang : (ketik nama barangnya, lalu tekan enter)

Harga Satuan : (ketik harga barangnya, lalu tekan enter)

Banyak Barang : (ketikkan berapa banyak barang yang dibeli, lalu tekan enter)

Total Harga : (akan terinput otomatis sesuai harga dan banyak barang,)

Potongan Harga : (otomatis terdeteksi sesuai data yang di buat tadi)

Uang cash : (ketik nominal uang yang digunakan konsumen, lalu tekan enter)

Uang Kembalian : (otomatis dikalkulasi sesuai uang konsumen - total harga)

Masukkan Data lagi (y/n) ? (tekan y untuk membuat daftar pembelian baru, tekan n untuk keluar dari program)

Membuat Program Form Transaksi di Turbo Pascal

Form Transaksi Penjualan merupakan hal yang penting dalam memanagement data penjualan barang bagi suatu perusahaan atau toko. Pemilik usaha yang akan melakukan transaksi jual beli dapat mengimput total penjual dan nama item yang dibeli serta dapat dengan cepat mengkalkulasi total harga jika konsumen melakukan pembelian dalam jumlah banyak. Untuk membuat form ini dapat menggunakan program turbo pascal dengan langkah-langkah berikut

1. Salin data program berikut dan copy ke notepad ++, lalu save menggunakan eksitensi .PAS agar data tersebut bisa terbaca di program turbo pascal

Program kasir_Array; 

Uses crt;

Type Kasir = record 

     no_trans, tgl, nama, nm_brg : String[10]; 

     kd_brg, jml : byte; 

     hrg, tot : real; 

     End; 

Var 

   Data : Array [1..100] of Kasir; 

   Ul : Char; 

   i,n, x : Integer; 

   jml_penjualan : real; 

Begin 

     Repeat 

     Clrscr; 

     i:=i+1; 

     Writeln('          Punkgawa Planner         ');

     Writeln('  Jl. Perintis Kemerdekaan Makassar  ');

     Writeln('========================================');

     Writeln;

     writeln('             Form Transaksi             ');

     writeln;

     Writeln('Data Ke-',i);

     Writeln;

     Write('No Transaksi : ');Readln(Data[i].no_trans);

     Write('Tanggal      : ');Readln(Data[i].tgl);

     Write('Nama Pembeli : ');Readln(Data[i].nama);

     Write('Kode Barang  : ');Readln(Data[i].kd_brg);

      if Data[i].kd_brg  = 1 then

        begin

        Data[i].nm_brg  :='Processor Core i3';

        Data[i].hrg     :=1131000;

        end

     else if Data[i].kd_brg = 2 then

        begin

        Data[i].nm_brg  :='Printer';

        Data[i].hrg     :=500000;

        end

     else if Data[i].kd_brg = 3 then

        begin

        Data[i].nm_brg  :='Harddisk';

        Data[i].hrg     :=700000;

        end

     else if Data[i].kd_brg = 4 then

        begin

        Data[i].nm_brg  :='Flash Disk';

        Data[i].hrg     :=100000;

        end

     else if Data[i].kd_brg = 5 then

        begin

        Data[i].nm_brg  :='Mouse';

        Data[i].hrg     :=125000;

        end

     else if Data[i].kd_brg = 6 then

        begin

        Data[i].nm_brg  :='VGA Nvidia';

        Data[i].hrg     :=400000;

        end

     else if Data[i].kd_brg = 7 then

        begin

        Data[i].nm_brg  := 'Memory DDR3';

        Data[i].hrg     := 235000;

        end

     else if data[i].kd_brg = 8 then

        begin

        data[i].nm_brg  := 'Monitor';

        data[i].hrg     := 750000;

        end;

     Writeln('Nama Barang  : ',Data[i].nm_brg);

     Writeln('Harga        : ',Data[i].hrg:0:0);

     Write  ('Jumlah Beli  : ');Readln(Data[i].jml);

     Data[i].tot:=Data[i].jml*Data[i].hrg;

     writeln('Total Bayar  : ',Data[i].tot:0:0);

     Writeln;

     write('Tambah Data (Y/T) : ');readln(Ul);

     until upcase (Ul) <> 'Y';

      n:=i;

     Clrscr;

     gotoxy(1,1);Write('============================ Punkgawa Planner =============================');

     gotoxy(1,2);Write('=========================================================================');

     gotoxy(1,3);write('|No.Tran |Tanggal |Nama Pembeli |Nama Barang  |Harga      |Jumlah |Total       |');

     gotoxy(1,4);Write('=========================================================================');

     For x := 1 to n do

     begin

     gotoxy(1,x+4);write('|');

     gotoxy(2,x+4);write(x);

     gotoxy(10,x+4);write('|');

     gotoxy(11,x+4);write(data[x].tgl);

     gotoxy(19,x+4);write('|');

     gotoxy(20,x+4);write(data[x].nama);

     gotoxy(33,x+4);write('|');

     gotoxy(34,x+4);write(data[x].nm_brg);

     gotoxy(47,x+4);write('|');

     gotoxy(48,x+4);write(data[x].hrg:0:0);

     gotoxy(59,x+4);write('|');

     gotoxy(60,x+4);write(data[x].jml);

     gotoxy(67,x+4);write('|');

     gotoxy(68,x+4);write(data[x].tot:0:0);

     gotoxy(80,x+4);write('|');

     jml_penjualan:=jml_penjualan+Data[x].tot;

     end;

     Write('================================================================================');

     Writeln('Jumlah Transaksi : ', i);

     Writeln('Jumlah Penjualan : Rp.',jml_penjualan:0:0);

     readln;

End.

2. Contoh diatas menggunakan item dari barang-barang tekhnologi, anda bisa merubahnya sesuai jenis usaha jual beli yang anda miliki.

3. Buka program Turbo Pascal, lalu klik file dan pilih open. setelah itu buka data diatas yang telah anda save tadi.

4. Setelah terbuka, cek data tersebut apakah terdapat pesan error atau tidak dengan cara menekan kombinasi tombol ALT+F9 secara bersamaan di keyboard, lalu menu layanan Compile akan muncul. Pada tahap ini, turbo pascal akan memberitahukan letak data jika ada yang error. Data yang error bisa anda benarkan sesuai petunjuk pada pesan error tersebut.

5. Jika tidak ada yang error, tekan tombol CTRL+F9 untuk menjalankan program, pada turbo pascal disebut RUN.

6. Next, tekan kombinasi tombol ALT+F% untuk melihat hasil running dari program yang dibuat tadi. Tampilan hasil running program tersebut akan tampak seperti gambar berikut

Pada akhir Form Transaksi tersebut terdapat kalimat "Tambah Data (Y/T) : _" 

- tekan Y jika anda ingin lanjut ke form transaksi selanjutnya (Data Ke-2)

- tekan T jika tidak ada transaksi lagi, maka program akan keluar secara otomatis.

Program Penghitung Gaji Karyawan

Masih berbicara tentang pembuatan program di turbo pascal. Namun kali ini pprogram yang akan dibuat akan bermanfaat bagi para burh karyawan maupun pemilik perusahaan. Nama programnya yakni penghitung besarnya gaji. langsung saja dipraktekkan cara membuatnya

1. Buka program turbo pascal dan salin kode data program dibawah

program MenghitungGajiKaryawan;
uses crt;
var
  nama,kode,jabatan : string;
  GP,TT,TM,Total : longint;
begin
clrscr;
  writeln('LAPORAN GAJI KARTYAWAN PT ABC');
  writeln('-----------------------------');
  writeln('');
  writeln('Untuk Mengetahui Gaji yang anda terima silahkan masukkan:');
   write ('Nama Anda:'); readln (nama);
   write ('Kode Jabatan 1-5:'); readln (kode);
  begin;
  if Kode= '1' then
  begin
     jabatan :='Direktur';
     GP      :=3000000;
     TT      :=850000;
     TM      :=500000;
  end
  else if Kode= '2' then
  begin
     jabatan :='Wakil Direktur';
     GP      :=2500000;
     TT      :=800000;
     TM      :=500000;
  end
  else if Kode= '3' then
  begin
     jabatan :='manajer';
     GP      :=2000000;
     TT      :=800000;
     TM      :=450000;
  end
  else if Kode= '4' then
  begin
     jabatan :='asisten';
     GP      :=1500000;
     TT      :=700000;
     TM      :=400000;
  end
  else if Kode= '5' then
  begin
     jabatan :='karyawan';
     GP      :=1000000;
     TT      :=500000;
     TM      :=300000;
  end
  end;
clrscr;
  total:= GP+TT+TM;
  writeln('LAPORAN GAJI KARYAWAN PT ABC');
  writeln('----------------------------');
  writeln('');
  writeln('Data Anda :');
  writeln('nama karyawan:', nama);
  writeln('jabatan:', jabatan);
  writeln('');
  writeln('');
  writeln('Adapun Rincian Gaji Anda sbb:');
  writeln('gaji pokok:Rp.',GP);
  writeln('tunjangan transp:Rp.',TT);
  writeln('tunjangan makan:Rp.',TM);
  writeln('Total Gaji:Rp.',Total);
  readln;
  end.

2. Kemudian Compile datanya dengan menggunakan menu Compile atau bisa juga dengan menekan tombo ALT dan F9 secara bersamaan. Tujuan agar turbo pascal dapat mengecek data program tersebut sudah benar atau ada kesalahan yang biasa di sebut ERROR.

3. Jika data tersebut sudah benar (tanpa ada pesan ERROR lagi), tekan CTRL+F9 untuk merunning program tersebut.

4. silahkan cek hasil program yang dibuat tadi dengan menggunakan tombol ALT+F5. Hasil running programnya akan terlihat seperti gambar berikut

Program Untuk menghitung Bonus Pegawai

Bonus adalah hal yang paling di impikan para karyawan. Meskipun bonus ini jarang diberikan,namun sangat bermanfaat dalam menambah pundi-pundi hasil keringat pegawai. Bagi para Direktur atau pemilik perusahaan dalam menghitung bonus para pegawainya dapat menggunakan program yang satu ini. langsung saja kita praktekkan cara membuatnya

1. Buka turbo pascal dan salin data dibawah agar bisa digunakan untuk membuat program penghitung bonusnya

uses crt;

var

  Nama,jab   : string;

  umur       : integer;

  LK         : byte;

  bonus      : real;

begin

clrscr;

   writeln('menentukan bonus pegawai');

   writeln('------------------------');

   write('masukkan nama ='); readln(nama);

   write('masukkan jabatan [s/ns]='); readln (jab);

   write('masukkan umur ='); readln (umur);

   write('masukkan lama kerja ='); readln (lk);

   writeln('---------------------');

   if jab= 's' then

begin

   if (umur>=50) and (LK>=5) then

   begin

   jab := 's';

   bonus :=2500000;

   end;

   end;

writeln('bonus',nama,'=',bonus:5:0);

readln;

end.

2. Setelah di salin di turbo pascal, kita cek dulu datanya apakah ada data yang error atau tidak. Caranya tekan ALT+F9 agar bisa masuk ke layanan Compile. Setelah proses compile selesai, turbo pascal akan memberitahukan jika ada yang error. Biasanya akan diberikan info line mana yang error. Namun jika tidak error,maka lanjutkan ke proses running program

3. Tekan CTRL+F9 untuk menggunakan layanan running program.

4. Setelah program selesai di run, tekan ALT+F5 untuk mengecek hasilnya. Window turbo pascal akan terlihat seperti berikut

5. Sebelum programnya di close, jangan lupa disave dengan menggunakan tombol F2. Lalu ketikkan namanya, misalkan Bonus.pas.