Contoh Program sederhana…

Kali ini saya akan membagikan sedikit trik untuk menampilkan output dengan kasus seperti berikut ini dengan PASCAL.

Jika angka yang dimasukkan genap (misalkan inputan 6) maka pola yang tercetak :

*
**
***
****
*****
******

Sebaliknya jika yang dimasukkan ganjil (misalkan 5) maka pola yang tercetak :

*****
*****
*****
*****
*****

🙂

Dari kasus diatas jelas kita akan membutuhkan perintah untuk mengecek kondisi inputan user genap atau ganjil. Jika genap kita buat perulangan untuk mencetak pola segitiga. kalo ganjil kita buat untuk mencetak pola persegi.

Mari kita lihat contoh berikut :


uses crt;

var
inputan : integer;
baris, kolom : integer;

begin
clrscr;
write('Masukkan Angka : '); readln(inputan);
clrscr;

if inputan mod 2 = 0 then
begin
{buat bentuk segitiga}
writeln(':: Pola yang dihasilkan adalah Segitiga ::');
writeln('');
for baris := 1 to inputan do
begin
for kolom := 1 to baris do { Mengapa perulangan kolom dari 1 sampai baris ?? }
begin
write('*');  { Mengapa bagian ini hanya menggunakan write bukan writeln ?? }
end;
writeln(''); { Mengapa ada perintah writeln kosong disini ?? }
end;
end
else
begin
{buat bentuk persegi}
writeln(':: Pola yang dihasilkan adalah Persegi ::');
writeln('');
for baris := 1 to inputan do
begin
for kolom := 1 to inputan do   { Mengapa perulangan pada kolom kondisinya = perulangan baris ?? }
begin
write('*');
end;
writeln(''); { Mengapa ada perintah writeln kosong disini ?? }
end;
end;
readky;
end.

Happy coding… 🙂 :p

Advertisements

One Response to Contoh Program sederhana…

  1. amsulthon says:

    Saya kan mau buat TR itu tentang transaksi, jika sudah belanja satu maka akan muncul “Apakah anda ingin belanja lagi? (y/t)” jika kita ketik y maka akan membeli lagi,tetapi jika saya mau beli terus/ketik”y” walupun sampe 1000 barang jika tidak ketik “t” maka tidak masuk ke bayar, terus jika kita ketik “t” terus totalbayar kita ada berapa terus jika kita bayar tetapi jika totalbayar kurang maka akan muncul lagi inputan bayar jika kurang terus menerus walaupun sampe 1000 akan tetap muncul inputan bayar sebelum kita memasukkan bayar lebih atau sama dari totalbayar,.,.,.,.
    itu pake kode/skrip apa yha?????? Mohon bantuannya, Trimakasih Sebelumnya

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: