Sebelumnya saya telah membagikan modul program java, nah sekarang saya akan membagikan modul latihan progran Pascal.
Dibawah ini contoh-contol modul latihan dasar Pascal.
Untuk memulai latihan tentunya anda harus mempunyai softwarenya yaitu TurboPascal-7.0 atau versi terbarunya dan juga bisa menggunakan Dev pascal . Oke silahkan di coba jangan lupa baca petunjuknya.Modul II
PENGENALAN TOOLS PASCAL
Tujuan
Tujuan materi praktikum pada Modul II ini adalah:
1. Mengenal lingkungan pemograman Pascal.
2. Mengenal sintaks bahasa pemograman Pascal:
a. Stuktrur program: judul, deklarasi data (konstanta dan variable), algoritma (main program)
b. Deklarasi tipe data sederhana: bilangan bulat(integer), real, char, string, dan Boolean
c. Instruksi I/O untuk tipe data sederhana, ekspresi dan assignment.
3. Belajar memperbaiki kesalahan sintaks.
TUGAS PRAKTIKUM
Berikut ini terdapat 5 buah contoh program dalam bahasa Pascal. Praktikan diminta untuk mengetik kembali contoh-contoh program tersebut dan belajar memperbaiki kesalahan sintaks yang muncul. Langkah-langkah yang harus dilakukan praktikan garis besarnya sebagai berikut:
A. PASCAL
1. Menjalankan aplikasi Turbo Pascal.
2. Membuat direktori kerja untuk menyimpan program yang akan di buat/edit.
3. Mengubah direktori kerja ke direktori kerja yang telah dibuat.
4. Membuat (create) program:
a. Program 1: hello.pas, pilih submenu New dari menu file lalu edit program dari awal sesuai dengan contoh yang ada di listing program.
b. Untuk program berikutnya: (minimal 2 dari 4 program berikut)
i. bacabil.pas, dengan cara men-Save As dari program yang sudah ada (misalnya hello.pas). Merupakan program untuk membaca dua bilangan (yang bertipe integer dan real) dan menampilkan hasil ke layar
writeln('A= ',A:8,' B= ',B:8:2);
Berarti untuk variable A yang bertipe integer disediakan tempat 8 digit, sedangkan untuk variable B yang bertipe real disediakan tempat 8 dengan 2 digit untuk decimal.
ii. datamhs.pas : membaca sejumlah data secara berurutan. Ada anomali di Pascal. Yang perlu dicobakan adalah mengganti pasangan write dan readln untuk dengan write dan read. Coba amati efeknya!
write('NRP: ');readln(NRP);
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
Modul 2 Praktikum Algoritma dan Pemograman I Semester I Thn ajaran 2012/2013 - Teknik Informatika UNPAS 2
iii. lingkaran.java: pada program ini ada contoh bagaimana mendeklarasikan konstanta. Yang perlu dicobakan adalah menambahkan perintah write(„R= „) agar sebelum nilai R dibaca ada pesan yang tampil di layar.
iv. conversion.pas: program ini mengkonversi suhu dari Celcius ke Reamur dan Fahreinheit. Perbandingan (Reamur :Celcius :Fahrenheit) adalah 4:5: 9 dengan titik beku Fahrenheit adalah 32 derajat celcius.
5. Memperbaiki kesalahan sintaks: kesalahan sintaks baru terdeteksi jika program sudah di compile. Uji coba yang dapat di lakukan a.l: menghapus tanda semi colon/symbol akhir instruksi (;) , menghapus sebuah deklrasi variable, membuat nama karakter dalam instruksi menjadi tidak sesuai dengan namanya waktu dideklarasikan, mengubah symbol assignment (‘:=’) menjadi (‘=’), menghapus tanda akhir blok (‘end’), dsb.
6. Compile, menjalankan program dan mendeteksi kesalahan lojik. Program dapat dijalankan dengan memilih menu Run dan untuk melihat hasilnya dengan menekan Alt lalu F5 sekaligus. Uji coba: pada program bacabil.pas hapus intruksi read(A) dan read(B). Compile dan jalankan kembali, bagaimana hasilnya? Mengapa?
LISTING PROGRAM
1. Program hello.pas
program BacaBilangan;
begin
writeln('hello....');
end.
2. Program bacabil.pas
program BacaBilangan;
var
A: integer;
B: real;
begin
write('Nilai A: ');read(A);
write('Nilai B: ');read(B);
writeln('A= ',A:8,' B= ',B:8:2);
end.
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
3. Program datamhs.pas
program BacaDataMahasiswa;
var
NRP, Nama,Alamat, TglLahir, Agama: string;
Kelas, JenisK:char;
begin
write('NRP: ');readln(NRP);
write('Nama: ');readln(Nama);
write('Alamat: ');readln(Alamat);
write('Tgl Lahir: ');readln(TglLahir);
write('Agama: ');readln(Agama);
write('Kelas: ');readln(Kelas);
write('Jenis Kelamin: ');readln(JenisK);
write(NRP:10,Nama:15,Alamat:15,TglLahir:15,Agama:10,Kelas:5,JenisK:4);
end.
4. Program lingkaran.java
program Luaslingkaran;
const phi=3.14;
var R,luas:real;
begin
Read(R);
Luas:=Phi*sqr(R);
writeln(Luas);
end.
5. Program conversion.pas
program Conversion;
var C,R,F:real;
begin
write('C: ');readln(C);
R:=4/5*C;
F:=9/5*C + 32;
writeln(R:8:2, F:8:2);
end.
Dibawah ini contoh-contol modul latihan dasar Pascal.
Untuk memulai latihan tentunya anda harus mempunyai softwarenya yaitu TurboPascal-7.0 atau versi terbarunya dan juga bisa menggunakan Dev pascal . Oke silahkan di coba jangan lupa baca petunjuknya.Modul II
PENGENALAN TOOLS PASCAL
Tujuan
Tujuan materi praktikum pada Modul II ini adalah:
1. Mengenal lingkungan pemograman Pascal.
2. Mengenal sintaks bahasa pemograman Pascal:
a. Stuktrur program: judul, deklarasi data (konstanta dan variable), algoritma (main program)
b. Deklarasi tipe data sederhana: bilangan bulat(integer), real, char, string, dan Boolean
c. Instruksi I/O untuk tipe data sederhana, ekspresi dan assignment.
3. Belajar memperbaiki kesalahan sintaks.
TUGAS PRAKTIKUM
Berikut ini terdapat 5 buah contoh program dalam bahasa Pascal. Praktikan diminta untuk mengetik kembali contoh-contoh program tersebut dan belajar memperbaiki kesalahan sintaks yang muncul. Langkah-langkah yang harus dilakukan praktikan garis besarnya sebagai berikut:
A. PASCAL
1. Menjalankan aplikasi Turbo Pascal.
2. Membuat direktori kerja untuk menyimpan program yang akan di buat/edit.
3. Mengubah direktori kerja ke direktori kerja yang telah dibuat.
4. Membuat (create) program:
a. Program 1: hello.pas, pilih submenu New dari menu file lalu edit program dari awal sesuai dengan contoh yang ada di listing program.
b. Untuk program berikutnya: (minimal 2 dari 4 program berikut)
i. bacabil.pas, dengan cara men-Save As dari program yang sudah ada (misalnya hello.pas). Merupakan program untuk membaca dua bilangan (yang bertipe integer dan real) dan menampilkan hasil ke layar
writeln('A= ',A:8,' B= ',B:8:2);
Berarti untuk variable A yang bertipe integer disediakan tempat 8 digit, sedangkan untuk variable B yang bertipe real disediakan tempat 8 dengan 2 digit untuk decimal.
ii. datamhs.pas : membaca sejumlah data secara berurutan. Ada anomali di Pascal. Yang perlu dicobakan adalah mengganti pasangan write dan readln untuk dengan write dan read. Coba amati efeknya!
write('NRP: ');readln(NRP);
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
Modul 2 Praktikum Algoritma dan Pemograman I Semester I Thn ajaran 2012/2013 - Teknik Informatika UNPAS 2
iii. lingkaran.java: pada program ini ada contoh bagaimana mendeklarasikan konstanta. Yang perlu dicobakan adalah menambahkan perintah write(„R= „) agar sebelum nilai R dibaca ada pesan yang tampil di layar.
iv. conversion.pas: program ini mengkonversi suhu dari Celcius ke Reamur dan Fahreinheit. Perbandingan (Reamur :Celcius :Fahrenheit) adalah 4:5: 9 dengan titik beku Fahrenheit adalah 32 derajat celcius.
5. Memperbaiki kesalahan sintaks: kesalahan sintaks baru terdeteksi jika program sudah di compile. Uji coba yang dapat di lakukan a.l: menghapus tanda semi colon/symbol akhir instruksi (;) , menghapus sebuah deklrasi variable, membuat nama karakter dalam instruksi menjadi tidak sesuai dengan namanya waktu dideklarasikan, mengubah symbol assignment (‘:=’) menjadi (‘=’), menghapus tanda akhir blok (‘end’), dsb.
6. Compile, menjalankan program dan mendeteksi kesalahan lojik. Program dapat dijalankan dengan memilih menu Run dan untuk melihat hasilnya dengan menekan Alt lalu F5 sekaligus. Uji coba: pada program bacabil.pas hapus intruksi read(A) dan read(B). Compile dan jalankan kembali, bagaimana hasilnya? Mengapa?
LISTING PROGRAM
1. Program hello.pas
program BacaBilangan;
begin
writeln('hello....');
end.
2. Program bacabil.pas
program BacaBilangan;
var
A: integer;
B: real;
begin
write('Nilai A: ');read(A);
write('Nilai B: ');read(B);
writeln('A= ',A:8,' B= ',B:8:2);
end.
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
3. Program datamhs.pas
program BacaDataMahasiswa;
var
NRP, Nama,Alamat, TglLahir, Agama: string;
Kelas, JenisK:char;
begin
write('NRP: ');readln(NRP);
write('Nama: ');readln(Nama);
write('Alamat: ');readln(Alamat);
write('Tgl Lahir: ');readln(TglLahir);
write('Agama: ');readln(Agama);
write('Kelas: ');readln(Kelas);
write('Jenis Kelamin: ');readln(JenisK);
write(NRP:10,Nama:15,Alamat:15,TglLahir:15,Agama:10,Kelas:5,JenisK:4);
end.
4. Program lingkaran.java
program Luaslingkaran;
const phi=3.14;
var R,luas:real;
begin
Read(R);
Luas:=Phi*sqr(R);
writeln(Luas);
end.
5. Program conversion.pas
program Conversion;
var C,R,F:real;
begin
write('C: ');readln(C);
R:=4/5*C;
F:=9/5*C + 32;
writeln(R:8:2, F:8:2);
end.