Modul Latihan Program Pascal & Java - Part4

Selamat mengkoding Langsung aja gan latihan modul lanjutan yang sebelumnya Oke silahkan di coba jangan lupa baca petunjuknya
Modul IV
STRUKTUR KONTROL: PENGULANGAN
Tujuan
Tujuan materi praktikum pada Modul IV ini adalah:
1. Megenal sintaks struktur kontrol pengulangan dalam bahasa pemograman Pascal dan Java:
a. FOR
b. REPEAT
c. WHILE
2. Belajar menganalisi kasus.
3. Belajar memperbaiki kesalahan sintaks.
4. Belajar menguji hasil program dengan mempersiapkan test case untuk setiap kemungkinan.
TUGAS PRAKTIKUM
Berikut ini terdapat 6 buah contoh program dalam bahasa Pascal dan Java. 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 Pascal.
2. Membuat (create) program:
a. Program 1: loopfor.pas, dengan cara men-Save As dari program yang sudah ada.
b. Jalankan program tersebut dan test untuk data sebagai berikut dan perhatikan hasilnya:
i. N<1
ii. N=1
iii. N>1
c. Create program 2 dan 3 dengan men-Save As program loopfor.pas. Ganti struktur pengulangannya masing-masing dengan repeat (lihat listing program no 2 looprepeat.pas) dan while (lihat listing program no 3 loopwhile.pas).
d. Test program 2 looprepeat.pas dan program 3 loopwhile.pas dengan data yang sama seperti di poin e. Edit program 2 looprepeat.pas:
i. Set nilai awal i:=1 menjadi i:=0;
ii. Hapus instruksi atau jadikan komentar, i:=i+1;
iii. Ubah eskpresi lojik i>N menjadi i<N
Catatan: setiap kali edit harus di test dengan kasus b, setelah itu dikembalikan lagi ke kode asli sebelum di coba dengan kasus edit berikutnya. Perhatikan hasilnya? Apa yang anda simpulkan?
f. Edit program 2 loopwhile.pas:
i. Set nilai awal i:=1 menjadi i:=0;
ii. Hapus instruksi atau jadikan komentar, i:=i+1;
iii. Ubah eskpresi lojik i<=N menjadi i>N
Catatan: setiap kali edit harus di test dengan kasus b, setelah itu dikembalikan lagi ke kode asli sebelum dicoba dengan kasus edit berikutnya. Perhatikan hasilnya? Apa yang anda simpulkan?
B. JAVA
1. Menjalankan aplikasi Java.
2. Membuat (create) program:
a. Program 4: loopfor.java, dengan cara men-Save As dari program yang sudah ada. Program ini merupakan hasil translasi dari Pascal ke Java.
b. Membuat program 5 looprepeat.java dan 6 loopwhile.java: dengan men-Save As dari loopfor.java.
c. Test setiap program dengan cara yang sama dengan program dalam bahasa Pascal.
LISTING PROGRAM
1. Program loopfor.pas
program LoopFor;
var B:real;
i,N:integer;
begin
write('N= ');Read(N);
for i:=1 to N do
begin
writeln('i= ',i);
end;
writeln('Selesai ');
end.
2. Program looprepeat.pas
program LoopRepeat;
var B:real;
i,N:integer;
begin
write('N= ');Read(N);
i:=1;
repeat
writeln('i= ',i);
i:=i+1;
until (i>N);
writeln('Selesai ');
end.
3. Program loopwhile.pas
program LoopWhile;
var B:real;
i,N:integer;
begin
write('N= ');Read(N);
i:=1;
while (i<=N) do
begin
writeln('i= ',i);
i:=i+1;
end;
writeln('Selesai ');
end.
4. Program loopfor.java
import java.util.Scanner;
public class loopfor {
public static void main(String[] args) {
int N;
Scanner sc= new Scanner(System.in);
System.out.print("N : ");N=sc.nextInt();
for(int i=0;i<N;i++){
System.out.println("i : "+i);
}
System.out.println("After loop");
}
}
5. Program looprepeat.java
import java.util.Scanner;
public class looprepeat {
public static void main(String[] args) {
int N;
Scanner sc= new Scanner(System.in);
System.out.print("N : ");N=sc.nextInt();
int i=0;
do{
System.out.println("i : "+i);
i++;
}while(i<N);
System.out.println("After loop");
}
}
6. Program loopwhile.java
public class loopwhile {
public static void main(String[] args) {
int N;
Scanner sc= new Scanner(System.in);
System.out.print("N : ");N=sc.nextInt();
int i=0;
while(i<N){
System.out.println("i : "+i);
i++;
}
System.out.println("After loop");
}
}