Cara Membuat Kotak Bintang (Turbo Pascal)

Pada postingan tentang turbo pascal kali ini saya akan membahas tentang cara membuat kotak bintang , berikut sintaknya:

program ulang_kotak;
var x : integer;
begin
writeln('PROGRAM MEMBUAT KOTAK');

for x:= 1 to 20 do
  begin
  gotoxy(2+x,3);
  write('*');
  end;
for x:= 1 to 10 do
  begin
  gotoxy(3,2+x);
  write('*')
  end;
for x:= 1 to 10 do
  begin
  gotoxy(22,2+x);
  write('*')
  end;
for x:= 1 to 20 do
  begin
  gotoxy(2+x,12);
  write('*');
  end;

end.

Berikut Tampilan programnya:

Untuk download file .Pas nya silahkan klik [Disini].

Terimakasih sudah berkunjung & semoga bermanfaat.

Program Biaya Angsuran dengan Turbo Pascal

Sintaks Program :

program biaya;
uses wincrt;
var
   tmpt, nama, jurusan :string;
   no, total,tgl,bulan,tahun, bayar, sisa : real;
begin
   writeln('Formulir Angsuran Biaya');
   write  ('No          : ');readln(no);
   write  ('Nama        : ');readln(nama);
   write  ('TTL         : ');
   gotoxy(15,4);readln(tmpt);
   gotoxy(24,4);write(',');
   gotoxy(25,4);readln(tgl);
   if tgl > 31 then
   donewincrt;
     
   gotoxy(27,4);write('-');
   gotoxy(28,4);readln(bulan);
   if bulan > 12 then
   donewincrt;
   gotoxy(30,4);write('-');
   gotoxy(31,4);readln(tahun);
   if tahun > 1996 then
   donewincrt;
   write  ('Jurusan     : ');readln(jurusan);
   total:=700000;
   writeln('Total Biaya : Rp.',total:0:2);
   write  ('Bayar       : Rp.');readln(bayar);
   sisa := total-bayar;
   write  ('Sisa BAyar  : Rp.',sisa:0:2);
end.

Gambar program setelah dijalankan :

 

DaftarKelompok :

Muslihudin

Ega Herdiana

Muhamad Ramdan

Ahmad Sabit

Helmi Fauzi

Irham Mediawan

Tendi Edrisa

Fathul Bari Abdul Aziz

Manfaat Bahasa Pemograman Pascal

Bahasa Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat, yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas. Pascal menggunakan bahasa Inggris sebagai penulisan kodenya, sehingga penulisannya dan pengemb
Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.

1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)

2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.

3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.

4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.

5. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.

Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.angannya mudah dipahami.

Program Matriks Menggunakan Turbo Pascal

program Matriks;
uses wincrt;
var
   a : Array[1..10,1..10] of integer;
   baris,kolom:integer;

begin
    write('jumlah baris : ');readln(baris);
    write('jumlah kolom : ');readln(kolom);

    for baris:=1 to baris do
    for kolom:=1 to kolom do
        begin
             write('[',baris,',',kolom,'] = ');readln(a[baris,kolom]);
        end;

    writeln;
    writeln('Matrix yang terbentuk adalah : ');
    for baris:=1 to baris do
        begin
             for kolom:=1 to kolom do
                 begin
                      write(a[baris,kolom]);
                      write(' ');

                 end;
                 writeln;
        end;

end.

Tampilan Program :

Semoga Bermanfaat

Program Luas Segitiga dan Segi Empat (Turbo Pascal)

Sintak Program :

program tigaEmpat;

uses wincrt;

var

menu : string;

tinggi, alas, panjang, lebar :integer;

luas : real;

begin

repeat

clrscr;

writeln('Menu');

writeln('1. Luas segi Tiga');

writeln('2. Luas Segi Empat');

writeln('==================');

write('Masukan NOMOR PILIHAN ANDA (1-2): ');readln(menu);

if (menu='1') then

begin

clrscr;

write ('Masukan Tinggi Segitiga : ');readln (tinggi);

write ('Masukan Panjang alas : ');readln (alas);

luas := 1/2 * alas * tinggi;

writeln ('Jadi Luasnya adalah ', luas:1:1 , ' satuan luas');

readln;

end else

if (menu='2') then

begin

clrscr;

writeln('Menghitung Luas Segi Empat');

write ('Masukan Panjang : ');readln(panjang);

write ('Masukan Lebar : ');readln(lebar);

luas := panjang * lebar;

writeln('Jadi Luasnya adalah ', luas:1:1, ' Satuan Luas');

readln;

end else

if (menu = '') then

begin

writeln('Perintah Belum Di Input');

end else

begin

writeln('Mohon Ketikan Perintah Dengan Benar!');

end;

readln;

until menu = '.';

end.

Tampilan Program :

Tampilan Menu

Tampilan form luas segitiga

Tampilan form luas segiempat

Program Menghitung Volume Lingkaran (Turbo Pascal)

• Sintak program :

program musno2;

uses wincrt;

var

jari : integer;

luas : real;

begin

write ('Masukan jari-jari lingkaran : ');readln(jari);

luas := 3.14 * jari *jari;

write ('Jadi Luasnya = ', luas:1:2, ' Satuan Luas');

end.

• Gambar Program :

Program Menghitung Volume Kubus dan Balok (Turbo Pascal)

· Sintak program

program musno3;

uses wincrt;

var

menu : string;

sisi, tinggi, panjang, lebar :integer;

volume : real;

begin

repeat

clrscr;

writeln('Menu');

writeln('1. Volume Kubus');

writeln('2. Volume Balok');

writeln('==================');

write('Masukan NOMOR PILIHAN ANDA (1-2): ');readln(menu);

if (menu='1') then

begin

clrscr;

write ('Masukan Panjang Sisi Kubus : ');readln (sisi);

volume := sisi * sisi * sisi;

writeln ('Jadi Volumenya adalah ', volume:1:1 , ' satuan volume');

readln;

end else

if (menu='2') then

begin

clrscr;

writeln('Menghitung Volume Balok');

write ('Masukan Panjang : ');readln(panjang);

write ('Masukan Lebar : ');readln(lebar);

write ('Masukan Tinggi : ');readln(tinggi);

volume := panjang * lebar * tinggi;

writeln('Jadi Volumenya adalah ', volume:1:1, ' Satuan Volume');

readln;

end else

if (menu = '') then

begin

writeln('Perintah Belum Di Input');

end else

begin

writeln('Mohon Ketikan Perintah Dengan Benar!');

end;

readln;

until menu = '.';

end.

· Gambar program

Tampilan menu

Tampilan form volume kubus

Tampilan volume balok

Program Penjualan Menggunakan Array (Turbo Pascal)

Sintak Program :

Program kasir_Array;
Uses Wincrt;
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('          MUSLIHUDIN TECHNOLOGY         ');
     Writeln('  Jl.RE Martadinata no.202 Tasikmalaya  ');
     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('============================ MUSLIHUDIN TECHNOLOGY =============================');
     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);   

End.

Gambar Program :

Semoga Bermanfaat

Program Konversi Waktu Menggunakan Turbo Pascal

program konversi_waktu;
uses wincrt;
var
jam, menit,sisadetik,detik : integer;
begin
    writeln('PROGRAM KONVERSI WAKTU');
    writeln('======================');
    write('Masukan Detik : '); read(detik);
    jam            := detik div 3600;
    sisadetik      := detik mod 3600;
    menit          := sisadetik div 60;
    sisadetik      := sisadetik mod 60;
    writeln('Hasilnya : ');
    writeln('         ');
    write(detik,' detik = ',jam, ' jam ');
    write(menit,' menit ',sisadetik,' detik ');
end.

Tampilan Program :

Semoga Bermanfaat

Program Menghitung Jumlah Deret Angka Dengan Turbo Pascal

 

program jumlah_deret;
uses wincrt;
var x,sum,n:integer;
begin
write('Masukan banyaknya angka yang akan dihitung : '); readln(n);
for x:=1 to n do
begin
write (x,' ');
end;
x:=1;
sum:=0;
repeat
sum:=sum+x;
x:=x+1;
until x>n;
writeln(' ');
write ('Total Jumlah Angka Tersebut Adalah : ', sum);
end.

Program Faktorial Menggunakan Turbo Pascal

program faktorial;
uses wincrt;
var i,n,x:integer;
begin
write ('Masukan Nilai Faktorial : ');readln(n);
writeln;
if (n<=0) then
writeln('Hasil Faktorial : ',1)
else
  begin
  x:=1;
  for i:=1 to n do
      x:=x*i;
  writeln ('Hasil Faktorial : ',x);
  end;
end.

 

Tampilan Program :

Semoga Bermanfaat

Turbo Pascal

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 sebagaiTurbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.

Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

Tampilan Turbo Pascal

 

Klik Disini Untuk Download!