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

Advertisement