contoh program kalkulator
program kalkulator;
uses wincrt;
var
tambah,kurang,kali,bagi,a,b:integer;
begin
gotoxy(45,1);writeln('medit-and-pelit.blogspot.com');
writeln('----------------------------------------------------------');
writeln(' program kalkulator ');
writeln('----------------------------------------------------------');
writeln;
writeln;
write('masukan angka pertama = ');readln(a);
write('masukan angka kedua = ');readln(b);
writeln;
writeln;
begin
tambah:=a + b;
kurang:=a - b;
bagi:=a div b;
kali:=a * b;
writeln('hasil penjumlahan : ',a,'+',b,'=',tambah);writeln;
writeln('hasil pengurangan : ',a,'-',b,'=',kurang);writeln;
writeln('hasil pembagian : ',a,'/',b,'=',bagi);writeln;
writeln('hasil perkalian : ',a,'x',b,'=',kali);
end;
end.
untuk file pas download di sini
contoh program faktorial
program faktorial;
Uses wincrt;
var i,n,x : longint;
Begin
gotoxy(45,1);writeln ('medit-and-pelit.blogspot.com');
writeln;
writeln (' Program Faktorial ');
writeln;
write (' masukkan bilangan n= ');
readln (n);
writeln;
if (n<=1) then
writeln('Hasil Faktorialnya= ',1)
else
begin
x:=1;
for i:=1 to n do
x:=x*i;
writeln(' Hasil FaktorialNya= ' ,x);
writeln;
end;
end.
untuk file pas download klik di sini
contoh program konvet desimal to biner,oktal,heksa desimal
program KONVERSI_BILANGAN_DESIMAL;
uses wincrt;
type bantuan = array [1..20] of integer;
var
p, x, n : integer;
larikbin, larikokt, larikhex : bantuan;
procedure KE_BINER;
var a : integer;
begin
x := 1;
a := n;
repeat
begin
larikbin[x] := a mod 2;
a := a div 2;
x := x + 1;
end;
until a < 1;
repeat
begin
x := x - 1;
write (larikbin[x]);
end;
until x = 1;
end;
procedure KE_OKTAL;
var b : integer;
begin
x := 1;
b := n;
repeat
begin
larikokt[x] := b mod 8;
b := b div 8;
x := x + 1;
end;
until b < 1;
repeat
begin
x := x - 1;
write (larikokt[x]);
end;
until x = 1;
end;
procedure KE_HEXADESIMAL;
var c : integer;
begin
x := 1;
c := n;
repeat
begin
larikhex[x] := c mod 16;
c := c div 16;
x := x + 1;
end;
until c < 1;
repeat
begin
x := x - 1;
if larikhex[x] = 10 then
write ('A') else
if larikhex[x] = 11 then
write ('B') else
if larikhex[x] = 12 then
write ('C') else
if larikhex[x] = 13 then
write ('D') else
if larikhex[x] = 14 then
write ('E') else
if larikhex[x] = 15 then
write ('F') else
write (larikhex[x]);
end;
until x = 1;
end;
begin
gotoxy(45,1);writeln('medit-and-pelit.blogspot.com');
writeln ('-------------------------------------------------------------------------------');
writeln;
writeln (' Program Pengkonversi Bilangan Desimal ');
writeln;
writeln ('-------------------------------------------------------------------------------');
writeln;
writeln;
writeln ('Ketikkan sebuah bilangan desimal!');
readln (n);
writeln;
writeln ('Hasil Konversi Bilangan');
write ('Biner : '); KE_BINER;
writeln;
write ('Oktal : '); KE_OKTAL;
writeln;
write ('Hexadesimal : '); KE_HEXADESIMAL;
end.
untuk file pas download klik di sini
Category: | 0 Comments
saerch term :
mobil sedan
oto blitz black
pimmy ride
Exotic Moge
MotoGP
Transportasi Mewah
Honda SUV
car body design
nokia motorola sony
free game game mobile
free game cellphone
free game ponsel
free game java
free game hape
free game phonecell nokia
Download template blogger
Free Software Blog
Free Blogger template
Free Template for BLOGGER
Free template sexy
Free design Template
theme blogspot free
free classic bloggerskin
download template blog car