Nama Program
Konversi Binner ke Desimal
Bahasa
Pascal

uses wincrt;

type input=string[16];

procedure bin2dec(s:input;var k:word);
var i,j,a:integer;
begin
if s[length(s)]='1' then k:=1;
for i:=length(s)-1 downto 1 do
if s[i]='1' then
begin
a:=1;
for j:=i to length(s)-1 do a:=a*2;
k:=k+a;
end;
end;

var hasil:word;

data:input;

begin
readln(data);
bin2dec(data,hasil);
writeln(hasil);
end.

program Penjumlahan;

uses wincrt;
var
i, n: integer;
jumlah, bilangan: real;

begin
write(‘Banyak bilangan : ’);read(n);
jumlah := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bilangan);
jumlah := jum+bil;
end;
writeln(‘Jumlah = ‘,jumlah);
end.

Nama Program
Identifikasi Angka Genap atau Ganjil

Bahasa
Pacal

uses wincrt;

Var angka:integer;

begin
clrscr;
REPEAT
Write('ketik suatu angka[0=keluar]:');Readln(angka);
If angka = 0 then exit;
writeln;

if odd(angka) then
writeln('angka',angka,'adalah angka GANJIL')
else;
writeln('angka',angka,'adalah angka GENAP');
writeln;
Until false;
End.

Keliling Lingkaran

function Kelilinglingkaran ($a)
{
$b = 2*(22/7)*$a;
return $b;
}

$jari2 = 10;
$hasil = Kelilinglingkaran ($jari2);

echo "Keliling Lingkaran";
echo "
";
echo "
";
echo "Jari-jari = $jari2";
echo "
";
echo "Luas = $hasil";
?>

function luasbujursangkar ($a)
{
$b = $a*$a;
return $b;
}

Luas Bujur Sangkar

$sisi = 10;
$hasil = luasbujursangkar($sisi);
echo "Luas Bujur Sangkar";
echo "
";
echo "
";
echo "Sisi = $sisi";
echo "
";
echo "Luas = $hasil";
?>

Luas Lingkaran

function luaslingkaran ($a)
{
$b = (22/7)*($a*$a);
return $b;
}

$jari2 = 10;
$hasil = luaslingkaran ($jari2);
echo "Luas Lingkaran";
echo "
";
echo "
";
echo "Jari-jari = $jari2";
echo "
";
echo "Luas = $hasil";
?>

function luaspersegipanjang ($a,$b)
{
$c = $a * $b;
return $c;
}

Luas Persegi Panjang

$panjang = 10;
$lebar = 15;
$hasil = luaspersegipanjang ($panjang, $lebar);
echo "Luas Persegi Panjang";
echo "
";
echo "
";
echo "Panjang = $panjang";
echo "
";
echo "Lebar = $lebar";
echo "
";
echo "Luas = $hasil";
?>

Luas Segitiga

function luassetitiga ($a,$b)
{
$c = ($a * $b)/2;
return $c;
}

$alas = 10;
$tinggi = 20;
$hasil = luassetitiga ($alas, $tinggi);
echo "Luas Segitiga";
echo "
";
echo "
";
echo "Alas = $alas";
echo "
";
echo "Tinggi = $tinggi";
echo "
";
echo "Luas = $hasil";
?>

Volume Balok
function volumebalok ($a,$b,$c)
{
$d = $a * $b * $c;
return $d;
}

$panjang = 15;
$lebar = 10;
$tinggi= 5;

$hasil = volumebalok ($panjang, $lebar, $tinggi);

echo "Volume Balok";
echo "
";
echo "
";
echo "Panjang = $panjang";
echo "
";
echo "Lebar = $lebar";
echo "
";
echo "Tinggi = $tinggi";
echo "
";
echo "Volume = $hasil";
?>

Volume Tabung
function volumetabung ($a,$b)
{
$c = (22/7)*$a*$a*$b;
return $c;
}

$jari2 = 10;
$tinggi = 20;
$hasil = volumetabung ($jari2, $tinggi);
echo "Volume Tabung";
echo "
";
echo "
";
echo "Alas = $jari2";
echo "
";
echo "Tinggi = $tinggi";
echo "
";
echo "Luas = $hasil";
?>