Posts Tagged ‘kode program turbo pascal’

Jika pada sebelumnya, kita sudah mempelajari tentang Aturan Penulisan Algoritma, maka sekarang akan kita implementasikan dalam bentuk wujud coding Turbo Pascal.

Diambil dari contoh 4, dengan contoh kasus adalah sebagai berikut.
Buatlah algoritma menghitung besar komisi seorang salesman, jika ketentuannya adalah salesman tersebut mendapatkan komisi sebesar 5% dari harga jual barang.

Penyelesaian :
Algoritma komisi salesman;

Deklarasi
harga jual, komisi : real;

Deskripsi
baca harga jual;
baca konstanta;
komisi = 5% * harga jual;
Output besar komisi;

Penyelesaian :

program komisii;
uses
    wincrt;
var
    h_jual : real;
    komisi : real;
begin
    writeln ('Masukkan harga penjualan : Rp '); readln(h_jual);
    writeln;
    komisi := 0.05 % h_jual;
    write ('Besar komisi yang diterima adalah : Rp ',komisi:0:2);
end.

Pembahasan :

  • program komisii, merupakan nama atau judul dari sebuah program turbo pascal. Perlu diketahui bersama bahwa nama atau judul yang diberikan kepada sebuah program tidak boleh sama dengan variable yang akan dicantumkan dalam program tersebut juga. Jika kita memberikan sebuah variable dengan nama variable komisi, maka nama program harus dibedakan menjadi komisii.
  • Tipe data variabel yang diberikan adalah tipe data Real karena hasil yang akan didapatkan nantinya akan berkemungkinan angka desimal (karena adanya perkalian terhadap persentase)
  • Writeln; dapat dijadikan sebagai penjarak satu spasi ke bawah
  • Hasil yang ditampilkan komisi:0:2, dikarenakan pada awalnya sudah terdefinisi bahwa tipe data yang diberikan kepada komisi adalah tipe data real, sehingga perlu dibatasi berapa angka dibelakang koma. Dalam hal ini komisi:0:2, berarti hasil dari komisi hanya dibatasi dua angka di belakang koma

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment – IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn.
Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.

Contoh penulisan kode program Turbo Pascal :

uses
    wincrt;
var
    nama : string [...];
    password : string [...];
    ok : string [...];
begin
    writeln('Silahkan masukkan nama Anda : '); readln (nama);
    writeln('Silahkan masukkan password Anda : '); readln (password);
    writeln('Nama Anda adalah : ', nama);
    writeln('Password Anda adalah : ', password);
    writeln('Ketik ok untuk pastikan : '); readln (ok);
    writeln('Selamat Datang di Dunia Pascal : ', nama);
    readln;
donewincrt;
end.

Adapun penjelasan dari kode yang digunakan di atas adalah sbb.

Uses Wincrt berfungsi sebagai unit yang berisi pengontrolan PC yang meliputi nama, keyboard, warna, dan juga suara.
Uses Wincrt ini memperbolehkan seorang user untuk menggunakan fasilitas – fasilitas lainnya di program tersebut.

Begin berfungsi untuk memulai blok program utama

Writeln berfungsi untuk menampilkan informasi untuk meminta user untuk memasukkan data

Readln berfungsi untuk membaca nilai variable dari data yang dimasukkan/ diminta oleh fungsi Writeln

End berfungsi untuk mengakhiri sebuah program.