Pemograman dasar Pascal array
Pemograman pascal array
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.
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
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
Asisten membantu praktikan untuk mengingatkan agar mengedit program dengan baik (member identasi, tidak mengetik program dari awal) dan membantu menjelaskan kesalahan sintaks.
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.
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
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 ");
}
}
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.
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
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
Asisten membantu praktikan untuk mengingatkan agar mengedit program dengan baik (member identasi, tidak mengetik program dari awal) dan membantu menjelaskan kesalahan sintaks.
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.
Pengenalan Sintaks Bahasa Pemograman dan Lingkungan Pemograman
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 ");
}
}
0 Response to "Pemograman dasar Pascal array "
Post a Comment