Vakum

Ulangan Semester sudah dekat, kepada pengunjung blog, maaf jika beberapa waktu kedepan Saya tidak memposting, karena Saya sudah harus fokus belajar untuk menghadapi Ulsem di akhir November nanti.

Sekian

Swap data dengan metode Procedure

Swapping Data A dengan data B

Contoh Input

5 9

Output:

9 5

PROGRAM varparam;

var

a,b : integer;

procedure Swap(var a,b : integer);

var

temp : integer;

begin

temp := a;

a := b;

b := temp;

end;

begin

readln(a, b);

Swap(a, b);

writeln(a,' ',b);

end.

Hasil Babak Penyisihan ITBJPC 2011

Yahhh, Saya tidak lolos, tak apalah, paling tidak sudah nambah pengalaman. hhe.

Tapi menurut Saya,mungkin saja disitu terjadi kecurangan saat mengerjakan online. Kecurigaan Saya muncul ketika saya melihat 3 finalis dari sekolah yang sama, apakah mereka memang "Murni" mengerjakan soal2 itu sendiri, atau apakah beberapa dari finalis itu mengerjakan soal2 tersebut dibantu/dikerjakan oleh guru/orang lain yang sudah berpengalaman pendidikan di bidang IT programming. Saya yakin seyakin-yakinnya,pasti terdapat kecurangan dalam pengerjaan soal2 tersebut, itulah kelemahan dari kompetisi yang diadakan secara online seperti itu.

Tetapi skill finalis2 tersebut yang sebenarnya akan diuji pada babak final nanti, apakah mereka bisa sejago seperti skor mereka saat di pengumuman finalis,atau apakah mereka nanti hanya duduk terdiam dan pasrah. Semua itu akan terlihat...

JUJUR LEBIH BAIK DARIPADA NANTINYA MENYESAL TIDAK BISA BERBUAT APA2

Jawaban 'Accepted' Soal Kontes ITBJPC 2011

Mendaki Gunung Lewati Lembah

SOAL

Mendaki Gunung Lewati Lembah

Time limit	1second
Memory limit	128 MB

Description

Pak Ganesh sedang jalan-jalan ke gunung Tangkuban Perahu bersama Pak Dengklek. Mereka membawa satu tas besar yang mereka bawa bergantian.

Mereka akan melalui sebuah jalur pendakian yang memiliki ketinggian H. Pak Ganesh mendapat giliran untuk membawa diantara diantara 2 titik di jalur tersebut, A dan B, dimana A lebih dulu dari B, dan tinggi A - tinggi B adalah maksimum. Artinya, Pak Ganesh akan mencari 2 titik yang memiliki total jalur penurunan paling besar. 2 titik ini dapat saja merupakan titik yang sama.

Pak Ganesh mengetahui seluruh titik yang berada di jalur yang mereka tempuh, dan ia bisa mengetahui berapa tinggi titik tersebut.

Input Format

baris 1 : N, (1<= N <=1000000) jumlah titik yang akan dilalui perjalanan.

baris 2..N+1 : bilangan yang menyatakan tinggi titik ke-i, Hi (0<=Hi<=1000000). Titik ke-i pasti lebih dulu ditempuh daripada i+1.

Output Format

Satu bilangan yang menyatakan besar penurunan paling banyak.

Sample Input

5 10 11 7 10 6 

Sample Output

5

Penjelasan

Pak Ganesh akan memilih titik ke 2 dan titik ke 5, sehingga besar penurunan yang dapat dicapai adalah 5.

Sample Input

4 15 6 20 10 

Sample Output

10

Script Accepted Saya

PROGRAM mendaki;

VAR

h : array[1..1000000] of integer;

n,i,x,d,terendah : integer;

BEGIN

readln(n);

FOR i:= 1 TO n DO

begin

readln(h[i]);

end;

FOR i := 1 TO n DO

begin

for x:= (i+1) to n do

begin

d := h[i]-h[x];

if terendah < d then terendah := d;

end;

end;

writeln(terendah);

END.

Pendapat Saya soal ITB JPC (Junior Programming Contest) 2011 kali ini

Masya Allah, susahnya itu soal, walaupun panitia hanya memberi 5 soal, tapi soal-soalnya itu bikin otak diputer-puter kayak mesin cuci dikasi power spin maksimum. Bayangkan saja, panitia memberi waktu sangat banyak, sekitar dari jam 13.00 WIB sampai jam 18 WIB, itupun Saya baru bisa nyelesaiin 2 program, dan itupun cuma di accept 1, satunya lagi nilainya cuma 50.

Masalahnya disini adalah, judulnya aja "Junior Programming", tapi soalnya sudah seperti soal buat mahasiswa yang sudah mahir banget bahasa pemrograman. Masalahnya lagi, peserta JPC itu yang diperbolehkan adalah murid SMP/MT dan SMA dan sederajat. Apakah sudah ada anak SMP yang sudah bisa bahasa pemrograman sampai sekompleks itu? Saya saja sebagai anak SMA udah bersyukur banget bisa ngerjain 2 soal,walaupun yg di accept cuma 1 dan satunya lagi diberi nilai 50.

Dan kata teman satu sekolah Saya, dia sempet nanya2 anak2 lain di TOKI yang katanya jago2, dan dia bilang mereka aja cuma dapet ngerjain 1 soal aja, masyaallahh. Tapi Saya juga tidak tau pasti apakah ada yang ngerjain lebih dari itu, karena Saya hanya tinggal menunggu pengumuman dari panitianya.

Sekian.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Dua Pangkat

Link Soal

PROGRAM duapangkat;

VAR

n,x : longint;

BEGIN

x := 1;

readln(n);

while x < n do

begin

x := x*2;

end;

if x = n then writeln('TRUE') else writeln('FALSE');

end.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

For

Link Soal

PROGRAM for1;

VAR

n,bi,i,jum : integer;

sp : char;

BEGIN

read(n);

FOR i:= 1 to n do

begin

read(bi,sp);

jum := jum+bi;

end;

writeln(jum);

end.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Break, Continue, Exit

Link Soal

PROGRAM BCE;

VAR

n,i : integer;

begin

readln(n);

for i:= 1 to n do

begin

if (i = 93) then

begin

writeln('ERROR');

break;

end;

if (i mod 10 = 0) then

continue;

writeln(i);

end;

end.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Cek Bilangan Prima

Link Soal

PROGRAM cekprima;

VAR

prima : boolean;

i,j : integer;

begin

while not eof (input) do begin

readln(i);

prima:= true;

if i < 2 then prima:= false;

for j:= 2 to i-1 do begin

if i mod j = 0 then prima := false;

end;

if prima = true then writeln('YA') else writeln('TIDAK');

end;

readln;

end.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Rata-Rata

Link Soal

PROGRAM rata;

VAR

n,i : integer;

b,k,r,m,jum : real;

BEGIN

readln(n);

k := 1000000;

b := -1000000;

FOR i:= 1 TO n DO

BEGIN

readln(m);

jum := jum+m;

if m < k then k := m;

if m > b then b := m;

END;

r := jum/n;

writeln(k:0:2,' ',b:0:2,' ',r:0:2);

END.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Pola 2

Link Soal

PROGRAM pola2;

VAR

n,a,b,c : integer;

BEGIN

readln(n);

FOR a:= 1 TO n DO

begin

for b:= 1 TO a DO

begin

if c = 10 then c:=0;

write(c);

c := c+1;

end;

writeln;

end;

end.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Pola 1

Link Soal

PROGRAM pola1;

VAR

n,a,b : integer;

BEGIN

readln(n);

FOR a:= 1 TO n DO

begin

FOR b := 1 TO (n-a) DO

begin

write(' ');

end;

FOR b := 1 TO a DO

begin

write('*');

end;

writeln;

end;

end.

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Faktor Bilangan

Link Soal

PROGRAM faktorbil;

VAR

n,i : longint;

BEGIN

repeat

repeat

readln(n);

until n>=1;

until n<=1000000;

FOR i := n downto 1 do

begin

if n mod i = 0 then writeln(i);

end;

end.