Contoh Program Dasar Turbo Pascal

Contoh Program

Dasar Turbo Pascal

Oleh: yusrifal

Contoh Program Dasar Turbo Pascal

Ini adalah sebuah contoh program yang saya buat di waktu luang, saya menyadari ada beberapa orang yang ketika diajari cara menggunakan Turbo Pascal tidak cukup dengan teori saja namun juga membutuhkan contoh program beserta kode programnya. Artikel ini saya tulis untuk membantu anda memahami kode program Turbo Pascal yang saya buat agar anda bisa mengembangkan kode program berdasarkan logika anda sendiri. Anda juga boleh membagikan kode program ini pada siapapun dan membuat kesan bahwa andalah yang membuatnya, tapi dosanya tanggung sendiri ya (hhehehehe....).

Program yang saya buat ini terdiri atas kumpulan contoh program yang pernah saya dapatkan di mata kuliah bahasa pemrograman yang saya gabungkan semuanya menjadi satu, program tersebut antara lain:

• Luas Persegi Panjang
• Luas Lingkaran
• Luas Segitiga 
• Program Penilai Kuliah

LUAS PERSEGI PANJANG

Rumus untuk penghitung luas dan keliling persegi panjang adalah :

Luas = panjang x lebar

Pada program ini kita diminta memasukkan ukuran luas persegi panjang,

uses wincrt;

var  luas    :INTEGER;

        PJ        :INTEGER;

        LB       :INTEGER;

begin

   PJ:=6;

   LB:=8;

   Luas:=PJ * LB;

   write (' Luas PERSEGI PANJANG =',luas);

END.

Pada contoh diatas, saya memasukkan ukuran panjang 6 dan ukuran lebar 8 setelah di Run maka hasilnya adalah 48.

LUAS LINGKARAN

Penghitung luas lingkaran menggunakan rumus di bawah ini :

Luas = π x r 2

Maksud rumus diatas adalah Luas = Pi x jari-jari x jari-jari, bagi yang masih ingat pelajaran matematika di sekolah tentunya tahu bahwa nilai dari Pi adalah 3.14 dan pada program penghitung ini

hanya diminta menginput ukuran dari jari-jari sebuah lingkaran.

Kode Program Luas Lingkaran:

uses wincrt;

var  luas   :real;

        pi      :real;

        jari    :real;

begin

  jari:=11;

  pi  :=3.14;

  Luas:=pi * (jari*jari);

  write (' Luas LINGKARAN =',luas:4:2);

END.

Pada contoh diatas misalnya kita memasukkan ukuran jari-jari lingkaran 3.5 dan program menampilkan hasilnya yaitu luas lingkarannya 38.47

LUAS SEGITIGA

Rumus untuk menghitung luas segitiga adalah sebagai berikut:

Luas = 0.5 x alas x tinggi

Rumus diatas menjelaskan bahwa luas segitiga diketahui setelah menghitung 0.5 dikalikan ukuran alas segitiga dikalikan ukuran tinggi segitiga.

Kode Program Luas Segitiga:

uses wincrt;

var AL,TG,LUAS : REAL;

   begin

     gotoxy(5,5); write ('MASUKKAN NILAI ALAS    : ');READLN(AL);

     gotoxy(5,6); write ('MASUKKAN NILAI TINGGI  : ');READLN(TG);

     luas:=0.5*al*tg;

     gotoxy(5,8); write ('LUAS SEGITIGA :', luas:3:2);

 end.

kemudian kita diminta masukkan nilai alas dan nilai tinggi kemudian tekan enter dan hasilnya akan keluar secara otomatis

PROGRAM PENILAI KULIAH

Program penilai kuliah ini adalah program penghitung nilai seorang mahasiswa ,apakah dia mendapat nilai A,B,C,D atau E dengan cara memesukkan nilai  kemudian tekan enter dan nilainya akan keluar secara otomatis

uses wincrt;

var nilai :integer;

begin

 gotoxy(5,5); write('masukkan nilai : ');readln(nilai);

 if nilai<=50 then

  begin

   gotoxy(5,8); write ('E');

  end

 else if nilai <=65 then

  begin

   gotoxy(5,8); write ('D');

  end

 else if nilai <=75 then

  begin

   gotoxy(5,8); write ('C');

  end

 else if nilai <=85 then

  begin

   gotoxy(5,8); write ('B');

  end

 else if nilai <=100 then

  begin

   gotoxy(5,8); write ('A');

  end

 else if nilai >=100 then

  begin

   gotoxy(5,8); write ('salah');

  end

end.

CATATAN :

di program ini saya membuat nilai sebagai berikut:

jika nilai <=50 maka hasilnya E

jika nilai <=65 maka hasilnya D

jika nilai <=75 maka hasilnya C

jika nilai <=85 maka hasilnya B

jika nilai <=100 maka hasilnya A

jika nilai >=100 maka hasilnya salah

nilai ini bias di ubah sesuai keinginan kalian,

 CATATAN PENULIS

Nama Pembuat     : Yusrifal

Facebook             : rhyfhal nakatury

Blog                      : http://yusrifal05.blogspot.com

Special Thanks To:

-Pak Mahdi [Guru Turbo Pascal Pertamaku di TI (S1) UNIGHA]

-Teman-teman di Indonesian Coder [“thanks buat ilmunya yg sangat berguna....”]

Dan semua teman-teman blogger di dunia maya yang sudah banyak membantu....

sigli,16 desember 2012

jangan lupa tinggalkan coment,,,

baik berupa kritikan cacian makian semua saya terima ,,,