program konversiDecToBin_Iman;
var bilangan : integer;

function decToBin(desimal : integer) : string;
var hasilBagi, sisa : integer;
bin : char;
bilBiner : string;
begin
hasilBagi := desimal div 2;
bilBiner := '';
     while (hasilBagi>= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0) then bin := '0'
else if (sisa = 1) then bin := '1';
bilBiner := bin + bilBiner;
desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin := '1' + bilBiner;
end;

begin
bilangan := 200;
write('Bilangan binernya adalah: ', decToBin(bilangan));
readln;
end.

Readmore »»

Source code :
program cekPrima;
var N, i : integer;
status : string;
begin
write('Masukkan N : ');
readln(N);
status := 'PRIMA';
for i:=2 to N-1 do
begin
if (N mod i = 0) then
begin
status := 'TIDAK PRIMA';
break;
end;
end;
write('Bilangan ',N,' adalah : ',status);
end.

Readmore »»

Source code :
program cekPrima;
var N, i : integer;
status : string;
begin
write('Masukkan N : ');
readln(N);
status := 'PRIMA';
for i:=2 to N-1 do
begin
if (N mod i = 0) then
begin
status := 'TIDAK PRIMA';
break;
end;
end;
write('Bilangan ',N,' adalah : ',status);
end.

Readmore »»