hei mr PASCAL,you're getting turbo now !

Teknologi Informasi dan Komputer,adalah sebuah pelajaran yang sebenernya dari dulu banyak diremehkan tapi sekarang menjadi menakutkan karena adanya TURBO PASCAL,yap setelah 4tahun kita hanya berkutat di word dan excel di tahun keenam alias kelas xi ini kita diajarin pemrograman pake pascal,awalnya sih enak karena mudah menyenangkan.but now is a fucking subject !hei gakalah sama fisika kalo bikin pusing!dan mapel inilah yang bikin pusing!TUHAN  TOLONG BANTU SAYA!dan disini saya mau nge share beberapa program jadi pake pascal,siapa tahu ada yang butuh(mungkin saya sendiri hehe)
href="file:///C:%5CUsers%5Ccompaq%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping">

- Menentukan Jenis Huruf (besar/kecil)

uses wincrt;
var a, b : char;

begin
repeat
clrscr;

write('Masukkan Huruf : ');readln(a);

if (a>'a') and (a<='z') then
begin
writeln('Huruf kecil');
end
else
if (a>'A') and (a<='Z') then
begin
writeln('Huruf Besar');
end
else
begin
writeln('Bukan Huruf');
end;

writeln;
write('Coba Lagi? (y/n)');readln(b);
until (b='n');

end.
- - - - - - - - - -

- Faktorial (While)

uses wincrt;
var a, b : longint;

begin
b:=1;
write('Input : ');readln(a);

while a>1 do
begin
b:=b*a;
a:=a-1;
end;

write('Hasil Faktorial = ', b);
end.
- - - - - - - - - -

- Menentukan Jenis Bilangan (Ganjil/Genap)

uses wincrt;
var a,ganjil, genap,nilai: integer;

begin
ganjil:=0;
genap:=0;

for a:=1 to 8 do
begin
write('Nilai = ');readln(nilai);
if ((nilai mod 2)=0) then
begin
genap:=genap+1;
end
else
begin
ganjil:=ganjil+1;
end;
end;
writeln;
writeln('Ganjil : ',ganjil);
writeln('Genap : ',genap);


end.
- - - - - - - - - -

- Menentukan Lama Peminjaman

uses wincrt;
var bln, bln2, hr, hr2, tp, tk, a, b, total_p, total_k, tot, bl, tot2: longint;

begin
write('Tanggal Pinjam: ');readln(tp);
write('Tanggal Kembali: ');readln(tk);

hr:=tp div 10000;
a:=tp-(hr*10000);
bln:= (a div 100)*30;
total_p:=bln+hr;

{writeln('hari pinj = ',hr);
writeln('bln pinj = ',bln);}

hr2:=tk div 10000;
b:=tk-(hr2*10000);
bln2:= (b div 100)*30;
total_k:=bln2+hr2;

{writeln('hari pinj = ',hr2);
write('bln pinj = ',bln2);}


tot := total_k-total_p;

bl:= tot div 30;
tot2:= tot mod 30;

write('Lama pinjam ',tot2,' hari ', bl, ' bulan');

end.
- - - - - - - - - -

- Konversi Hari ke Tahun-Bulan-Hari

uses wincrt;
var hari, bulan, tahun : longint;
pil : char;
begin

repeat
clrscr;

write('Masukkan jumlah hari: ');readln(hari);

tahun:= hari div 365;
bulan:= (hari mod 365) div 30;
hari:= ((hari mod 365) mod 30);

writeln;

writeln('Jumlah Tahun = ', tahun);
writeln('Jumlah Bulan = ', bulan);
writeln('Jumlah Hari = ', hari);
writeln;

write('Ulangi Lagi? (y/n) ');readln(pil);
until (pil='n');
end.

the best game ever !

wahwah abis dari ngaskus ni kawan,mampir ke forum game dan baru sadar kalo game tu cepet banget berkembangnya!perasaan baru bentar ane nyelesaiin Call of Duty 5 eh yang baru udah keluar lagi mau nyobain dragon age eh seri barunya udah keluar padahal belum kesampean ckck
yah tapi walopun game berkembang dengat sangat ganas begitu pula dengan hardware pendukungnya yang makin lama makin gendeng cuman ada 2 game yang mungkin bisa saya bilang game paling berkesan buat saya dan ini adalah 2 game yang gak ada matinya cuy!
yang pertama tak lain dan tak bukan adalah seri Pro Evolution Soccer atau yang kita kenal dulu di jaman PS1 dengan nama winning eleven.Yap game buatan konami ini adalah game paling sukses di Indonesia menurut saya,kenapa?karena di setiap rental PS pasti punya kaset ini dan gamungkin cuman 1 doang ! haha dan lagipula EA,yang berusaha menyaingi dengan mengeluarkan FIFA tetap saja kalah bersaing dengan game ini,karena mungkin didasarkan pada user interface yang sudah biasa dengan pencetan dan gayagaya ala konami ketimbang dengan gaya EA.Dan lucunya di setiap seri PES pasti akan ada pertambahan bintang di logonya,seperti PES 6 dengan 6 bintang menjadi 9 bintang di PES 9.Entah mengapa FIFA keluaran EA kalah bersaing dengan game ini.Padahal kalo dilihat lewat kerealistisan game,jelas EA lebih unggul terutama dalam hal lisensi tim,yang mana PES hanya mampu membeli lisesnsi beberapa tim saja.Hal ini masih menjadi misteri buat saya.Kenapa game ini berkesan?karena menurut saya game ini adalah game pemersatu para kaum lelaki dan itu terbukti untuk saya haha
yang kedua besok lagia aja ah capek

its supershocking physic test !

setan ! setelah tadi malem berkutat 5jam full dengan lks fisika dan kalkulator,ternyata ujianya GAMPANG BANGET !mana ada bocoran dimana-mana pula udah gitu yang tak pelajarin setengah mati ternyata gaberguna sama sekali NGGAK KELUAR ! oh shit !
mana ternyata oknum dari MGMP fisika,dengan mudahnya membocorkan soal kepada murid yang les ditempatnya(yah walopun dapet keuntungan sedikit juga sih hehe).its not fair.apa emang tingkat pendidikan di Indonesia tercinta cuman segini aja ya?seorang anak yang matimatian belajar sampe gatidur siang dan sengaja begadang kalah sama anak yang cuman modal les 1 jam doang dan mendapat wangsit(baca : bocoran)gaheran kalo sekarang anak indonesia pada gajujur nha gurunya aaja juga gajujur ckckck parah !
yah tapi untung endingnya enak,saya bisa jalan-jalan sama pacar dan menikmati semarang hari ini haha

my first share

yaaa inilah my first share,abis biasa jalan jalan di dunia maya kok liat banyak anak anak jaman sekarang pada nge blog semua jadi pengen nyoba jadi blogger juga nih hehehe
hari ini seperti biasa masih berkutat saja dengan belajar buku dan kalkulator yaah namanya anak sekolah tapi rada bingung juga sih,sebenernya sekolah tu cari ilmu ato cari ijazah ya?jadi inget ceritanya "3 idiots" kita ke sekolah cari ilmu bukan cari ijasah,yaap tapi itu hanya cerita tetep aja kalo mau sukses butuh ijazah hahahaha