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

Program Dasar Case Of dengan Bahasa Pascal

program dasar_caseof;
var
x:integer;
begin
writeln('belajar case of dasar');
writeln;
write('masukan sebuah angka =');readln(x);

case x of
0:writeln('x bernilai 0');
1:writeln('x bernilai 1');
2:writeln('x bernilai 2');
3:writeln('x bernilai 3');

else
writeln('x tidak bernilai 0,1,2,3');
end;
end.

Read more »

Posted in: BAHASA PASCAL

Program Konversi Nilai dengan Bahasa Pascal

program konversi;
var
angka:integer;

begin
writeln('mengkonversi nilai angka menjadi huruf');
write('masukan nilai anda = ');readln(angka);
if ((angka>=0) and (angka<=20)) then
writeln('nilai anda adalah huruf = e')
else if ((angka>20) and (angka<=40)) then
writeln('nilai anda adalah huruf = d')
else if ((angka>40) and (angka<=60)) then
writeln('nilai anda adalah huruf = c')
else if ((angka>60) and (angka<=80)) then
writeln('nilai anda adalah huruf = b')
else
writeln('nilai anda adalah huruf = a');
end.

Read more »

Posted in: BAHASA PASCAL

Program Positif For Negatif dengan Bahasa Pascal

program positifornegatif;
var
x:integer;
begin
writeln('menguji if then else');
write('masukan sebuah angka=  ');readln(x);
if(x>0)then
writeln('x adalah positif')
el
writeln('x adalah bilangan negatif');
end.

Read more »

Posted in: BAHASA PASCAL