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)