Rumus Persegi

Pascal Source code
cara kerja nya adalah apabila kita ditanya pilih rumus yang mana lalu pilih 1-4 lalu kita di minta memasukan angka untuk melihat jawabannya dibawah ini merupakan source codenya:


copy kan di noprogram rumus;
uses crt;
label
stop,jump;
var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;

begin
repeat
stop:
textbackground(5);
clrscr;
writeln('===========================================================');
writeln('= pilihrumus =');
writeln('= 1. Luas Persegi panjang =');
writeln('= 2. Luas Segitiga =');
writeln('= 3. keliling persegi panjang =');
writeln('= 4. exit =');
writeln('===========================================================');

write('Masukan Nomor Pilihan Anda (1/2/3/4): ');
readln(NomorMenu);
case NomorMenu of
1: begin
writeln('rumus luas persegi ');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
l_persegi:= pjg*lbr;
writeln('luas persegi adalah ',l_persegi);
readln;
end;
2: begin
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end;
3: begin
writeln('rumus kll persegi');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
kll_persegi:=2*(pjg+lbr);
writeln('jadi keliling persegi adalah ',kll_persegi);
readln;
end;
4: begin
exit;
end;
end;
goto stop;
until NomorMenu=4;

end.
tepad lalu simpan dengan extension .pas lalu compilerlah menggunakan fpc

Membuat Kamus Memakai database di freepascal

Pada Penasaran kan gimana caranya buat bikin kamus bahasa inggris-indonesia ataupun sebaliknya.gampang-gampang susah. pertama tama sediakan software yang di butuhkan yaitu mysql sebagai software database, freepascal sebagai compiler bahasa pascal dan notepad untuk menulis sintak kodenya.kalau belum menginstall mysql instal dulu anda bisa menginstal mysql satuan ataupun yang sudah otomatis yaitu menggunakan xampp, saya sih menyarankan mengunakan xampp karena bisa dipakai untuk membuat website php dan mysql tidak perlu di utak atik lagi, ya udah deh jadi lama,

kalau udah selesai nge instal nya maka login dulu dengan mengklik star->run, setelah itu kita ketikan cmd lalu tekan ok. lalu kita harus masuk ke direktori mysql berada, bila kita menginstal xamp maka direktorinya di c:\xampp\mysql\bin kalau nginstal gak pake xampp direktorinya di c:\mysql\bin masuk deh ke direktorinya dengan mengetik cd \ lalu tekan enter lalu ketikan cd xampp lalu tekan enter begitu seterusnya hingga ke direktori bin lalu kita ketikan di direktori bin mysql -u root.

untuk membuat database gunakan perintah create database nama_file; setelah membuat database kita harus memilih database yang telah kita buat dengan mengklik use nama_database; lalu kita harus membuat tabelnya dengan cara create table data (indonesia varchar(50), inggris varchar(50));

urusan database sudah selesai maka tulis di notepad sebagai berikut:
Program KamusMysql;
uses crt,mysql4;
var
sock,inisial:PMYSQL;
qmysql:TMYSQL;
recbuf: PMYSQL_RES;
rowbuf:TMYSQL_ROW;
query:PChar;
state,jml:integer;
inggris,indonesia,dummy:string;
lagi,ubah,hapus,pil:char;
procedure tulis(x,y:integer;pesan:string;warna:byte);
begin
textcolor(white);
gotoxy(x,y);write(pesan);
textcolor(white);
end;
Procedure lihat1;
Begin
lagi:='Y';
inisial:=mysql_init(PMySQL(@qmysql));
sock:=mysql_real_connect(inisial,nil,'root','','kamus',0,nil,0);

if sock=nil then
begin
writeln('Connection Error !');
writeln(mysql_error(@qmysql));
end;

while upcase(lagi) = 'Y' do
begin
clrscr;
writeln('Kamus Indonesia-Inggris');
writeln('-----------------------');
write ('Indonesia = ');readln(indonesia);
writeln;
dummy:='select * from data where indonesia='''+indonesia+'''';
query:=@dummy[1];
state:=mysql_query(sock,query);

if (state <>
begin
writeln ('Query Salah....!');
writeln (mysql_error(sock));
end;

recbuf := mysql_store_result(sock);
rowbuf := mysql_fetch_row(recbuf);

if rowbuf = nil then
writeln('Data tidak ditemukan....')
else
while (rowbuf <> nil) do
begin
writeln('Inggris = ',rowbuf[1]);
rowbuf := mysql_fetch_row(recbuf);
end;

writeln;
write('Lihat lagi [Y/T]?');readln(lagi);
writeln;
end;

mysql_free_result (recbuf);
mysql_close(sock);
end;


Procedure tambah;
begin
lagi:='Y';
mysql_init(PMySQL(@qmysql));
sock:=mysql_real_connect(PMySQL(@qmysql),nil,'root','','kamus',0,nil,0);

if sock=nil then
begin
writeln('Koneksi Error !');
writeln(mysql_error(@qmysql));
end;

while upcase(lagi) = 'Y' do
begin
clrscr;
writeln('Tambah Data');
writeln('-----------------');
write('Masukkan Kata indonesia : ');readln(indonesia);
dummy:='select * from data where indonesia='''+indonesia+'''';
query:=@dummy[1];
state:=mysql_query(sock,query);
recbuf:=mysql_store_result(sock);

if RecBuf = Nil then
begin
writeln ('Hasil query nil.');
mysql_close(sock);
end;

jml:=mysql_num_rows(recbuf);
if (jml > 0) then
writeln('Data tersebut sudah ada')
else
begin
write('Masukkan Kata Inggris : ');readln(Inggris);
writeln;

if (length(inggris)=0) then
writeln ('data yang kosong, penambahan batal di lakukan.')
else
begin
dummy:='insert into data (indonesia,inggris) values ('''+indonesia+''','''+inggris+''')';
query:=@dummy[1];
state:=mysql_query(sock,query);

if (state <>
begin
writeln ('Query Salah.');
writeln (mysql_error(sock));
end;

tulis(0,10,'Penambahan berhasil !!',red)
end;
end;

writeln;
write('Tambah lagi [Y/T]? ');readln(lagi);
end;

mysql_free_result (recbuf);
mysql_close(sock);
end;
Procedure lihat2;
Begin
lagi:='Y';
inisial:=mysql_init(PMySQL(@qmysql));
sock:=mysql_real_connect(inisial,nil,'root','','kamus',0,nil,0);

if sock=nil then
begin
writeln('Connection Error !');
writeln(mysql_error(@qmysql));
end;

while upcase(lagi) = 'Y' do
begin
clrscr;
writeln('Kamus Inggris-Indonesia');
writeln('-----------------------');
write ('Inggris = ');readln(Inggris);
writeln;
dummy:='select*from data where inggris='''+inggris+'''';
query:=@dummy[1];
state:=mysql_query(sock,query);

if (state <>
begin
writeln ('Query Salah....!');
writeln (mysql_error(sock));
end;

recbuf := mysql_store_result(sock);
rowbuf := mysql_fetch_row(recbuf);

if rowbuf = nil then
writeln('Data tidak ditemukan....')
else

begin
writeln('Indonesia= ',rowbuf[0]);
end;
writeln;
write('Lihat data lagi [Y/T]?');readln(lagi);
writeln;
end;

mysql_free_result (recbuf);
mysql_close(sock);
end;
begin
repeat
clrscr;
lagi:=' ';ubah:=' ';hapus:=' ';
tulis(23,10,'M E N U',128);
tulis(15,11,'------------------------',blue);
tulis(20,12,'1. Indonesia-Inggris',red);
tulis(20,13,'2. Inggris-Indonesia',red);
tulis(20,14,'3. Tambah Kata Indonesia-Inggris',red);
tulis(20,15,'4. Keluar',red);
tulis(18,16,'Pilihan [1 - 4] : ',blue);readln(pil);

case pil of
'1' : lihat1;
'2' : lihat2;
'3' : tambah;
end;

until pil = '4';
end.


simpan dengan exstensi .pas
terus compile pake freepascal
www.go-pai.blogspot.com
di kutip dari berbagai sumber:
omahku.com

Download Software Freeware

Pcmav 1.6

Tidak ada antivirus lain yang mampu mengatasi dengan tuntas virus
komputer, baik lokal maupun asing, yang banyak menyebar di Indonesia
sebaik PCMAV.

Umumnya antivirus yang ada hanya mampu mengenali dan menghapus file
yang dideteksi bervirus. PCMAV menyempurnakannya dengan keakuratan
pendeteksian yang lebih presisi serta kemampuan menyelamatkan file,
dokumen dan sistem yang menjadi sasaran serangan virus hingga kembali
pulih 100%.

Dengan PCMAV, Anda akan mendapatkan antivirus yang bukan hanya
sekadar mendeteksi namun daya basminya yang tangguh mampu memburu
99.9% virus yang dikenal sampai ke "akar-akarnya" tanpa menimbulkan
kerusakan pada file maupun sistem yang terinfeksi.

Perpaduan keunikan fitur serta keakuratan dan kepedulian terhadap
keselamatan sistem, file dan dokumen Anda memberi kesempurnaan sebuah
antivirus pada PCMAV.

Di setiap edisi Majalah PC Media terbaru yang terbit tiap bulannya,
kami senantiasa menyempurnakan PCMAV ini dengan kemampuan dan fitur
baru demi menjadikan PCMAV sebagai antivirus yang sesuai kebutuhan
Anda, pembaca setia Majalah PC Media. Dan menjadi kebanggaan Indonesia.
VIRUS BARU DI PCMAV 1.6 (79 Virus)
==================================
Adsw
Adsw.txt
Aniee-TunggulKawung.vbs.E
Aniee-TunggulKawung.vbs.F
Aniee.L
Apong
Apong-Valeria
Autoit.BI
Autoit.BJ
Autoit.BK
Autoruner.C
Autoruner.C.inf
Babel
Bloon.vbs
Boenk.B
Bone
Bone.txt
Cyrax-Tutor.B
Formalin
FourTwoOne.dll
FourTwoOne.htm
FourTwoOne.inf
FourTwoOne.vbs
FourTwoOne.vbs.A
FourTwoOne.vbs.B
Gen.Rieysha
Gen.Rieysha.zip
Harry
Harry.html
Harry.ini
Himafi
Jablunt
Jablunt.inf
Kowai
Kowai.inf
Nina
Nina.txt
PicCindy.C
Purwo
QuanTrong
QuanTrong.inf
Red.vbs
Red.vbs.inf
Rieysha-Desa
Rieysha-Desa.htm
Rieysha-Desa.inf.A
Rieysha-Desa.inf.B
Rieysha-Hack.vbs
Rieysha-Hack.vbs.inf
Rieysha-Hack.vbs.txt
RontokBrow.H
RontokBrow.H.exe
RontokBrow.H.htt
RontokBrow.H.inf
RontokBrow.H.ini
RontokBrow.I
RontokBrow.I.exe
RontokBrow.I.htt
RontokBrow.I.inf
RontokBrow.I.txt.A
RontokBrow.I.txt.B
ServMouse.inf
SmsLucu
SmsLucu.html
SmsLucu.htt
SmsLucu.inf
SmsLucu.ini
SuppMB
TambalBand
TambalBand.txt
TikusLupus.A
TikusLupus.B
UdinLucu
ValoAchoto
ValoAchoto.bat.A
ValoAchoto.bat.B
Virgear
Virgear.inf
WSar.C


Alquran Di Ms Word
aplikasi ini adalah untuk menjalankan alquran di ms word

PhotoFilter
Aplikasi yang sangat bagus untuk meng edit edit photo