SERCHING

well,,, hari ini di tempatku belajar serching,,, do you know searching in pascal? serching adalah digunakan untuk mencari suatu data yang tersimpan dalam file. Jadi jika kamu sudah menginput data dan kamu ingin mencari data kembali maka tinggal membuka data yang sudah anda simpan dengan menggunakan metode serching ini.

and then konsep proses searching yaitu:
1.Menyediakan tempat penyimpana
2.Menginputkan data yang mau dicari
3.Membandingkan nilai data yang mau dicari dengan nila data yang ada pada file yang sudah disimpan.

nah ini dia program nah teman – teman…

uses crt;
type dosen = record
kode : string[3];
nama : string[40];
pendidikan : string[10];
keahlian :string[40];
end;
var
fdos : file of dosen;
rdos : dosen;
i : byte;
xkd : string[3];
lg : char;
ketemu : boolean;

procedure opendosen;
begin
assign (fdos,’c:\dosen.dat’);
{$I-} reset (fdos);
{$I+} if IOresult 0 then rewrite (fdos);
end;

begin
opendosen;
repeat
i := 1 ;
ketemu := false;
gotoxy (10,5); write (‘kode:’); readln (xkd);
seek (fdos,0);
while not eof (fdos) do
begin
seek (fdos, i-1); read(fdos,rdos);
if rdos.kode=xkd then
begin
gotoxy(10,6); write(‘nama:’ ,rdos.nama);
gotoxy(10,7); write(‘keahlian:’,rdos.keahlian);
gotoxy(10,8); write(‘pendidikan:’,rdos.pendidikan);
ketemu := true;
end;
inc (i);
end;

rdos.kode := xkd;
if not ketemu then
begin
gotoxy(20,10); write(‘nama :’); readln(rdos.nama);
gotoxy(20,11); write(‘keahlian: ‘); readln(rdos.keahlian);
gotoxy(20,12); write(‘pendidikan: ‘); readln(rdos.pendidikan);
seek(fdos,filesize(fdos));
write(fdos,rdos);
end;
gotoxy(20,12); write(‘input lagi [Y/T]:’); readln(lg);
until upcase(lg) =’T’;
close(fdos);
end.

lalu kamu input dulu data – data dosen. setelah diinput jika kamu mau cari data kembali lagi
maka tinggal tulis kodenya maka data yang kamu input tadi akan muncul kembali

kehidupan itu penuh perjuangan

tadi diperusahaan ku.. aku gk sengaja mendengar dia berkata seorang pekerja mengeluh aku kerja bertahun – tahun tapi gaji ku segini gini aja. well jadi kasihan aku melihatnya. but pak coba anda berpikir kenapa gaji anda segitu gitu aja. anda bekerja malas, bekerja tunggu disuruh bos dan pekerjaan yang anda lakukan hanya bisa itu – itu aja( bapak ini buat rak piring aluminium). kadang aku berpikir apakah kebanyakan orang pribumi itu terima gaji besar dulu baru bekerja? aku lebih suka gaya para pekerja orang chines. mereka tidak melihat gaji itu. tapi mereka melihat kemampuan mereka sampai dimana untuk bisa menerima gaji itu. sekali sekali kita boleh mencontohi mereka, untuk membuat kita lebih baik lagi. tapi disini maksud aku bukan untuk membandingi antara orang pribumi sama orang chinese, tapi kita mencontohi kesuksesan mereka. mereka berjuang untuk sukses.kalo tidak sukses kata mereka belum jadi orang ( bukan orang utan yah wkkkwk). jadi apa salahnya kita mencontohi hal yang baik buat kita. manfaatnya kan baik buat kita. so jangan pernah mengeluh and tetap berusaha. dan yakin bahwa kita bisa sukses. kalo kita terjatuh anggap aja itu suatu cobaan buat kita. tapi kita harus tetap bangkit dan terus bangkit. sampai akhirnya kita mencapai kesuksesan itu. dan satu hal lagi teman teman jangan lupa berdoa. ^_^

god bless you

about my study,,,,,

oke lanjut ceritaku tentang studiku. well sometimes pelajaran kuliahku itu mudah,, sometime pelajaran kuliahku itu susah. kata orang – orang seh gak yang sulit kalo kita mao belajar. mao tao pelajaran apa yang sulit buatku itu pemograman struktur. dari awal belajar ampe sekarang tak ngerti ngerti. nanti kalo dah ngerti tiba-tiba besok lupa. kadang dalam hatiku menggerutu aku yg oon kale yah,, wkwkkwwk(weleh aneh aku bangga dengan kebodohanku 😦 tapi i always try..try..try… yang penting usaha dulu ajalah dalam otakku ini. pelajaran kuliah yg paling aku sukai adalah bahasa inggris and web desain. i like it so much,,, bahasa inggris itu kan perlu buat dunia kerja sekarang. apalagi perusahaan dah mengharuskan bisa inggris. bukan bangga seh,, but little little i can speak lah wkkwkwkw,,,, and then web desain wah ini aku demen karena aku suka banget desain-desain website gitu. makanya aku serius banget belajar web desain. but i hope i can study pemograman struktur, i know the lesson very important to me and future. because kuliahku kan komputer jadi harus bisa pemograman. malu ah anak komputer gak tao pemograman wkwkwkw ( pede kale bercakap ). well sampai sini dulu deh perjalanan studiku,, kalo ada waktu aku sambung lagi,,^_^

about my dream,, dream,,,

well i believe all the people in the world have a dream. and i have too. aku punya kenginan suatu hari aku bisa membahagiakan orang tuaku dengan prestasiku. walaupun aku sendiri gak isa membahagiakan mereka dengan materi. tapi untuk mencapai kenginan itu tidaklah mudah, aku harus berjuang untuk mendapatkannya. mencapai kenginan itu tidaklah semudah membalik tangan. aku tahu itu.. aku mengerti itu. tapi terkadang aku mengeluh capek dah berusaha tapi gak dapat – dapat. sampe akhir na aku menyerah. aku berdiam diri, hanya melihat orang yang sudah sukses. lalu tiba – tiba hatiku merontak my heart say that hey girl what are you doing? do you only stand up? only sad, only.. only,, only,, oh no don’t do it. pliz give up.. hatiku aja isa menjerit gitu sampe akhirnya aku menangis,, hatiku yg paling dalam isa berkata seperti itu. oh god i must to do something.. aku gak mau begini begini aja.. untuk menjadi orang yang berarti bagi orang yang kita sayangi, kita harus jadi orang yg lebih baik supaya mereka bangga sama kita. thx allah dah menyadarkan aku. aku akan terus berjuang sampai aku mendapatkan mimpiku.^_^

about my collage

well,, aku sekarang kuliah di stmk budidarma di jl. sisingmangraja. kata teman- teman kampus hijau. well aku liat seh warnya cantik,, hijau. hijau buat aku warna yang penuh keceriaan. selalu berekspresi and then penuh semangat. pertama kali masuk kuliah aku berpikir cuman satu gimana teman – teman ku nanti yah,, apa nyebelin atau gimana gt,,, kepikir yg negatif2 aja.. but wow amazing,, teman- temanku asik, gaul, gokil walupun kadang nyebelin.. its oke never mind buat aku deh. and then saat pertama menginjak kaki di tempat kuliahku waduh deg degkannya luar biasa. perasaan yang aku rasakan bermacam – macam. ada rasa takut, gelisah and then perasaan bangga juga jadi anak mahasiswa coy wkwkkwk,,,, terkadang juga gk percaya bisa jadi anak mahasiswa, sampe aku cubit-cubit pipi ku wkwkkkw,,, lalu aku belajar pertama ditempat kuliahan. karena dah agak lama gk pernah lama belajar, jadi agak oon jg neh. asli beneran lupa pelajaran waktu sma. but i never give up aku belajar trus sampe aku bisa memahami pelajaranku. and then sampai sekarang aku akan terus berusaha untuk belajar di tempat kuliah budidarma untuk menjadi seseorang yang memiliki moral yang baik dan memiliki ilmu pengetahuan yang berguna untuk masa depanku. I hope god always support me.

perjalanan hidupku

waktu kecil aku pernah bercita cita kepingin jadi orang sukses, kepingin dapat gelar sarjana…biasa kan anak kecil banyak banget angan angannya. tapi terkadang karena masih kecil cita – cita itu kulupakan saja,, karena aku masih ingin bermain.. masih ingin menikmati hidup ini. Saat tumbuh beranjak dewasa tiba – tiba cita – cita ku tumbuh lagi.. aku mencoba belajar terus.. tapi terkadang apa yg aku pelajari gk ada hasil yg memuaskan. sewaktu akhir sekolah sma… yang aku pikirkan kepingin bisa lanjut kuliah. tapi aku berpikir aku dah cukup banyak menyusahkan orang tuaku dengan banyak membiayai sekolahku dari sd, smp, sma. niat itu ku urungkan juga.sampai akhirnya aku mendapatkan kerja dan terus berusaha bekerja demi mencari uang untuk kuliah ku nanti. dan subhanallah aku gak nyangka kalo aku bisa kuliah sekarang ini. aku sungguh bersyukur banget pada allah. walaupun orang tuaku gak pernah setuju aku kuliah, tapi aku akan terus kuliah sampai aku mendapatkan gelar sarjana. terkadang aku heran kenapa orang tua ku itu tidak setuju aku kuliah. tapi yah sudahlah yang penting sekarang aku bahagia bisa kuliah dan terus belajar untuk menjadi orang yang berguna di mata orang tuaku walaupun kelihatannya orang tuaku gak bahagia dengan apa yg aku alami sekarang. thx allah dah meridhoi jalan hambamu ini.

program function

program lampetmu;
uses crt;
var n : integer;
function fak (m:integer) : integer;
begin
if ( m=1 ) or ( m=0 ) then
fak := 1
else
fak := m*fak (m-1)
end;
begin
clrscr;
write (‘masukkan bil : ‘);
readln (n);
writeln (‘harga faktorial : ‘, fak(n));
readln;
end.

tugas quiz gaji karyawan

uses crt;
type
pegawai = record
kode : string[3];
jabatan : string[10];
sts : string[10];
end;
var
rpeg : array[1..10] of pegawai;
gaji, tgaji : longint;
tnjg, tnjgk : real;
tot : real;
lg : char;
i,j : byte;

procedure inputpegawai;
procedure formpegawai;
begin
clrscr;
gotoxy(20,2); write(‘INPUT DATA GAJI PEGAWAI’);
gotoxy(10,3); write(‘_______________________________________’);
gotoxy(10,4); write(‘kode[1,2,3] :’);
gotoxy(10,5); write(‘jabatan :’);
gotoxy(10,6); write(‘status[menikah,belum] :’);
gotoxy(10,7); write(‘________________________________________’);
gotoxy(10,8); write(‘input lagi[Y/T]:’); readln(lg);
end;
begin
repeat
formpegawai;
with Rpeg[i] do
begin
gotoxy(27,4); readln(kode);
gotoxy(27,5); readln(jabatan);
gotoxy(27,6); readln(sts);
gotoxy(33,8); readln(lg);
end;
inc(i);
until upcase(lg)=’T’
end;

procedure tabelpegawai;
begin
clrscr;
gotoxy(3,3); write(‘laporan data gaji pegawai’);
gotoxy(3,4); write(‘______________________________’);
gotoxy(3,5); write(‘kode jabatan status’);
end;
procedure hitgaji(kd:string; var gaji:longint;tnjg:real; tnjk:real);
begin
if kd = ‘1’ then
begin
gaji :=2500000;
tnjg :=0.35;
end else if kd = ‘2’ then
begin
gaji := 2000000;
tnjg := 0.10;
end else if kd = ‘3’ then
begin
gaji := 1500000;
tnjg := 0.05;
end;

begin
i :=1;
inputpegawai;
for j:=1 to i-1 do
begin
with Rpeg[j] do
begin
hitgaji (kode,gaji>;

tugas quiz input data dosen dan mahasiswa

uses crt;
type
dosen = record
kode : byte;
nama : string;
penddkn : string;
keahlian : string;
end;
mahasiswa = record
NPM : string[7];
NAMA : string[20];
jen,jur : string[20];
tahun : string;
end;

var
rDos : array[1..10] of dosen;
rMhs : array[1..10] of mahasiswa;
i,j : byte;
pil, lg : char;

procedure inputdosen;
procedure formdosen;
begin
clrscr;
gotoxy(20,2); write(‘input data dosen’);
gotoxy(10,3); write(‘____________________’);
gotoxy(10,4); write(‘kode dosen :’);
gotoxy(10,5); write(‘nama :’);
gotoxy(10,6); write(‘pendidikan :’);
gotoxy(10,7); write(‘keahlian :’);
gotoxy(10,8); write(‘_________________’);
gotoxy(10,9); write(‘isikan data lagi [Y/T]:’);
end;
begin
repeat
formdosen;
with rDos[i] do
begin
gotoxy(20,5); readln(kode);
gotoxy(20,6); readln(nama);
gotoxy(20,7); readln(penddkn);
gotoxy(20,8); readln(keahlian);
gotoxy(33,8); readln(lg);
inc(i);
end;
until upcase(lg)=’T’;
end;

procedure inputmahasiswa;
procedure formmahasiswa;
begin
clrscr;
gotoxy(20,2); write(‘INPUT DATA MAHASISWA’);
gotoxy(10,3); write(‘___________________________’);
gotoxy(10,4); write(‘npm :’);
gotoxy(10,5); write(‘nama :’);
gotoxy(10,6); write(‘jenjang :’);
gotoxy(10,7); write(‘jurusan :’);
gotoxy(10,8); write(‘tahun :’);
gotoxy(10,9); write(‘_____________________________’);
gotoxy(10,10); write(‘isikan data lagi [Y/T] :’);
end;
begin
repeat
formmahasiswa;
with rMhs[i] do
begin
gotoxy(20,5); readln(npm);
gotoxy(20,6); readln(nama);
gotoxy(20,7); readln(jen);
gotoxy(20,8); readln(jur);
gotoxy(20,9); readln(tahun);
gotoxy(20,10); readln(lg);
inc(i)
end;
until upcase(lg)=’T’;
end;

procedure outputdosen;
procedure tabeldosen;
begin
clrscr;
gotoxy(10,10); write(‘input data dosen’);
gotoxy(5,5); write(‘______________________’);
gotoxy(5,6); write(‘no kode nama pendidikan keahlian’);
gotoxy(5,7); write(‘__________________________________’);
end;

procedure hitnilai(totn:real; var NH: char; ket: string);
begin
end;
begin
tabeldosen;
for j:=1 to I-1 do
begin
with rdos[j] do
begin
gotoxy(6,7+j); write(j:1,’ ‘, kode:8,’ ‘,nama);
gotoxy(35,7+j); write(penddkn);
gotoxy(45,7+j); write(keahlian);
end;
end;
gotoxy(5,9+j); write(‘_____________________________’);
repeat until keypressed;
end;

procedure outputmahasiswa;
procedure tabelmahasiswa;
begin
clrscr;
gotoxy(10,10); write(‘ input data mahasiswa ‘);
gotoxy(5,5); write(‘______________________________________________’);
gotoxy(5,6); write(‘no npm nama jenjang tahun jurusan ‘);
gotoxy(5,7); write(‘_____________________________________________’);
end;

procedure hitnilai(totn : real; var nh : char; ket: string);
begin
end;
begin
tabelmahasiswa;
for j:=1 to i-1 do
begin
with rMhs[j] do
begin
gotoxy(5,6+j); write(j:1,’ ‘,npm:8,’ ‘,nama);
gotoxy(43,7+j); write(jen);
gotoxy(39,7+j); write(jur);
gotoxy(39,7+j); write(tahun);
end;
end;
gotoxy(3,9+j); write(‘_______________________’);
repeat until keypressed;
end;

procedure menu;
begin
clrscr;
gotoxy(20,2); write(‘menu utama’);
gotoxy(10,3); write(‘_______________________________’);
gotoxy(10,4); write(‘[1]. input data dosen’);
gotoxy(10,5); write(‘[2]. input data mahasiswa’);
gotoxy(10,6); write(‘[3]. output data dosen’);
gotoxy(10,7); write(‘[4]. output data mahasiswa’);
gotoxy(10,8); write(‘[5]. keluar program ‘);
gotoxy(10,9); write(‘_______________________________’);
gotoxy(10,10); write(‘pilihan :’);
end;
begin {program utama}
i:=1; pil:=’1′;
while pil’5′ do
begin
menu;
pil := readkey;
case pil of
‘1’: inputdosen;
‘2’: inputmahasiswa;
‘3’: outputdosen;
‘4’: outputmahasiswa;
end;
end;
end.

PHP

PHP

PHP : hyptertext Preprocessor adalah bahasa skrip yang dapat ditanamkan atau disisipkan kedalam HTML. PHP banyak dipakai untuk memrogram situs web dinamis.

Sejarah PHP
Pada awalnya PHP merupakan kependekan dari Personal Home Page (Situs personal). Pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995.
Pada November 1997, dirilis PHP/FI 2.0. Pada rilis ini, interpreter PHP sudah diimplementasikan dalam program C.
Pada tahun 1997, sebuah perusahaan bernama Zend menulis ulang interpreter PHP menjadi lebih bersih, lebih baik, dan lebih cepat. Kemudiahn pada juni 1998 perusahaan tersebut meresmikan rilis PHP 3.0.
Pada pertengahan tahun 1999, Zend merilis PHP baru dikenal dengan PHP 4.0. PHP 4.0 adalah versi PHP yang paling banyak dipakai pada awal abad 21.
Pada Juni 2004, Zend merilis PHP 5.0 dallam versi ini, inti dari interpreter php mengalami perubahan besar. Versi ini juga memasukkan model pemrograman berorientasi objek.

Contoh penulisan PHP adalah sebagai berikut :

gambar php

Jadi PHP adalah bahasa script yang bisa disisipkan kedalam program html.