Langsung ke konten utama

Modul pascal

Oleh

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

Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

pengertian Track Back

Oleh
Trackback merupakan mekanisme pemberitahuan kepada pemilik weblog bahwa ada yang memiliki tema postingan yang sama dan menginginkan pemilik web menaut postingan yang sama tersebut Sejarah Spesifiksi protokol ini dimiliki Six Apart Akan tetapi implementasi pertama dilakukan pada piranti lunak (software) blogging Movable Type mereka pada Agustus 2002. Sebelumnya trackback sudah diimplementasikan pada perangkat (tool) blogging lain. Sejak bulan Februari 2006, Six Apart, membangun tim kerja untuk menyempurkan integrasi protokol trackback ke dalam platform blog mereka. Tujuannya agar bisa disetujui ETF dan bisa menjadi standar internet. Contoh Sebagai contoh, anda memiliki postingan dengan pranala http://domainanda.com/latihan-posting.html, lalu seseorang juga memposkan topik yang sama dengan anda dan mengisi formulir trackback dengan pranala anda seperti ini http://domainanda.com/latihan-posting.html/trackback. Ringkasan pos di blog anda tadi akan otomatis masuk ke komentar pos blo...
Posting Komentar
lanjut baca??

10 Eksekutif Dunia dengan Gaji Tertinggi

Oleh
Saat ini, terdapat sekitar 20 eksekutif yang memperoleh gaji hingga jutaan dolar AS. Belum lama ini publik sempat diributkan dengan penghasilan pimpinan puncak Badan Usaha Milik Negara (BUMN) yang dianggap terlalu tinggi. Penghasilan eksekutif BUMN itu jauh berlipat ganda jika dibandingkan penghasilan Presiden RI Susilo Bambang Yudhoyono. Berdasarkan data laporan keuangan sejumlah BUMN, gaji direktur utama PT Telekomunikasi Indonesia Tbk sekitar Rp7,22 miliar per tahun. Sementara itu, direksi PT Bank Mandiri Tbk minimal menerima penghasilan Rp7 miliar per tahun. Walau bukan perbandingan yang setara, gaji yang diterima bos-bos BUMN itu bagaikan bumi dan langit jika dibandingkan dengan penghasilan pemimpin perusahaan terkemuka di dunia. Saat ini terdapat sekitar 20 eksekutif (chief executive officer/CEO) yang memperoleh penghasilan hingga jutaan dolar AS atau setara ratusan miliar rupiah. Sejumlah CEO itu memperoleh kompensasi hingga dua kali lipat bahkan tiga kali lipat s...
Posting Komentar
lanjut baca??

Sejarah Sistem Operasi dari DOS, Windows sampai Linux

Oleh
Artikel ini akan menguraikan sejarah sistem operasi dari DOS, Mac, Windows, BSD, sampai Linux. 1980   QDOS : Tim Paterson dari Seattle Computer menulis QDOS yang dibuat dari OS terkenal pada masa itu, CP/M. QDOS (Quick and Dirty Operating System) dipasarkan oleh Seatle Computer dengan nama 86-DOS karena dirancang untuk prosesor Intel 8086. Microsoft : Bill Gates dari Microsoft membeli lisensi QDOS dan menjualnya ke berbagai perusahaan komputer. 1981   PC­ DOS : IBM meluncurkan PC­ DOS yang dibeli dari Microsoft untuk komputernya yang berbasis prosesor Intel 8086. MS­ DOS : Microsoft menggunakan nama MS­ DOS untuk OS ini jika dijual oleh perusahaan diluar IBM. 1983   MS­ DOS 2.0 : Versi 2.0 dari MS­ DOS diluncurkan pada komputer PC XT. 1984   System 1.0 : Apple meluncurkan Macintosh dengan OS yang diturunkan dari BSD UNIX. System 1.0 merupakan sistem operasi pertama yang telah berbasis grafis dan menggunakan mouse. MS ­DOS 3.0 : Microsoft meluncurkan MS DOS 3.0 untuk PC AT yang menggun...
Posting Komentar
lanjut baca??