Contoh-contoh Program Pascal

Beberapa program pascal tersedia dibawah ini. Silakan disimak listing programnya. Semoga bermanfaat.

1.         Program Menghitung Luas Persegi Panjang

program luas_persegipanjang; uses wincrt; var panjang,lebar,luas:integer; begin clrscr; writeln(‘ Ini adalah Program Hitung Luas Persegi Panjang ’); write(‘ Berapa Panjangnya = ‘);readln(panjang); write(‘ Berapa lebarnya      = ‘);readlan(lebar); luas:=panjang*lebar; writeln(‘ Jadi, luasnya adalah ‘,luas); readln; end.

Keluaran program : Ini adalah Program Hitung Luas Persegi Panjang Berapa panjangnya    = 2 Berapa lebarnya         = 3 Jadi, luasnya adalah 6

2.        Program Menghitung Luas Segitiga

program luas_segitiga; uses wincrt; var alas,tinggi:integer; luas:integer; begin clrscr; writeln(‘ Ini adalah Program Hitung Luas Segitiga ’); write(‘ Berapa Alasnya        = ‘);readln(alas); write(‘ Berapa Tingginya     = ‘);readln(tinggi); luas:=1/2*alas*tinggi; writeln(‘ Jadi, luasnya adalah ‘,luas:2:2); readln; end.

Keluaran program : Ini adalah Program Hitung Luas Segitiga Berapa Alasnya        = 3 Berapa Tingginya    = 7 Jadi, luasnya adalah 10.50

3.        Program Input Data Siswa

program input_data_siswa; uses wincrt; var nama_siswa:string[30]; kelas:string[4]; no_urut:integer; begin clrscr; writeln(‘ Ini adalah Program Input Data Siswa ’); write(‘ Masukkan Nama Siswa    = ‘);readln(nama_siswa); write(‘ Masukkan Nomer Urut    = ‘);readln(no_urut); write(‘ Masukkan Kelas                 = ‘);readln(kelas); writeln(‘ Terima Kasih ‘); readln; end.

Keluaran program : Ini adalah Program Input Data Siswa Masukkan Nama Siswa  = Wahyu Masukkan Nomer Urut  = 32 Masukkan Kelas               = X-2 Terima Kasih

4.         Program Input Data Siswa dengan GotoXY.

GotoXY adalah perintah yang digunakan untuk menempatkan posisi kursor pada baris tertentu dan spasi tertentu. X adalah jumlah spasi dan Y adalah baris.

Contoh :

Gotoxy(20,5);writeln(‘ SMA Negeri 1 Ungaran ‘);

Artinya mencetak SMA Negeri 1 Ungaran pada baris ke-5 dan spasi ke-20.

program input_data_siswa; uses wincrt; var nama_siswa:string[30]; kelas:string[4]; no_urut:integer; begin clrscr; gotoxy(20,3);writeln(‘ Ini adalah Program Input Data Siswa ’); gotoxy(15,4);write(‘ Masukkan Nama Siswa    = ‘); gotoxy(15,5);write(‘ Masukkan Nomer Urut    = ‘); gotoxy(15,6);write(‘ Masukkan Kelas                 = ‘); gotoxy(15,7);writeln(‘ <> Terima Kasih <> ‘); gotoxy(40,4); readln(nama_siswa); gotoxy(40,5); readln(no_urut); gotoxy(40,6); readln(kelas); readln; end.

Keluaran program : Ini adalah Program Input Data Siswa Masukkan Nama Siswa  = Wahyu Masukkan Nomer Urut  = 32 Masukkan Kelas               = X-2 <> Terima Kasih <>

Posted in: pelajaran