Pages

Sabtu, 15 Desember 2012

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 ,,,

Tidak ada komentar:

Poskan Komentar