Driver CanonScaner F915800

Driver CanonScaner  F915800

Download 

LIRIK DOEL SUMBANG AKU TAK BISA JAUH

SEKIAN KALI  KATA CINTA AKU UNGKAPKAN,
SEKIAN KALI KATA SAYANG AKU BISIKKAN,
KINI AKU MERASA JADI MAKIN CINTA,
CINTA PADAMU,

SEKIAN BANYAK HARAPANKU,  KUSIMPAN DI ANGAN,
SEKIAN KALI DOA DOA AKU PANJATKAN,
SEMOGA TUHAN KABULKAN,
SATU PERMINTAAN KAU TAK PERGI DARIKU,

***
AKU TAK BISA JAUH,
WALAU HANYA SEKEJAP, APALAGI SELAMANYA,
KAU HAROMINIAKU, GITAR AKUSTIK KU,
INSFIRASIKU,

WALAU KUTAK BERNYALI MEMPERTANYAKAN,
WALAU DIRIMU TAK TERCIPTA UNTUK KU,
TAPI AKU HARUS JUJUR BAHWA AKU TAK SANGGUP,
HIDUP TANPA DIRIMU,

BACK ***

LEBIH BAIK AKU MATI,
LEBIH BAIK PILIH MATI,
BILA AKU HARUS HIDUP TANPA KAMU,

LEBIH BAIK MATI,,,

Program Antrian

 Tugas Mandiri Struktur Data, Membuat Program Antrian,
 Jurusan Teknik Informatika,


program animation_queue;

uses wincrt;

const max_elemen =10;
type antri = array [1..max_elemen] of char;

var

antrian : antri;
q : antri;
d : char;
isi : antri;
depan, belakang, pilih : integer;
elemen : char;


procedure kotak;

var

i: integer;

begin

gotoxy(20,15);

for i:= 1 to max_elemen * 4 + 1 do

write('*');

gotoxy(22,16);

for i:= 1 to max_elemen do

write('| ');


writeln('| | | | | | | | | | ');

gotoxy(20,17);

for i:= 1 to max_elemen * 4 + 1 do

write('*');

gotoxy(8,16);writeln('<***** Out');

gotoxy(22+max_elemen*4+1,16);

writeln('<***** In');

end;


procedure letakkan(x: char; r:integer);

begin

gotoxy(18+4*r,16);

write(x);

end;

function kosong(q: antri): boolean;

begin

kosong:=(depan=belakang)

end;

procedure tambah(var antrian: antri;x:char);

begin

if belakang=max_elemen then belakang:=1

else belakang:=belakang+1;

if not (kosong(antrian)) then

begin

antrian[belakang]:=x;

letakkan(x,belakang);

end

else

begin

gotoxy(40,9);

write('OVERFLOW');

repeat

{menunggu sampai ada tombol ditekan}

until keypressed;

gotoxy(40,9);

write(' ':30);

belakang:=belakang-1;

if belakang=0 then

belakang:=max_elemen

end

end;

function qkosong(q:antri):boolean;

begin

qkosong:= (depan = belakang);
end;

procedure Dequeue(var q:antri; ed:char);
begin

if not(qkosong(q)) then

begin

if depan = max_elemen then depan :=1

else depan := depan+1;
ed := isi[depan];

end;

end;
procedure tampil(q: antri);

var i,awal : integer;
begin
CLRSCR;
writeln('ANTRIAN');

if depan = max_elemen then awal :=1

else awal := depan +1;

for i:=awal to belakang do

writeln(i:3,' ':5,isi[i],' ');

READLN;
end;


function hapus(var antrian: antri):char;

begin

if depan=max_elemen then

depan:=1

else

begin

depan:=depan+1;

hapus:=antrian[depan]

end

end;

{program utama}

begin

clrscr;

kotak;

depan:=0;

belakang:=0;

repeat

for pilih:=5 to 9 do

begin

gotoxy(40,pilih);write(' ':39);

end;
              

gotoxy(1,1);
writeln ('NPM : 110210087 ');
writeln ('kode kelas : 112-IF211-M2');
writeln;

writeln('MENU ');


writeln;

writeln(' 1. Tambahkan sebuah pilihan baru ');

writeln(' 2. Menampilkan antrian    ');

writeln(' 3. SELESAI dan TUTUP');

writeln('PILIHAN ANDA:');
writeln;               
write ('*** TERIMA KASIH UNTUK MENGGUNAKAN PROGRAM INI ***');
writeln;
write (' PROGRAM DIBUAT OLEH ');
writeln;
write (' JALALUDDIN SOLIN ');
writeln;
write (' http://jlssolin.blogspot.com ');
writeln;

repeat

gotoxy(22,9);writeln(' ');

gotoxy(22,9);readln(pilih);

until (pilih>=1) and(pilih<=3);

case pilih of

1 : begin


write('MASUKKAN PILIHAN ANDA:');readln(elemen);

tambah(antrian,elemen);

end;

2 : begin

if not(kosong(antrian)) then

begin
Dequeue(q,d);
tampil(q);
end

else

begin
gotoxy (30,9);
writeln ('UNDERFLOW');
elemen:=readkey;
gotoxy (30,9);write (' ':30);
end
end
end;
until pilih=3
end.




DESA PASI                                                     BIKERS BATAM BERSATU       

APGPI ~Anak Pemulung Gelandang Pengangguran Indonesia~ 

LIRIK DOEL SUMBANG AKU INGIN JATUH CINTA

CUKUP LAMA KUSENDIRI,
HIDUP BERTEMANKAN SEPI,
ADA RUANG DALAM HATI,
KOSONG TAK TERISI,

***
AKU INGIN JATUH CINTA,
TETAPI PADA SIAPA,
KEGAGALAN MASA LALU,
TAK INGIN TERULANG,

AKHIRNYA KAU HADIR,
MENGISI RUANGKU,
MENGUBUR  LUKAKU,
MENGGALI SENYUMKU, 

KINI AKU BAHAGIA, 
HIDUP DENGANMU,

BACK TO REFF *** 


SUNGGUH AKU BAHAGIA, HIDUP DENGANMU,