u’re lucky to have this file
algo I & II – pascal
STRUKTUR PERULANGAN
untuk lebih mengerti tentang looping pada pascal, mari kita donlot materi berikut . . . .
soal dan latihan PASCAL
mau lincah pake pascal??
latihan donk!!
ne beberapa soal n latihan. . . . .
sedot lahhh
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 :
- 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
modul pascal
untuk kalian yang ingin modul pascal… nih saya kasih
materi perulangan – array – record – subprogram
berikut ada beberapa materi pascal
silahkan sedooot
Algoritma, Kompleksitas, Pencarian dan Teori Bilangan
Algoritma adalah sekumpulan berhingga dari instruksi-instruksi untuk melakukan
perhitungan/ komputasi atau memecahkan suatu masalah. Suatu algoritma yang baik harus
memiliki sifat-sifat berikut ini:
• Masukan (input) dari himpunan tertentu
• Keluaran (output) pada himpunan tertentu (solusi)
• Definiteness dari setiap langkah perhitungan
• Kebenaran (correctness) dari keluaran untuk setiap masukan yang mungkin
• Keberhinggaan (finiteness) dari banyaknya langkah perhitungan
• Kefektifan (effectiveness) dari setiap langkah perhitungan dan
• Keterumuman (generality) dalam suatu kelompok permasalahan yang dipecahkan
Kita akan memakai pseudocode untuk menuliskan algoritma, yang mirip dengan bahasa
Pascal. Sebagai contoh pertama, tinjau algoritma mencari nilai maksimum dari suatu barisan
yang panjangnya berhingga berikut ini.
procedure max(a1, a2, …, an: integers)
max := a1
for i := 2 to n
if max < ai then max := ai
{max adalah elemen terbesar dalam barisan}
Dari masukan barisan a1, a2, …, pertama-tama variabel max di-inisiasi dengan suku pertama
barisan. Selanjutnya suku-suku berikutnya diambil dan dibandingkan dengan max, jika lebih
besar maka nila lama max diganti dengan nilai baru—yaitu suku sekarang, sedangkan jika
(sama atau lebih kecil), algoritma mengambil suku berikutnya—demikian seterusnya. Diakhir
proses, suku terbesar dari barisan akan tertampung di dalam max
untuk lebih lengkapnya nih pdf nya Algoritma Kompleksitas, pencarian dan Teori Bilangan
pencarian pada pascal
pencarian (searching) merupakan proses yang fundamental dalam pengolahan
data. Proses pencarian adalah menemukan nilai (data) tertentu di dalam
sekumpulan data yang bertipe sama (baik bertipe dasar atau bertipe bentukan).
Di dalam Buku 1 Algoritma dan Pemrograman telah disebutkan bahwa aktivitas yang
berkaitan dengan pengolahan data sering didahului dengan proses pencarian.
Sebagai contoh, untuk mengubah (update) data tertentu, langkah pertama yang
harus dilakukan adalah mencari keberadaan data tersebut di dalam kumpulannya.
Jika data yang dicari ditemukan, maka data tersebut dapat diubah nilainya dengan
data yang baru. Aktivitas awal yang sama juga dilakukan pada proses penambahan
(insert) data baru. Proses penambahan data dimulai dengan mencari apakah data
yang akan ditambahkan sudah terdapat di dalam kumpulan. Jika sudah ada dan
mengasumsikan tidak boleh ada duplikasi data maka data tersebut tidak perlu
ditambakan, tetapi jika belum ada, maka tambahkan.
Data dapat disimpan secara temporer dalam memori utama atau disimpan secara
permanen di dalam memori sekunder (tape atau disk). Di dalam memori utama,
struktur penyimpanan data yang umum adalah berupa larik atau tabel (array),
sedangkan di dalam memori sekunder berupa arsip (file). Bab 1 ini dititikberatkan
pada algoritma pencarian data di dalam larik. Algoritma pencarian yang akan
dibicarakan dimulai dengan algoritma pencarian yang paling sederhana (yaitu
pencarian beruntun atau sequential search) sampai pada algoritma pencarian
yang lebih maju yaitu pencarian bagidua (binary search)
untuk lebih lengkapnya nih pdf nya Pencarian pada pascal
Pengkajian Algoritma Pengurutan-Tanpa-Pembandingan Counting Sort dan Radix Sort
Pengurutan sangat penting dalam
Teknologi Informasi yang tak lepas dari pengolahan
data. Pemecahan permasalahan pengolahan data
dapat menjadi lebih efektif dan efisien bila data sudah
dalam keadaan terurut. Seperti dalam proses
pencarian data (searching), algoritma pencarian
tingkat lanjut yang lebih efektif daripada cara
konvensional seperti Binary Search ataupun
Interpolation Search membutuhkan data yang sudah
terurut. Contoh lain di mana data terurut dibutuhkan
adalah dalam penggabungan data menggunakan
metode merging.
Makalah ini akan mengkaji 2 algoritma pengurutan
yang dalam proses pengurutannya tidak melakukan
pembandingan data. Kedua algoritma tersebut adalah
algoritma Counting Sort dan algoritma Radix Sort.
Pengkajian yang dilakukan adalah mengenai ide
dasar, algoritma pengurutan, implementasi, dan
analisis kompleksitas algoritma.
Kata Kunci: algoritma pengurutan, sorting algorithm,
pengurutan tanpa pembandingan, non-comparison
sort, comparison sort, radix sort ,counting sort
untuk lebih lengkapnya nih pdf nya Pengkajian Algoritma Pengurutan-Tanpa-Pembandingan Counting Sort dan Radix Sort
PENERAPAN ALGORITMA DEPTH-FIRST SEARCH (DFS) PADA PENCARIAN SOLUSI PERMAINAN “PAIRS”
Permainan komputer merupakan aplikasi perangkat
lunak yang sering digunakan oleh para pengguna
komputer. Dengan jenis yang bermacam-macam dan
tampilan yang menarik, permainan komputer
termasuk perangkat lunak yang diminati oleh
berbagai kalangan. Selain karena tampilan dan
aplikasinya relatif menarik, permainan komputer
dapat menjadi salah satu perangkat lunak yang
cukup menyenangkan terutama bagi orang yang
telah terbiasa menggunakan komputer.
Salah satu permainan yang sering dimainkan para
pengguna komputer adalah permainan Pairs.
Permainan Pairs ini mempunyai peraturan yang
cukup sederhana. Pada permainan ini, pemain
mencari sepasang kartu yang mempunyai gambar
yang sama pada kartu-kartu yang ada. Permainan
akan berakhir ketika pemain telah menemukan
seluruh pasang gambar yang sama.
Untuk menyelesaikan suatu persoalan, dapat
digunakan berbagai macam algoritma. Algoritma
Depth-First Search (DFS), adalah salah satu jenis
algoritma pencarian solusi. Algoritma ini dijalankan
dengan cara membangkitkan pohon pencarian
secara dinamis. Pencarian solusi dilakukan secara
mendalam.
Pada makalah ini, penulis mencoba membahas
permainan “Pairs” dan menganalisis penerapan
algoritma Depth-First Search (DFS) sebagai salah
satu cara penyelesaian persoalan pada permainan ini
sekaligus untuk mengaplikasikan ilmu yang telah
didapatkan dari mata kuliah IF2251 Strategi
Algoritmik dalam persoalan-persoalan sederhana
yang sering ditemui dalam kehiduan sehari-hari.
untuk lebih jelas nih file pdf nya perncarian pascal