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.