LA Prolog III

/* Program Menu */
menu:-nl,
write('------ MENU ------'),nl,
write(' 1. Biodata '),nl,
write(' 2. Aritmatika '),nl,
write(' 3. Kondisi '),nl,
write(' 4. Exit'),nl,
write('-----------------'),nl,
write('Pilihan [1..3] : '),read(Pil),
(
    Pil = 1 ->
    write('---- BIODATA ----'),nl,
    write('Masukan Nama  : '),read(Nama),
    write('Masukan Kelas : '),read(Kelas),
    write('Masukan NPM   : '),read(NPM),

    write('Nama Saya '),write(Nama),
    write('Kelas Saya '),write(Kelas),
    write('NPM Saya '),write(NPM),
    menu;

LA Prolog II

/* Program Menghitung umur */

tuamuda:-nl,
write('Masukan Nama        : '), read(Nama),
write('Masukan Tahun Lahir : '), read(Lahir),

Umur is (2013 - Lahir),

write('Nama Saya '), write(Nama),nl,
write('Umur Saya '), write(Umur),nl,
write('Saya adalah '),
(
     Umur > 49 -> write('Orang Tua');
     Umur > 20 -> write('Dewasa');
     Umur > 12 -> write('Remaja');
     Umur > 5 -> write('Anak Kecil');
     write('Bayi')
).

LOGIKA PROGRAM
Program ini adalah program sederhana kondisi dimana kondisi pada program ini terletak pada Umur
yang mana kondisinya adalah sebagai berikut :

LP Prolog II

Soal
1. Apa yang kalian ketahui tentang program Menu pada Prolog ?
2. Buatlah contoh programnya !

LP Prolog I

Soal
1. Apa yang kamu ketahui tentang kondisi pada prolog ?
2. Contoh statment kondisi pada prolog ?

LA Java V

//Program Menu
import javax.swing.*;
public class LA5 {

   public static void main(String[] args) {
       
   do
   {
      String pil1 = JOptionPane.showInputDialog(
      "Menu\n 1. while\n 2. deret\n 3. nilai\n 4. exit\n Masukan pilihan [1..4]");
           
      int pil=Integer.parseInt(pil1);
           
      switch(pil)
      {
         case 1:
           String anak = JOptionPane.showInputDialog("Masukan Angka : ");
           int nilai = Integer.parseInt(anak);
           while (nilai>=1)
           {   
              System.out.println("Aku anak soleh");
              nilai--;
           }
           System.out.println("");
           break;

LA Prolog I

Praktikum kali ini akan membahas tentang prolog~
Anda bisa download software prolog disini~ (^0^)

Sekarang kita akan coba membuat file prolog. Disini kita akan mengunakan notepad untuk menulis codenya.
Tulis seperti di bawah ini :

nama:-nl,
write('Masukan Nama  : '),read(Nama),
write('Masukan Kelas : '),read(Kelas),
write('Masukan NPM   : '),read(NPM),

write('Nama Saya '),write(Nama),nl,
write('Kelas Saya '),write(Kelas),nl,
write('NPM Saya '), write(NPM).

Kemudian simpan dengan extension .pl

Untuk mencompilenya :
Buka SWI prolog, pilih FILE>>Consult...>>Lalu cari file yang tandi anda buat

LP Java IV

Soal
1. Apa yg kamu ketahui ttg throw dan exception?
2. Apa yg kamu ketahui ttg catch dan try?

LA Java IV

//Program Array 1 Dimensi
import java.util.*;
public class LA4a {

    public static void main(String[] args) {
   
       Scanner input = new Scanner(System.in);
       int[] array= new int[10];
       int i,j,jumlah=0;
       float rata;
   
       System.out.print("Masukan Jumlah data : ");
       i=input.nextInt();
   
       for(j=0;j<i;j++)
       {
          System.out.print("Data ke-"+(j+1)+" = ");
          array[j]=input.nextInt();
          jumlah=jumlah+array[j];
       }
   
       rata=jumlah/i;
       System.out.println("\n\nNilai Element Array");
       for(j=0;j<i;j++)
       {
          System.out.println("Data ke-"+(j+1)+" =  "+array[j]);
       }
       System.out.println("----------------- +");
       System.out.println("Jumlah    =  "+jumlah);
       System.out.println("Rata-rata =  "+rata);
 

Konversi Bilangan Desimal

//Program Konversi bilangan dari Desimal ke Binner, Oktal dan Hexa

import java.util.*;
public class LA3a {

    public static void main(String[] args) {
   
        Scanner input = new Scanner(System.in);
        int[] b =new int[10];
        int[] c =new int[10];
        int[] e =new int[10];
        int a,a1,a2,d,i=0;
   
        System.out.print("Masukan ilangan Desimail : ");
        a = input.nextInt();
   
        a1=a2=a;

        //Konversi Bilangan Desimal ke Binner
        System.out.print("\n\nBilangan Binner : "); 
        while (a>=1)
        {
            b[i]=a%2;
            i++;
            a=a/2;
        }