PRAKTIKUM I
Modul I
Pengenalan pemrograman pascal 7.0
- Mengenal sistem menu pada pemrograman pascal
Menu utama terdiri dari :
- File Edit Search Run Compile Debug Tools Option Windows Help
- Pada setiap menu terdapat setiap sub-sub menu
- Membuka lembaran kerja baru
Prosedure membuka lembaran kerja baru adalah sebagai berikut :
- Pilih menu file
- Didalam menu file pilihlah sub menu new
- Mulailah mengetik program di bawah ini :
Example :
{Program untuk mencetak data mahasiswa pada layar monitor}
Uses crt ;
Begin
Clrscr ; {Untuk membersihkan layar monitor}
Writeln(' Bio data mahasiswa USTJ') ;
Writeln('------------------------------------------------------------------------') ;
Writeln('Nomor induk mahasiswa : 00 123 229') ;
Writeln('Nama mahasiswa : Yoteva . P') ;
Writeln('Tempat/tgl Lahir : Biak, 1 Ags 1980') ;
Writeln('Jenis Kelamin [l/p] : Laki-laki) ;
Writeln('Fakultas/Jurusan : Fikom/Teknik Informatika') ;
Writeln('Alamat : Jl.Abepura No.07') ;
Writeln('------------------------------------------------------------------------') ;
End. {Mengakhiri program}
Kegiatan praktikum :
- Simpanlah program anda dengan cara :
- Pilih menu file
- Pada menu file pilihlah save atau menekan tombol F9
- Simpan program anda dengan nama Prak-01a.Pas
- Pilih menu file
- Praktikan meng-compile program yang baru saja di ketik dengan cara :
- Pilih menu run
- Pada menu run pilihlah sub menu run atau tekan tombol keyboard Ctrl + F9
- Pilih menu run
- Jika terdapat informasi kesalahan yang di tampilkan di layar monitor praktikan , mintalah bantua asisten lab untuk membimbing praktikum
- Buatlah program di atas agar dapat di jalankan / di run menampilkan hasil sebagai berikut :
Output program :
Bio data mahasiswa USTJ
--------------------------------------------------------------------
Nomor induk mahasiswa: 0 123 229
Nama mahasiswa : Yoteva . P
Tempat/Tgl lahir : Biak, 1 Ags 1980
Jenis kelamin [l/p] : Laki-laki
Fakultas/Jurusan : Fikom/Teknik informatika
Alamat : Jl.Abepura No.07
--------------------------------------------------------------------
PRAKTIKUM II
Modul II
Proses percetakan (Write) dan penginputan data (Read)
{Program untuk menginput data mahasiswa dengan mengunakan instruksi
read}
Uses crt ;
Var
Nim : String [10];
Nama : String [40];
Jekel, Fak, Alm : String [40];
Begin
Clrscr;
Writeln('Bio data mahasiswa USTJ') ;
Writeln('--------------------------------') ;
Write('Nomor induk mahasiswa : ') ;
Readln(Nim) ;
Write('Nama mahasiswa : ') ;
Readln(Nama) ;
Write('Tempat/Tgl lahir : ') ;
Readln(tmp_Tgl) ;
Write('Jenis kelamin : ') ;
Readln(Jekel) ;
Write('Fakultas/Jurusan : ') ;
Readln(Fak) ;
Write('Alamat : ') ;
Readln(Alm) ;
{Proses percetakan data}
Clrscr ;
Writeln(' Bio data mahasiswa USTJ ') ;
Writeln('---------------------------------') ;
Writeln('Nomor induk mahasiswa : ' , Nim) ;
Wirteln('Nama mahasiswa : ' , Nama) ;
Writeln('Tempat/Tgl lahir : ' , Tmp_Tgl) ;
Writeln('Jenis kelamin [l/p] : ' , Jekel) ;
Writeln('Fakultas/Jurusan : ' , Fak) ;
Writeln('Alamat : ' , Alm) ;
End.
Kegiatan praktikan :
- Simpanlah program anda dengan cara :
- Pilih menu file
- Pada menu file pilihlah save atau tekan tombol F9
- Simpan program anda dengan nama Prak-02.Pas
- Pilih menu file
- Praktikan meng-compile program yang baru saja di ketik dengan cara :
- Pilih menu run
- Pada menu run pilihlah sub menu run atau tekan tombol keyboard Ctrl + F9
- Pilih menu run
- Buatlah program di atas agar dapat di jalankan / di run dan menampilkan hasil output
PRAKTIKUM III
Modul III
Penggunaan statemen penyelesaian If...Else IF
{Program dengan menggunakan statemen If then else}
Uses crt ;
Var
N_Nama, N_Akt, N_Bhs, N_Kwr : Word ;
Rata, Total : word ;
N_Huruf : Char ;
Begin
Clrscr ;
Writeln('Perhitungan nilai rata-rata mata kuliah umum') ;
Writeln('---------------------------------------------------------------') ;
Writeln('Input nilai agama : ') ; Readln(N_Agama) ;
Writeln('Input nilai akuntansi : ') ; Readln(N_Akt) ;
Writeln('Input nilai bahasa : ') ; Readln(N_Bhs) ;
Writeln('Input nilai kewiraan : ') ; Readln(N_Kwr) ;
Writeln('---------------------------------------------------------------') ;
Total : = (N_Agama + N_Akt + N_Bhs + Kwr) ;
Rata : = (Total Div 4) ; {Div adalah operan yang menghasilkan bilangan
bulat}
If Rata >= 80 then
N_Huruf : = 'A'
Else If Rata >= 70 then
N_Huruf : = 'B'
Else If Rata >= 60 then
N_Huruf : = 'C'
Else If Rata >= 50 then
N_Huruf : = 'D'
Else
N_Huruf : = 'E' ;
Writeln('Total Nilai : ', Total : 2) ;
Writeln('Nilai rata-rata : ', Rata : 2) ;
Writeln(Nilai huruf adalah : ', N_Huruf) ;
End.
Kegiatan praktikan :
- Simpanlah program anda dengan cara :
- Pilih menu file
- Pada menu file pilihlah save atau tekan tombol F9
- Simpan program anda dengan nama Prak-03.Pas
- Pilih menu file
- Praktikan meng-compile program yang baru saja di ketik dengan cara :
- Pilih menu run
- Pada menu run pilihlah sub menu run atau tekan tombol keyboard Ctrl + F9
- Pilih menu run
- Buatlah program di atas agar dapat di jalankan / di run dan menampilkan hasil output sbb :
Perhitungan nilai rata-rata mata kuliah umum
------------------------------------------------------
Input nilai agama : 80
Input nilai akuntansi : 80
Input nilai bahasa : 80
Input nilai kewiraan : 80
------------------------------------------------------
Total nilai : 320
Nilai rata-rata : 80
Nilai huruf adalah : A
PRAKTIKUM IV
Modul IV
Penggunaan statemen For...To...Do
Uses crt ;
Var
I, Jumlah, Banyak : word ;
Begin
Clrscr ;
Writeln('Menjumlahkan bilangan ke-1 sampai ke-n') ;
Writeln('---------------------------------------------------') ;
Write('Input jumlah bilangan : ') ;
Readln(Banyak) ;
Write('Bilangan itu adalah : ') ;
Jum : = 0 ;
For i : = 1 To Banyak Do
Begin
Write(I, ' ') ;
Jum : = Jum + I ;
End ;
Writeln ;
Writeln('Jumlah bilangan adalah : ' ,Jum) ;
End.
Kegiatan praktikan :
- Simpanlah program anda dengan cara :
- Pilih menu file
- Pada menu file pilihlah save atau tekan tombol F9
- Simpan program anda dengan nama Prak-04.Pas
- Pilih menu file
- Praktikan meng-compile program yang baru saja di ketik dengan cara :
- Pilih menu run
- Pada menu run pilihlah sub menu run atau tekan tombol keyboard Ctrl + F9
- Pilih menu run
- Buatlah program di atas agar dapat di jalankan / di run dan menampilkan hasil output sbb :
Menjumlahkan bilangan ke-1 sampai ke-n
--------------------------------------------------
Input jumlah bilangan : 3
Bilangan itu adalah : 1 2 3
Jumlah bilangan adalah : 6
Latihan :
Buatlah program dengan menggunakan statemen-statemen for to do dengan tampilan/output seperti berikut :
Input jumlah cetakan = ? ....
Jika kita menginput jumlah cetakan = 5
Maka tampi hasil sbb :
5Pascal
4Pascal
3Pascal
2Pascal
1Pascal
PRAKTIKUM V
Modul V
Penggunaan statemen while...do
Uses crt ;
Var
I, Jum, Banyak : wod ;
Jawab : Char ;
Begin
Jawab : = 'Y' ;
While (Jawab = 'Y') Or (Jawab = 'Y') do
Begin
Clrscr ;
Writeln('Program untuk mencetak kata secara berulang') ;
Writeln('------------------------------------------------------') ;
Write('Input jumlah bilangan : ') ;
Readln(Banyak) ;
I : = 1 ;
While I <= banyak do
Begin
Writeln(I, ' P a s c a l ') ;
I : = I + 1 ;
End ;
Write('Masih ingin mencoba [y/t] : ') ;
Readln(Jawab) ;
End ;
End.
Kegiatan praktikan :
- Simpanlah program anda dengan cara :
- Pilih menu file
- Pada menu file pilihlah save atau tekan tombol F9
- Simpan program anda dengan nama Prak-05.Pas
- Pilih menu file
- Praktikan meng-compile program yang baru saja di ketik dengan cara :
- Pilih menu run
- Pada menu run pilihlah sub menu run atau tekan tombol keyboard Ctrl + F9
- Pilih menu run
- Buatlah program di atas agar dapat di jalankan / di run dan menampilkan hasil output sbb :
Program untuk mencetak kata secara berulang
-------------------------------------------------------
Input jumlah bilangan : 6
1 P a s c a l
2 P a s c a l
3 P a s c a l
4 P a s c a l
5 P a s c a l
6 P a s c a l
Masih ingin mencoba [y/t] : y
Latihan :
Buatlah program dengan menggunakan statemen While…Do dengan tampilan/output seperti berikut :
Input jumlah cetakan = ?....
Maka tampil hasil sbb :
1 P a s c a l 6
2 P a s c a l 5
3 P a s c a l 4
4 P a s c a l 3
5 P a s c a l 2
6 P a s c a l 1
PRAKTIKUM VI
Modul VI
Penggunaan procedure dalam program
{Penerapan prosedur dan fungsi di dalam program}
Uses crt
Procedure Hitung_Kuadrat ;
Var X, Y : Real ;
Begin
Write('Input nilai X = ') ;
Readln(X) ;
Y : = X * X ; {Dapat di tulis Y : = Sqr(X)
Writeln('Nilai kuadratnya adalah : ' ,Y : 6 : 2) ;
End ; {Untuk mengakhiri penulisan prosedure progam utama}
Begin
Clrscr ;
Hitung_Kuadrat ; {Pemanggilan procedure}
End.
Kegiatan praktikan :
- Simpanlah program anda dengan cara :
- Pilih menu file
- Pada menu file pilihlah save atau tekan tombol F9
- Simpan program anda dengan nama Prak-06.Pas
- Pilih menu file
- Praktikum meng-compile program yang baru saja di ketik dengan cara :
- Pilih menu run
- Pada menu run pilihlah sub menu run atau tekan tombol keyboard Ctrl + F9
- Pilih menu run
- Buatlah program di atas agar dapat di jalankan / di run
Latihan :
Uses crt
Procedure hitung (A, B, C : Integer) ;
Begin
C : = A + B ;
Writeln('Nilai A = ',A, ' Nilai B = ' ,B, ' Nilai C = ' ,C, ') ;
End ;
Var X, Y, Z : Integer ;
Begin
X : = 3 ;
Y : = 6 ;
Z : = 10 ;
{Panggil procedure}
Hitung (..., ..., ...) ;
{Perhatikan bahwa nilai Z tidak lagi 10 melainkan 9 karena mengalami proses pada prosedure hitung yaitu pada variabel C : = A + B}
End.
Kegiatan praktikan :
- Simpanlah program anda dengan nama Latihan_Pro.Pas
- Buatlah program di atas agar dapat di jalankan/ di run
- Buatlah kesimpulan dengan kata yang sederhana, dari output program di atas
PRAKTIKUM VII
Modul VII
Penggunaan function dalam program
{Penerapan program function dalam program}
Uses crt ;
Function hitung (Var A, B : Integer) : Integer ;
Begin
Hitung : = A + B ;
End ;
{Program utama}
Var X, Y : Integer ;
Begin
Clrscr ;
Write('Input nilai X : ') ;
Readln(X) ;
Write('Input nilai Y : ') ;
Readln(Y) ;
Writeln ;
Writeln('Hasil penjumlahan X dan Y adalah = ',Hitung (…., ….))
End.
Kegiatan praktikan :
- Simpanlah program anda dengan nama Prak-07.Pas
- Buatlah program di atas agar dapat di jalankan/di run
PRAKTIKUM VIII
Modul VIII
Array & Record
{Program dengan menggunakan statemen Array dan Record}
Const Max = 20 ;
Type
Mahasiswa = Record
Npm : String[10] ;
Nama : String[20] ;
Ip : Real ;
End ; {Untuk mengakhiri statemen record}
Var {Deklarasi variabel}
Jum_Mhs : word ;
I, J : word ;
Data_Mhs : Array[1...max] of Mahasiswa ;
Urut : Mahasiswa ;
Begin
Clrscr ;
{Proses penginputan data}
Write('Input jumlah data mahasiswa : ') ;
Readln(Jum_Mhs) ;
For I : = 1 to Jum_Mhs do
Begin
With Data_Mhs[i] do
Begin
Clrscr ;
Write('Input NPM ke-> ', I , : ') ; Readln(Npm) ;
Write('Input Nama ke-> ', I , : ') ; Readln(Nama) ;
Write('Input IP ke-> ', I , : ') ; Readln(Ip) ;
End ;
End ;
{Proses pengurutan data berdasarkan abjad}
For I : = 1 to Jum_Mhs-1 do
For J : = 1 to Jum_Mhs-I do
If Data_Mhs[j] . Npm > Data_Mhs[J+1] . Npm Then
Begin
Urut : = Data_Mhs[j] ;
Data_Mhs[j] : = Data_Mhs[j + 1] ;
Data_Mhs[j + 1] : =Urut ;
End ;
{Proses pencetakan hasil}
Writeln('----------------------------------------------------------') ;
Writeln('Nomor pokok Nama Index') ;
Writeln(' Mahasiswa Mahasiswa Prestasi') ;
Writeln('----------------------------------------------------------') ;
For I : = 1 to Jum_Mhs Do
Begin
With Data_Mhs[i] Do
Begin
Write(Npm, Nama : 24, ' ' : 12, Ip : 2 : 2) ;
End ;
Writeln ;
End ;
Writeln('-----------------------------------------------------------') ;
Readln ;
End.
Kegiatan praktikum :
- Simpanlah program di atas dengan nama Prak-08.Pas.
- Buatlah program di atas agar dapat di jalankan/ di run.
- Buat kesimpulan dengan kata yang sederhana, dari output program di atas.
MODUL PRAKTIKUM
PEMROGRAMAN PASCAL
Disusun Oleh :
Team Laboratorium
LABORATORIUM KOMPUTER
FAKULTAS ILMU KOMPUTER DAN MANAJEMEN
UNIVERSITAS SAINS DAN TEKNOLOGI JAYAPURA
2010
Komentar
Posting Komentar