Ngenet di PU

Well, lets start blogging..

Lagi nyoba ne.. pake hotspot di PU...
Gratis coy...

hehehehe...
wakakakakakakak....


nyoba fs, acer, dll...

ada requestdari bapake yari laptop...
Nunu tampak gelisah karo rendra..

hehehehehehe...
wakakakakakakakak....

Untung gak ketangguan...

udah ya....
Bye

Olimpiade Komputer

Well, lets start blogging..

Olimpiade...
Olimpiade Komputer merupakan olimpiade terunik, tersulit dan tergampang..
kenapa begitu??

Terunik..
Karena hanya komputerlah yang menggunakan soal berupa listing program (pseudopascal)..

Tersulit..
Karena pascal tidak diajarkan secara mendetail oleh kurikulum sekolah (aq)..

Tergampang..
karena soalnya terdapat soal logika, yang tak membutuhkan kemampuan khusus..
Yang kita butuhkan adalah penguasaan kombinatorik, analisis sintesis dan deret serta problem solving matematika ekstrim..(Lho???)

Yang jelas, waktu itu aku ikutan..

Soalnya 50 butir,
benar dapat 4, salah -1, kosong 0 (nol).
Jujur aja, pascalnya ruwet banget, banyak yang gak nyambung..

Yah mungkin aq nya aja kali y, yang goblok...

Udah ah, my time is limited...
Thanks a lot.
AE

Program Pascal 4

Akhirnya selesai juga...

nich...

program caseof1;
uses wincrt;
var
nohari:byte;
begin
writeln('==========Program hari==========');
writeln('=============by AE==============');
writeln;
write('Masukkan no hari = ');readln(nohari);

case nohari of
0 :begin
writeln('0 adalah hari minggu');
end;
1 :begin
writeln('1 adalah hari senin');
end;
2 :begin
writeln('2 adalah hari selasa');
end;
3 :begin
writeln('3 adalah hari rabu');
end;
4 :begin
writeln('4 adalah hari kamis')
end;
5 :begin
writeln('5 adalah hari jumat');
end;
6 :begin
writeln('6 adalah hari sabtu');
end;
else
writeln('nomor antara 1-6.');
end;
end.

Program Pascal 3

hahahaha...
suasah payah nih aq merancangnya...

ni dia listing yang ke 3

program empat_persegi_panjang;
uses wincrt;
var
nomor_menu:integer;
panjang,lebar,luas,keliling,diag:real;
begin
write('Menu Empat Persegi Panjang');
writeln;
write('1.Hitung luas ');
write('2.Hitung keliling ');
write('3.Hitung panjang diagonal ');
write('4.Keluar program ');

read(nomor_menu);
writeln;

case nomor_menu of
1:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);

luas:=panjang*lebar;

writeln('luasnya adalah : ',luas:4:2);
end;
2:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);

keliling:=2*(panjang+lebar);

writeln('luasnya adalah : ',keliling:4:2);
end;
3:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);

diag:=sqrt((panjang*panjang)+(lebar*lebar));

writeln('diagonalnya adalah : ',diag:4:2);
end;
4:begin
writeln('keluar program.');
end;
end;
end.

Program Pascal 2

Ini ada listing yang kedua, harap dicoba ya..

program gaji;
uses wincrt;
var
gp,gt:longint; {gp=gaji pokok, gt=gaji total}
st:string;
begin
write('Masukkan status anda = ');readln(st);
writeln;

gp:=100000;
gt:=115000;

if (st<>'bujangan') and (st<>'kawin') then
begin
writeln('status salah');
end
else
begin
if st='bujangan' then
writeln('Gaji anda adalah = ',gp);
if st='kawin' then
writeln('Gaji anda adalah = ',gt);
end;
end.

Program Pascal

Huhuhu....

Ayoooo...bagi yang ingin (suka) dengan pemrograman, mari kita bangun pemrogramaman kita!!!


Oia, aku mau share ni..

Ini adalah program nilai (pakai Pascal), sudah ditest dan bagus qo.
kalian boleh q0 mengedit, karena listing program ini open source..

program ifthenelse2;
uses wincrt;
var
nama:string;
mat,fis,kim,jumlah,ratarata:real;
begin
clrscr;

write('Masukkan nama murid = ');readln(nama);
write('masukkan nilai matematika = ');readln(mat);
write('Masukkan nilai fisika = ');readln(fis);
write('Masukkan nilai kimia = ');readln(kim);

jumlah:=mat+fis+kim;
ratarata:=jumlah/3;

writeln;
writeln('Nilai rata-rata yang didapat = ',ratarata:10:2);

if ratarata >=86 then
begin
writeln('Indeks nilainya = A');
end
else
if ratarata >=76 then
begin
writeln('Indeks nilainya = B');
end
else
if ratarata >=66 then
begin
writeln('Indeks nilainya = C');
end
else
if ratarata >=56 then
begin
writeln('Indeks nilainya = D');
end
else
begin
writeln('Indeks nilainya = E');
end;
end.