Modul Latihan Progran Pascal & Java - Part3

Langsung aja gan latihan modul lanjutan yang sebelumnya Oke silahkan di coba jangan lupa baca petunjuknya
Modul III
STRUKTUR KONTROL: PENCABANGAN
Tujuan
Tujuan materi praktikum pada Modul III ini adalah:
1. Megenal sintaks struktur kontrol pencabangan dalam bahasa pemograman Pascal dan Java:
a. IF-THEN dan IF-THEN-ELSE.
b. CASE/ SWITCH:
2. Belajar menganalisi kasus.
3. Mengenal tipe data himpunan (Set).
4. Belajar memperbaiki kesalahan sintaks.
5. Belajar menguji hasil program dengan mempersiapkan test case untuk setiap kemungkinan.
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 (create) program:
a. Program 1: akar_kuadrat.pas, dengan cara men-Save As dari program yang sudah ada.
b. Jalankan program tersebut dan test untuk data sebagai berikut:
i. D<0: A=1, B=3, C=4
ii. D=0: A=1, B=4, C=4
iii. D>0: A=1, B=5, C=4
c. Edit program dengan mengganti rumus X1 dan X2 sebagai berikut lalu coba jalankan lagi dengan data di atas. Amati bagaimana hasilnya. Mengapa hasilnya demikian?
X1:= -b+ sqrt(D)/(2*a);
X2:=-b- sqrt(D)/(2*a);
3. Membuat (create) program:
a. Program 2: case_bulan.pas, dengan cara men-Save As dari program yang sudah ada.
b. Jalankan program tersebut dan test untuk data sebagai berikut:
i. Bulan=1
ii. Bulan=4
iii. Bulan=2 dan Tahun=2011
iv. Bulan=2 dan Tahun=2012
v. Bulan=0
c. Bagaimana hasilnya?
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
Modul 2 Praktikum Algoritma dan Pemograman I Semester I Thn ajaran 2012/2013 - Teknik Informatika UNPAS 3
B. JAVA
1. Menjalankan aplikasi Java.
2. Membuat (create) program:
a. Program 1: akar_kuadrat.pas, dengan cara men-Save As dari program yang sudah ada.
b. Jalankan program tersebut dan test untuk data sebagai berikut:
i. D<0: A=1, B=3, C=4
ii. D=0: A=1, B=4, C=4
iii. D>0: A=1, B=5, C=4
c. Edit program dengan mengganti rumus X1 dan X2 sebagai berikut lalu coba jalankan lagi dengan data di atas. Amati bagaimana hasilnya. Mengapa hasilnya demikian?
X1:= -b+ sqrt(D)/(2*a);
X2:=-b- sqrt(D)/(2*a);
3. Membuat (create) program:
a. Program 2: moon.java, dengan cara men-Save As dari program yang sudah ada.
b. Perbaiki bagian syntax error pada bagian deklarasi data berikut:
int NumHari,dBulan,Year;
c. Mengapa dianggap salah?
d. Jalankan program tersebut dan test untuk data sebagai berikut:
i. Bulan=1
ii. Bulan=4
iii. Bulan=2 dan Tahun=2011
iv. Bulan=2 dan Tahun=2012
v. Bulan=0
e. Bagaimana hasilnya?
4. JIKA MASIH ADA WAKTU, Membuat (create) program:
a. Program 2: akark_kuadrat.java, dengan cara men-Save As dari program yang sudah ada.
b. Mengedit program stersebut dengan mengacu pada algoritma program akar_kuadrat.pas. Cara mengacu fungsi sqrt(D) pada java adalah sebagai berikut:
Math.sqrt(D).
Perhatikan tipe data dari variable di dalam fungsi sqrt. Tipe data D harus sesuai dengan tipe data tersebut.
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
Modul 2 Praktikum Algoritma dan Pemograman I Semester I Thn ajaran 2012/2013 - Teknik
LISTING PROGRAM
1. Program akar_kuadrat.pas
program akar_kuadrat;
var A,B,C:integer;
D,X1,X2:real;
begin
write('A: ');readln(A);
write('B: ');readln(B);
write('C: ');readln(C);
D:=B*B-4*A*C;
if (D<0)
then writeln('X1 dan X2 imajiner')
else begin
if (D=0)
then begin
X1:= (-b+ sqrt(D))/(2*a);
X2:=X1;
writeln('X1 = X2 yaitu ',X2:10:2);
end else
begin
X1:= (-b+ sqrt(D))/(2*a);
X2:=(-b- sqrt(D))/(2*a);
writeln('X1 = ',X1:10:2,' X2= ', X2:10:2);
end;
end;
end.

2. Program case_bulan.pas
program Case_Bulan;
const NamaBulan:array[1..12] of string[10]= ('Januari', 'Februari',
'Maret','April', 'Mei', 'Juni', 'Juli',
'Agustus', 'September', 'Oktober', 'November', 'Desember');
var bulan,tahun,JH:integer;
begin
write('Kode Bulan: ');readln(Bulan);
case Bulan of
1,3,5,7,8,10,12: begin
JH:=31;
writeln('Nama Bulannya : ',NamaBulan[Bulan]);
end;
4,6,9,11 :
begin
JH:=30;
writeln('Nama Bulannya : ',NamaBulan[Bulan]);
end;
2 : begin
writeln('Nama Bulannya : ',NamaBulan[Bulan]);
write('Tahun: ');readln(Tahun);
if (Tahun mod 4= 0)
then
JH:=29
else
JH:=28
end;
else writeln('Kode bulan salah');
end;
writeln('Jumlah hari: ',JH);
end.
3. Program moon.java
import java.util.Scanner;
public class Moon {
public static void main(String[] args) {
// TODO code application logic here
String Bulan[]={"januari",
"Februari","Maret","April","Mei","Juni","Juli",
"Agustus", "September","Oktober", "November","Desember"};
int NumHari,dBulan,Year;
Scanner sc= new Scanner(System.in);
System.out.print("Month Code : (1-12) ");dBulan=sc.nextInt();
switch (dBulan) {
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12: NumHari=31;
System.out.println("Month name : "+Bulan[dBulan-1]);
break;
case 4:
case 6:
case 9:
case 11: NumHari=30;
System.out.println("Month name : "+Bulan[dBulan-1]);
break;
case 2:
System.out.print("Year: ");Year=sc.nextInt();
if (Year % 4 == 0)NumHari=29;
else NumHari=28;
System.out.println("Month name : "+Bulan[dBulan-1]);
break;
default: System.out.println("Kode bulan salah ");
}
System.out.println("Number of days = "+NumHari);
System.out.println("Finished ");
}
}