AJIEX BLOG

pengen bgt rasanya aku memanggil nama mu saat kita bertemu . tp apa daya hati ini tak mampu sedikitpun berjalan mendekatimu , kau indah kan dunia qu walapun hanya dari jaral tertentu . bingung gimana cara nya biar aku bisa berkenalan langsung denganmu . . ohh Mrs Y kau slalu indah di mana pun kau berada. .
semoga aja aku bisa deket m qmu,, cuma jadi teman pun gak masalah. .

uses wincrt;
const max=25;
type antrian=record
nama:array[1..max] of string;
belanja:array[1..max] of longint;
depan,belakang:0..max;
end;
var Q:antrian;
namabaru,namaambil:string;
uangmasuk,masukkas:longint;
pendapatan:real;
cacah,i:byte;
lagi:boolean;
pilih:1..4;

function penuh(q:antrian):boolean;
begin
if q.belakang=max then penuh:=true else penuh:=false;
end;

function kosong(q:antrian):boolean;
begin
if q.belakang=0 then kosong:=true else kosong:=false;
end;

procedure pushq(var q:antrian;n:string;j:longint);
begin
if penuh(q) then writeln('antrian penuh')
else
begin
inc(q.belakang);
q.nama[q.belakang]:=n;
q.belanja[q.belakang]:=j;
end;
end;

procedure popq(var q:antrian);
begin
if kosong(q) then writeln('tidak ada yang mengantri di kasir')
else
begin
namaambil:=q.nama[q.depan];
masukkas:=q.belanja[q.depan];
inc(cacah);pendapatan:=pendapatan+masukkas;
writeln('yang dilayani adalah ' , namaambil , ' dengan belanja sebesar Rp',masukkas:8);
{pergeseran posisi pengantri}
for i:= 1 to q.belakang-1 do
begin q.nama[i]:=q.nama[i+1];
q.belanja[i]:=q.belanja[i+1];
end;
dec(q.belakang);
end;
end;{end procedure}

procedure cetakq(var q:antrian);
begin
if kosong(q) then writeln('tidak ada pelanggan dalam antrian')
else
begin
writeln('pelanggan yang antri saat ini ====>');
writeln;
for i:=1 to q.belakang do
writeln('posisi ',i:4,' atas nama',q.nama[i],'jumlah belanja Rp',q.belanja[i]);
end;
end;


{menu utama}
begin
lagi:=true;q.depan:=1;q.belakang:=0;
while lagi do
begin
clrscr;
writeln('KASIR TOKO BOLU ENAK');
writeln('1. Tambah Pengantri');
writeln('2. Layani Pengantri');
writeln('3. Cetak Antrian');
writeln('4. selesai, Cetak Pendapatan');
write('Pilih 1-4 ===> ');readln(pilih);
case pilih of
1:begin
write('nama pengantri =');readln(namabaru);
write('jumlah belanja =');readln(uangmasuk);
pushq ( q,namabaru,uangmasuk);
end;
2:popq(q);
3:cetakq(q);
4:begin
writeln('pelanggan ini sebanyak ',cacah:4,'orang');
writeln('pendapatan hari ini sebesar Rp',pendapatan:8:2);
writeln('Thankyou');
lagi:=false;
end;
end;
readln;
end;
end.

Hidup adalah perjuangan. Itu kata orang. Memang benar, dalam hidup akan penuh dengan perjuangan. Terutama bagi mereka yang memiliki cita-cita besar, baik cita-cita pribadi maupun cita-cita dalam dakwah. Bagi mereka yang tidak memiliki cita-cita besar, tidak akan mampu melihat bahwa hidup penuh dengan perjuangan. Yang ada di depan mereka hanyalah bagaimana mencari kesenangan belaka.

Jika Anda merasa bahwa hidup penuh tantangan, halangan, rintangan, dan ujian, artinya hidup Anda memang penuh perjuangan. Anda termasuk orang yang memiliki cita-cita yang tinggi, baik meraih pencapaian yang besar maupun melepaskan diri dari masalah besar yang menghimpit. Satu hal yang diperlukan dalam perjuangan adalah kesabaran.

uses wincrt;
var
a:array[1..5,1..5] of byte;
x,i,j,Mak,Min:integer;
begin
clrscr;
write('berapa jumlah data? ' );readln(x);
for i:=1 to x do
for j:=1 to x do
begin
write('masukkan data ke ',i,',',j,'= ');readln(a[i,j]);
end;
Mak:= a[i,j];
Begin
For i :=1 to x do
For j :=1 to x do
If a[i,j]> Mak then
Begin
Mak:= a[i,j];
End;
Min:= a[i,j];
Begin
For i :=1 to x do
For j :=1 to x do
If a[i,j]< Min then
Begin
Min:= a[i,j];
End;End;End;
for i:=1 to x do
begin
for j:=1 to x do
write(a[i,j]:13);
writeln;
end;
writeln;
Writeln('nilai Tertinggi : ',Mak);
Writeln('nilai Terendah : ',Min);
writeln;
end.

uses wincrt;
var angka:array [1..10] of integer;
i,j,n:byte;
x:integer;

begin
repeat
begin
inc(n);
write('isi bilangan bulat berhenti isi 999 ');readln(angka[n]);
end
until angka [n]=999 ;
dec(n);
writeln('sebelum diurutkan==> ');
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if angka[i]>angka[j]then
begin x:=angka[i];angka[i]:=angka[j];angka[j]:=x;end;
end;
end;
writeln;writeln('sesudah diurutkan');
for i:= 1 to n do write(angka[i]:5);
end.

uses crt;
label awal;
const max = 25;

type stack = record
a,b,c,d : array [1..7] of string;
top : 0..max;
end;
recdata = record
nm,jn,al : string;
jm,hr : string;
end;
lar = array[1..max] of recdata;
var
s : stack;
data : lar;
i,n,k,s1,s2 : integer;
j,p,seri : char;

procedure push (var s : stack; x :recdata);
begin
if s.top = max then
begin
gotoxy(20,20);writeln ('LOUNDRY PENUH DAB..!!!!!!');
gotoxy(20,21);writeln ('PRESS ENTER KEY GOTO MENU');
end
else
begin
s.top := s.top + 1;
s.a[s.top] := x.nm;
s.b[s.top] := x.al;
s.c[s.top] := x.jn;
s.d[s.top] := x.jm;

end;
end;

procedure input(var x:lar);
begin
clrscr;
j := 'y';
while j = 'y' do
begin
n:= n+1;
writeln ('Pelanggan ke->',n);
write ('Nama Pelanggan : ');readln(data[n].nm);
write ('Alamat : ');readln(data[n].al);
write ('Jenis Cucian : ');readln(data[n].jn);
write ('Jumlah Cucian : ');readln(data[n].jm);
push(s,data[n]);
writeln;
write ('tambah pelanggan[y/n]');readln(j);
writeln;
end;
end;

procedure pop(var s : stack);
begin
s.top := s.top - 1;
n := n - 1;
end;

procedure ambil;
begin
clrscr;
if s.top = 0 then
begin
gotoxy(20,20);writeln ('LOUNDRY KOSONG DAB..!!!!!');
gotoxy(20,21);writeln ('PRESS ENTER KEY GOTO MENU');
readln;
end
else
begin
pop(s);
gotoxy(20,20);writeln ('BERHASIL..!!!!!');
gotoxy(20,21);writeln ('PRESS ENTER KEY GOTO MENU');
readln;
end
end;
procedure look(var x : lar);
begin

if s.top = 0 then
begin
gotoxy(20,20);writeln ('LOUNDRY KOSONG');
gotoxy(20,21);writeln ('PRESS ENTER KEY GOTO MENU');
end

else
begin
writeln ('pelanggan CUCIAN');
writeln ('+----+---------+----------+------------+--------+');
writeln ('| No | Nama | Alamat | Jenis Cuci | Jumlah |');
writeln ('+----+---------+----------+------------+--------+');
begin
for i := 1 to n do
with data[i] do
writeln ('|',i:2,' |',nm:6,' |',al:6,' |',jn:6,' |',jm:5,' |');
writeln ('+----+---------+----------+------------+--------+');
writeln;
writeln;
end;
end;
readln;
end;
procedure sorting1(var x:lar);
var temp:recdata;
begin
for i:=1 to n-1 do
begin
for k:=i+1 to n do
begin
if x[i].nm>x[k].nm then
begin
temp:=x[i];x[i]:=x[k];x[k]:=temp;
end;
end;
end;
end;
procedure sorting2(var x:lar);
var temp:recdata;
begin
for i:=1 to n-1 do
begin
for k:=i+1 to n do
begin
if x[i].jm begin
temp:=x[i];x[i]:=x[k];x[k]:=temp;
end;
end;
end;
end;
procedure cari(var x:lar);
var ketemu : boolean;
cari : string;
begin
writeln;
write('Nama Pelanggan yang akan dicari alamatnya? ');readln(cari);
ketemu:=false;
for i:=1 to n do
begin
if data[i].nm=cari then ketemu:=true;
end;
clrscr;
begin
if ketemu then
writeln('Alamat Pelanggan ',cari,' adalah ',data[i].al)
else
writeln('tidak ada nama pelanggan ',cari,' dalam daftar');
end;
end;
begin
s.top := 0;
n := 0;
awal:
clrscr;
writeln ('+----------------------------+');
writeln ('| ISTA LOUNDRY |');
writeln ('+----------------------------+');
writeln ('| 1. Tambah cucian |');
writeln ('| 2. Ambil cucian |');
writeln ('| 3. Tampil Data |');
writeln ('| 4. Sorting Berdasar NAMA |');
writeln ('| 5. Sorting Berdasar JUMLAH |');
writeln ('| 6. Cari Data |');
writeln ('| 7. EXIT |');
writeln ('+----------------------------+');
write ('menu pilihan [1/2/3/4/5/6/7] : ');
readln(p);
case p of
'1' : begin
input(data);
goto awal;
end;
'2' : begin
clrscr;
ambil;
goto awal;
end;
'3' : begin
look(data);
goto awal;
end;
'4' : begin
writeln('DATA NAMA SESUDAH DI SORTING');
sorting1(data);
look(data);
goto awal;
end;
'5' : begin
writeln('DATA JUMLAH SESUDAH DI SORTING');
sorting2(data);
look(data);
goto awal;
end;
'6' : begin
clrscr;
cari(data);
goto awal;
end;
'7' : halt;
end;
end.

Visi Program Studi Teknik Informatika

Misi Program Studi Teknik Informatika

1. Mengembangkan Program studi melalui TRI DHARMA Perguruan Tinggi
2. Membekali mahasiswa dengan Iptek, sehingga mempunyai kemampuan profesional, kretaif inovatif, mandiri, berdaya saing global
3. Membentuk mahasiswa bermoral, berkepribadian, beretika profesi yang tinggi dalam pengabdian pada masyarakat dan akuntabilitas manajemen program studi serta bersemangat dalam memajukan bangsa.

Tujuan Program Studi Teknik Informatika

1. Menghasilkan Sarjana Teknik Informatika yang harus mahir dalam memanfaatkan pengetahuan-pengetahuan dari bidang-bidang ilmu dasarnya, mandiri, mempunyai wawasan yang luas dan mengikuti perkembangan iptek yang sesuai dengan kebutuhan kerja bidang informatika
2. Menghasilkan Sarjana Teknik Informatika yang mempunyai kemampuan untuk perencanaan, penyusuran, perbaikan, pengoperasian, dan mampu mengaplikasikan pemecahan permasalahan sistem-sistem integral teknik Informatika
3. Menghasilkan Sarjana Teknik Informatika yang mempunyai kemampuan mengkomunikasikan dan mengimplementasikan penyelesaian masalah yang ada didalam bidang keinformatikaan
4. Menghasilkan Sarjana teknik Informatika yang handal, bermoral, memiliki etika profesi, berjiwa wiraswasta dan berwawasan manajemen modern

• teori informasi yang mempelajari konsep matematis dari suatu informasi
• ilmu informasi yang mempelajari tentang cara pengumpulan, klasifikasi, manipulasi penyimpanan, pengaksesan, dan penyebarluasan informasi untuk keperluan sosial dan kemasyarakatan secara menyeluruh
• ilmu komputer dan teknik komputer yang mempelajari tentang pemrosesan, pengarsipan, dan penyebaran informasi dengan menggunakan teknologi informasi dan alat lain yang berbasis komputer.

Kira-kira itu kata kunci dari ceramah wali murid pengajian SD Muhammadiyah Sapen, Klas V dan Klas I Minggu 7 Maret 2010. Seperti biasa setiap minggu di SD Muh Sapen selalu ada pengajian wali murid untuk evaluasi perkembangan studi. "SD Muh Sapen satu2nya SD swasta yang mendapatkan label SD SBI (Sekolah Bertaraf Internasonal"), Kata Pak H. Saijan, pak Kepala sekolah. Pagi in ceramah diisi oleh Drs., Abdul Kudus, MSi, Kepala Sekolah SMA Muh 7 YOgya. Alumni Gontor yang saat ini berpenampilan "subur", karena ayem.. kata Pak Saijan.
Apa point yang akan saya sampaikan adalah: Kalau untuk keluarga kecil, teladan begitu penting daripada sekedar nasehat, tetapi dalam dakwah di masyarakat kita ternyata lebih sering berisi nasehat-nasehat saja tanpa keteladanan. Pemimpin juga hanya sering nasehat-nasehat, tanpa keteladanan, saja sehingga agenerasi muda jadi generasi "bonek" dan generasi "tawur" karena teladannya pemimpin pada tawur, meski nasihatnya pemimpin harus amanah dan jujur, tetapi prakteknya tidak ada keteladanannya. 
Jadi sepertinya dakwah mesti juga diarahkan untuk islam ini bukan hanya nasehat tetapi juga paraktek real. JIka nasehat-nasehat hanya islam bagus, islam adil, islam sempurna, ... sementara prakteknya tidak ada satu buktipun tentang itu. rasa2nya orang tidak pernah percaya. Jangankan orang lain, orang islam sendiripun tidak percaya. Dakwah ke arah praktek islam real , misalnya penerapan hukum islam, atau penerapan politik islam, sayangnya kemudian malah dianggap fundamentalis dan ekstrimis, justru oleh kalangan islam itu sendiri... Jadi mesti darimana memulainya kalau begitu??? Wallahu a'lam

angin menyentuh hati
saat kau isyaratkan hati
teganya kau bermain hati
tinggalkan ku bersama tangis rembulan

hati yang telah patah
retak seolah tak mau berseri
kini tinggal duka menganga
kesedihan menjadi kekasih setia

tak perlu ku tenggelam
senyummu yang menyayat raga
tak lagi ku hiraukan

kini ku melangkah
dengan do'a di genggaman
semoga Allah memberi yang lebih baik darimu

saat daun kering berjatuhan
angin kemarau membelai diri
ku terdiam terpaku
saat kau memilih tinggalkan ku

tapi tak mengapa
ku tak membendung tangis
kepergianmu
anugrah bagiku

semoga kau temukan kebahagiaan disana
bersamanya lalui dunia
kini ku bahagia bersama sepi

tiada yang lebih baik darimu
selain seseorang yang mau mengerti diriku
kini ku larut dalam pencarian terakhir
kuyakin Tuhan bersamaku

senja menutupi mega
rintik gerimis mewarnai hari
hati yang telah patah
terbasahi hujan air mata

kau pergi tiada pamit
tetes darah yang kau tinggalkan
menjadi luka di hati

Ya Allah.....
tempatkan lah ia di surga-Mu
pertemukan lah kami
dengan Kasih dan Ridha-Mu
Amien.