Membuat Faktorial menggunakan Turbo Pascal

Script berikut akan melakukan perhitungan faktorial dari bilangan yang diinputkan, silahkan dicoba sendiri.


program Faktorial;
uses wincrt;
procedure faktorial (var fak, hasil : integer);
var
i:integer;
begin
hasil := 1;
for i := 2 to fak do
hasil := Hasil * i;
End;
Var
N,Hasil_fak:integer;
Begin
Write ('Nilai yang akan difaktorialkan = '); Readln (N);
Faktorial (N,Hasil_Fak); Writeln;
Writeln ('Hasil Faktorial = ',Hasil_fak);
End.

Sumber 

Read More

Menghitung nilai rata-rata menggunakan Turbo Pascal

Script Pascal berikut adalah aplikasi yang akan melakukan perhitungan nilai rata-rata kelas, statemen while do akan mengakibatkan perulangan secara terus menerus. Untuk berhenti menginput data, isikan No. Induk dengan karakter ‘xx’, tanpa tanda kutip. Selamat Mencoba!

Read More

Contoh pengulangan menggunakan For Do

Berikut ini adalah sebagian contoh perulangan dengan penerapan statemen For.. Do..

Uses Wincrt;
const
akhir = 4;
var
baris,kolom : integer;
begin
for baris := akhir downto 1 do
begin
for kolom := baris downto 1 do
write(kolom);
writeln;
end;
end.


Hasil :
4321
321
21
1

---

Read More

Grafik pada Turbo Pascal

            Layar monitor komputer memiliki dua modus pemakaiannya, modus text dan modus grafik. Pada modus text yang dapat ditampilkan layar monitor adalah berupa karakter – karakter. Banyaknya karakter yang ditampung dalam satu layar penuh adalah 4000 karakter ( untuk mode layar yang biasa dipakai ) yaitu 80 karakter mengisi lebar layar dan 25 karakter mengisi tiinggi layar.

            Lainnya dengan modus grafik, layar monitor dapat menampilkan objek hanya berupa titik – titik yang dapat menampung pada suatu layar penuh bervariasi sesuai dengan mode grafik yang kita pergunakan. Dalam pemograman grafik menggunakan bahasa pascal kita akan memerlukan file – file sebagai berikut :

Ø File driver grafik, yaitu file – file yang berakhiran BGI ( Boolean Grafik Interface) Untuk dipergunakan sesuai dengan monitor yang dipergunakan

Ø File Graph. TPU adalah fil eyang berisi definisi dari fungsi – fungsi grafik yang dipergunakan

Ø File Hurup adalah file – file yang memiliki akhiran CHR yang bersifat optimal jika tidak terdapat file – file ini setiap karakter dicetak menggunakan Jenis  huruf default .

Read More

Prosedur dan Fungsi pada Turbo Pascal

            Prosedur dan fungsi adalah suatu bagian program ( sub program ) yang memiliki tugas untuk mengerjakan deretan perintah tertentu. Dengan prosedur memungkinkan untuk melakukan suatu pekerjaan yang berulang – ulang tanpa harus menuliskan kembali instruksi – intruksi yang dilakukan. Pekerjaan yang dilakukan berulang –ulang . Prosedur dan fungsi bedanya kalau prosedur hasilnya tidak ditipedatakan sedangkan fungis hasilnya harus ditipedatakan. Syntak penulisannya :

            

Procedure NamaPRogram;

            Begin

                                Statement

            End;

            Begin

            Pemanggilan Program;

            End;

Read More

Struktur Data Komplek Turbo Pascal

            Salah satu kelebihan dalam bahasa pascal adalah tersedianya berbagai struktur data yang bisa dikatakan hanya terbatas pada imajinasi programer dalam mengaplikasikannya, beberapa struktur data yang komplek dengan manupulasi yang berbeda dengan manupulasi data original dan data real. Struktur Data ini lebih efisien jika dideklarasikan dibawah keyword type sehingga dengan demikian kita mendapat data jenis baru yang sesuai dengan keinginan kita, dengan mendeklarasikan tipe data tertentu, maka akan didapat beberapa keuntungan antara lain :

Ø   Tidak memerlukan deklarasi yang berulang – ulang bila diperlukan banyak data yang bertipe komplek yang sama

Ø   Tipe data yang komplek yang dideklarasikan dapat dipergunakan sebagai parameter dalam sebuah fungsi

Ø   Memungkinkan membuat tipe data baru yang merupakan kumpulan dari tipe data – tipe data yang baru pula

Ø   Programer tidak terbatas dengan tipe data yang baku yang disediakan oleh bahasa pascal

Ø   Dengan tipe data ini program lebih dapat dimengerti sehingga seolah-olah programer menulis bahasa pascal dalam bahasa inggris

Ø   Untuk pelindung atau proteksi bagi keamanan program

Read More

Pengulangan atau Looping pada Turbo Pascal

Dalam melakukan looping tentunya kita harus memiliki variabel penghitung ( pencacah ) yang dapat menentukan berapa kali kiranya pengulangan dilakukan. Variabel pencacah ini haruslah variabel yang memiliki tipe original. Tugas dari variabel ini yang diinginkan pengulangan akan terhenti. Biasanya dalam program dituliskan sebagai :

                                                X := X + 1; (Pencacah Naik )

                                                X := X - 1; (Pencacah Turun)

Dimana X merupakan variabel bertipe integer, byte atau word ( dalam pemograman biasanya dipilih tipe integer  ) atau dengan cara lain :

                                                Inc(x) dan Dec(X);

Pengulangan dalam pemograman bahasa pascal terbagi atas 3 macam :

Read More

Decision Dan Selection ( Pengkondisian ) Turbo Pascal

Didalam pemrograman bahasa pascal dimana ada perintah untuk memilih membandingkan atau memeriksa program. Dalam sebuah program tidak selalu setiap baris dari program dilakukan dalam eksekusi. Akan tetapi ada statement tertentu yang dilakukan hanya jika kondisinya memenuhi. Dan untuk menguji kondisi ini dapat dilakukan dengan statement berikut ini :

1.              If .......

Then ..........

                        Else ............

            Dengan menggunakan statement ini suatu ekspresi logika bila “ Tidak Lulus “ pada pengujian yang pertama diuji kembali pada kondisi yang berikutnya dan seterusnya. Penggunaan jenis kondisi  semacam ini berguna sekali dalam menyeleksi statement yang akan dilakukan sesuai dengan ekspresi kondisi yang diberikan, karena statement pengujian kondisi ini dapat disusun berantai sehingga didapat multi level checking. Syntax penulisannya adalah :

                                                If ( Kondisi -1 )

                                                Then ( Statement - 1 )

                                                Else if (Kondisi -2 )

                                                Then ( Statement - 2 )

                                                .

                                                .

                                                If ( Kondisi – n )

                                                Then (statement – n )

                                                Else ( Statement – n );       

Read More

Pengenalan dan Struktur Dasar bahasa Pascal

                Bahasa pascal adalah salah satu bahasa komputer yang menjembatani pemakai dengan mesin

 ( Komputer ) Dengan demikian komputer dapat diperintah melalui suatu bahasa yang dapat dimengerti oleh manusia, yang disebut dengan istilah bahasa tingkat tinggi Bahasa Pascal berkembang sampai sekarang yang dulu menggunakan cobol, fortan dan sekarang kita kita menggunakan Turbo Pascal for Dos Ver.7.0. Dalam Pemograman pada sistem komputer kita akan selalu berhubungan dengan operasi input output. Pada umumnya system komputer menggunakan keyboard sebagai alat untuk menerima masukan ( Input devices ).

Struktur Dasar Bahasa Pascal

Program NamaProgram :

Program Pascal:

Type

                Type1 = DeklarasiTipe1;

                Type1 = DeklarasiTipe2;

...

Const1 = Deklarasiconst1;

Const1 = Deklarasiconst2;

var

                Var1 : Type;

                Var2 : Type;

Read More