Selasa, 08 Mei 2012
#memngkonversi bilangan*
uses crt;
var bilangan:integer;
function decTOBin(desimal:integer):string;
var hasilbagi, sisa : integer;
bin:char;
bilBiner:string;
begin
hasilBagi := desimal div 2;
bilBiner :='';
{syarat prulangan :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
bilangan :=200;
write('bilangan binernya :', deCTOBin(bilangan));
readln;
end.
#program penjualan*
uses crt;
var
b:string;
h,y,u,by,tb:real;
lagi:char;
begin
writeln('toko"laris manis" ');
writeln ('__________');
tb:=0;
lagi := 'y';
while lagi= 'y' do
begin
write ('barang :');readln(b);
write ('harga:'); readln(h);
write ('unit:'); readln(u);
by:= h*u;
writeln('bayar :',by:0:0);
writeln ('coba lagi (y/t); ');readln(lagi);
writeln;
writeln;
tb:= tb+by;
end;
writeln('total bayar :',tb:0:0);
end.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar