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

TUGAS KE-3 PRAKTEK ALGO I

Oleh
INILAH TUGAS KALIAN: Buatlah program untuk menampilkan menu berikut ini kemudian mengerjakan menu yang dipilih: MENU  1. Menghitung Luas Segitiga  2. Menghitung Volume Kubus  3. Menghitung Luas Lingkaran  4. Menghitung Volume Balok  5. MenghitungVolume Tabung  6. Keluar   (Pilihan 6 menyebabkan keluar dari program) KETERANGAN: tugas ini dikumpulkan dalam bentuk hardcopy (print) dan dikumpulkan selambat-lambatnya saat pertemuan praktek berikutnya. jangan lupa mencantumkan :  nama, npm, praktek, shift dan tugas keberapa FIKOM SENANTIASA METAL!
Posting Komentar
lanjut baca??

Operating system listing

Oleh
Ni satu lagi listing SO yg mgkn d butuhkan!!   Below is a listing of many of the different operating systems available today, the dates they were released, the  platforms  they have been developed for and who developed them. Operating system Date first released Platform Developer AIX / AIXL Unix / Linux history can be found  here  . Various IBM AmigaOS Currently no AmigaOS operating system history. Amiga Commodore BSD Unix / Linux history can be found  here  . Various BSD Caldera Linux Unix / Linux history can be found  here  . Various SCO Corel Linux Unix / Linux history can be found  here  . Various Corel Debian Linux Unix / Linux history can be found  here  . Various GNU DUnix Unix / Linux history can be found  here  . Various Digital DYNIX/ptx Unix / Linux history can be found  here  . Various IBM HP-UX Unix / Linux history can be found  here  . Various Hewlett Packard IRIX Unix / Linux history can be found  here  . Various SGI Kondara Linux Unix / Linux history can be found  here ...
Posting Komentar
lanjut baca??

Chord Armada Mau Dibawa Kemana

Oleh
intro A A Semuanya telah kuberi A dengan kesungguhan hati D             A Untukmu hanya untukmu A Tak perlu kau tanya lagi A siapa pemilik hati ini D             A E Kau tahu pasti dirimu Bm tolong lihat aku Dm        E dan jawab pertanyaanku [chorus] D         Dm          A Mau dibawa kemana hubungan kita Bm jika kau terus menunda-nunda dan Dm              E dan tak pernah nyatakan cinta D        Dm          A Mau dibawa kemana hubungan kita Bm Ku tak akan terus jalani Dm           E tanpa ada ikatan pasti antara kau dan aku [intro] A Bm D A Tak perlu kau tanya lagi A siapa pemilik hati ini D             A E Kau tahu pasti dirimu Bm tolong lihat aku Dm        E dan jawab pertanyaanku [chorus] D         Dm          A Mau dibawa kemana hubungan kita Bm jika kau terus menunda-nunda dan Dm              E dan tak pernah nyatakan cinta D        Dm          A Mau dibawa kemana hubungan kita Bm Ku tak akan terus jalani Dm           E tanpa ada ikatan pasti antara kau dan aku [interlude] D A/C...
Posting Komentar
lanjut baca??