Program Input Data, Integer dan String dengan Java

import java.io.*;
class mhsku{
mhsku(String nama, int nim, String jurusan, int tinggi_badan, int berat_badan, String warna_rambut){
System.out.println("Nama :"+nama);
System.out.println("Nim :"+nim);
System.out.println("Jurusan :"+jurusan);
System.out.println("TinggiBadan :"+tinggi_badan);
System.out.println("BeratBadan :"+berat_badan);
System.out.println("WarnaRambut :"+warna_rambut);

}

}
public class BiodataMhsku{
public static void main(String args[])throws IOException{
BufferedReader input=new BufferedReader(new InputStreamReader(System.in));

System.out.print("Nama anda :");
String nama=input.readLine();
System.out.print("NIM anda :");
String no_pokok=input.readLine();
int nim=Integer.parseInt(no_pokok);
System.out.print("Jurusan anda :");
String jurusan=input.readLine();
System.out.print("tinggi badan anda :");
String tinggi_badan1=input.readLine();
int tinggibadan=Integer.parseInt(tinggi_badan1);
System.out.print("berat badan anda :");
String berat_badan=input.readLine();
int beratbadan=Integer.parseInt(berat_badan);
System.out.print("Warna rambut anda :");
String warna_rambut=input.readLine();


mhsku mhs1 = new mhsku (nama,nim,jurusan,tinggibadan,beratbadan,warna_rambut);
}
}

Read more »

Posted in: BAHASA JAVA

Program Input Data Mobil dengan Java

class Mobil{
String warna;
int tahunProduksi;

}
public class MobilBereaksi{
public static void main (String[]args){
Mobil mobilku = new Mobil();

mobilku.warna="Hitam";
mobilku.tahunProduksi=2012;
System.out.println("Warna :"+mobilku.warna);
System.out.println("Tahun :"+mobilku.tahunProduksi);

}}

Read more »

Posted in: BAHASA JAVA

Program Input Data Pribadi dengan Java

import java.io.*;

public class SalamKenal3
{
public static void main (String[]args)
{
System.out.print("Masukan Nama Anda         : ");
String name=InputKeyboard.inputString();

System.out.print("Masukan NIM Anda          : ");
String nim=InputKeyboard.inputString();

System.out.print("Masukan Jurusan Anda      : ");
String jrs=InputKeyboard.inputString();

System.out.print("Masukan Berat Badan Anda  : ");
String berat=InputKeyboard.inputString();

System.out.print("Masukan Tinggi Badan Anda : ");
String tgi=InputKeyboard.inputString();

System.out.print("Masukan Hobby Anda        : ");
String hby=InputKeyboard.inputString();

System.out.println("");
System.out.println("_______BIODATA MAHASISWA____________");
System.out.println("");
System.out.println(" Nama         : " + name);
System.out.println(" NIM          : " + nim );
System.out.println(" Jurusan      : " + jrs );
System.out.println(" Berat Badan  : " + berat );
System.out.println(" Tinggi Badan : " + tgi);
System.out.println(" Hobby Anda   : " + hby);}
}

Read more »

Posted in: BAHASA JAVA

Program Mobil Beraksi

class Mobil3{
String Hidupkanmobil;
String Matikanmobil;
String Ubahgigimobil;

void Hidupkanmobil(){
System.out.println("nyalakan = "+ Hidupkanmobil);
}
void Matikanmobil(){
System.out.println("matikan = " + Matikanmobil);
}
void Ubahgigimobil(){
System.out.println("ubahkan = " + Ubahgigimobil);
}
}
public class MobilBereaksi1{
 public static void main (String[]args){
 Mobil3 mobilku = new Mobil3();

 mobilku.Hidupkanmobil ="jeng..jeng";
 mobilku.Matikanmobil ="tek..tek";
 mobilku.Ubahgigimobil ="ti..tik";
 mobilku.Hidupkanmobil();
 mobilku.Matikanmobil();
 mobilku.Ubahgigimobil();
 }}

Read more »

Posted in: BAHASA JAVA

Program Menentukan Bilangan Genap dan Ganjil dengan Bahasa Pascal

var i:integer;
begin
for i:=1 to 10 do
if i mod 2=0 then
writeln ('genap')
else
writeln ('ganjil');
end.



program coba;
var
a:integer;
f:text;
begin
assign(f,'hai');
rewrite(f);
readln(a);
if (a mod 2=0) then
writeln(f,'bilangan genap')
else
writeln(f,'bilangan ganjil');
close(f);
end.

Read more »

Posted in: BAHASA PASCAL

Program Bilangan Biner dengan Bahasa Pascal

program bilanganbinner;
var bilangan : integer;
function decToBin(desimal : integer) : string;
var hasilBagi,sisa : integer;
bin : char;
bilBiner : string;
begin
hasilBagi := desimal div 2;
bilBiner := '';
{ syarat perulangan : selama hasil bagi lebih besar sama dengan 1 };
while (hasilBagi >= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0) then bin := '0'
else if (sisa = 1) then bin := '1';
{ menggabung sisa pada setiap perulangan untuk membentuk digit biner};
bilBiner := bin + bilBiner;
desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin := '1' + bilBiner;
end;
begin
readln (bilangan);
write('Bilangan binernya : ', decToBin(bilangan));
readln;
end.

Read more »

Posted in: BAHASA PASCAL