Modul pascal

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
    

 

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    

 

• 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
    
• 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 :

 

1. Simpanlah program anda dengan nama Latihan_Pro.Pas
   
2. Buatlah program di atas agar dapat di jalankan/ di run
   
3. 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 :

 

1. Simpanlah program anda dengan nama Prak-07.Pas
   
2. 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 :

 

1. Simpanlah program di atas dengan nama Prak-08.Pas.
   
2. Buatlah program di atas agar dapat di jalankan/ di run.
   
3. 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