Program ini sebenarnya bukan program bentuk dan angka, melainkan sebuah program yang meng-outputkan sebuah bentuk dan setiap komponennya merupakan sebuah nilai yang terurut. Duh, pokonya susah ngejelasinnya lah. jadi, soalnya seperti ini:
jika user meng-input angka 2, maka outputnya:
1
2 3
jika user menginput angka 5, maka outputnya:
1
2 6
3 7 10
4 8 11 13
5 9 12 14 15
nah, gitu programnya .
atau, gini deh bentuk pascalnya ,
hmmm.. lumayan agak sedikit menguras otak tuh, itu soal yang bikin saya gagal seleksi ProClub di IT Telkom .. hufh, akhirnya saya coba mengerjakan lagi dirumah, dan ternyata saya menemukan formulanya, dan itu ternyata cukup mudah. klo aja pas seleksi saya bisa, pasti saya lolos. hiks hiks..
eh, udah ah, ko malahan jadi curhat gini. haha. langsung aja ya .
ini source codenya (silakan di lihat dan dipahami):
program bentukangka;
uses wincrt;
function hitung(n,x:integer):integer;
var
i,z:integer;
begin
z:=0;
for i:=1 to x-1 do
begin
z:=z+n;
n:=n-1;
end;
hitung:=z;
end;
var
n,x,y:integer;
begin
write('Masukkan bilangan : ');readln(n);
for y:=1 to n do
begin
for x:=1 to y do
if x=1 then
write(y,' ')
else
write((y-(x-1))+hitung(n,x),' ');
writeln;
end;
readln;
end.
Nah setelah dipahami, coba deh buka turbo pascalnya . lalu dijalankan programnya.
pertama-tama yang harus kita lakukan apabila melihat soal seperti itu ialah :
1. istighfar (bcanda. hehe)
melihat bentuk tampilannya, bentuk di atas merupakan bentuk segitiga (klo mau tau tentang cara bikin bentuk download tutorial aneka bentuk dan gambar sederhana pada pascal disini)
2. coba buat aneka output untuk setiap inputan, lalu bandingkan apa persamaan dari semuanya. setelah itu ciptakan sebuah rumus.
3. bentuk algoritmanya .
*) kalo mau lebih jelas, silakan hubungi saya. ato ada yang mau bikin tim untuk kompetisi juga saya siap berpartisipasi.
Perluas persahabatan !! smangat !!
Sabtu, 21 November 2009
Program bentuk & angka
Minggu, 15 November 2009
Menggambar pola sederhana pada Pascal
Menggambar atau membuat pola sederhana pada pascal ataupun bahasa pemrograman lain dapat dilakukan dengan menggunakan perulangan/looping. Caranya ialah dengan memberikan perintah pada program untuk melakukan pengulangan penulisan karakter hingga membentuk sebuah pola. Perhatikanlah pola-pola sederhana yang dapat dibentuk dibawah ini:
Bentuk-bentuk diatas merupakan salah satu contoh pengembangan for-to-do pada turbo pascal.
untuk lebih memahami cara dan pembuatan serta algoritma dari program diatas maka download file tutorial dan source code nya disini
Jumat, 09 Oktober 2009
Program bil. prima
program bil_prima;
var
n:integer;
begin
readln(n);
if ((n=2)or(n=3)or(n=5)or(n=7))and(n<10)>
write('Prima')
else
if ((n mod 2<>0)and(n mod 3<>0)and(n mod 5<>0)and(n mod 7<>0)) then
write('Prima')
else
write('bukan prima');
readln;
end.
2. Menggunakan for-to-do
program bil_prima;
var
i,c,n:integer;
begin
readln(n);
c:=0;
for i:=2 to n do
if (n mod i=0) then
c:=c+1;
if (c=1) then
write('Bilangan Prima')
else
write('bukan bilangan prima');
readln;
end.
Program tahun kabisat
Tahun kabisat ialah tahun yang habis dibagi 400 (contohnya tahun 2000) atau tahun yang habis dibagi 4 dan tidak habis dibagi 100 (contohnya tahun 2008).
atau kalo mau tahu lebih lanjut tentang tahun kabisat, baca aja di wikipedia.
Program tahun kabisat ialah program yang sangat sederhana, tapi kadang juga sedikit membingungkan, berikut ini akan saya berikan source code untuk program kabisat.
1. program kabisat menggunakan if then else
program kabisat;
var
n:integer;
begin
readln(n);
if (n mod 400=0) then
write('Kabisat')
else
if (n mod 4=0) and (n mod 100<>0) then
write('Kabisat')
else
write('Bukan kabisat');
end.
2. Program kabisat tanpa If (program ini akan menampilkan 'true' jika tahun yang diinputkan kabisat, dan akan 'false' jika tahun yang diinputkan bukan tahun kabisat)
program kabisat;
var
n:integer;
begin
readln(n);
writeln((n mod 400=0) or ((n mod 4=0) and (n mod 100<>0)));
end.
Turbo Pascal
Turbo pascal ialah aplikasi untuk membuat sebuah program dengan bahasa pascal.
aplikasi ini biasanya digunakan untuk dasar pemrograman .
buat yang mau download aplikasi ini, saya punya dua versi :
1. versi DOS, versi yang interfacenya masih buruk, layar masih warna biru-biru gtu. hahaha..
2. versi untuk windows, versi yang interfacenya udah lumayan bagus, jadi mending download versi yang ini aja . hehe .
*cat: turbo pascal versi windows harus menggunakan uses wincrt; supaya dapat di running. tapi sebelum running, compile dlu lah.. klo gak bisa compile ya gak bisa running . ckckck
Download Turbo Pascal 7.1
Download Turbo Pascal for Windows