Tanggal Pembuatan : Sabtu, 12 Desember 2020
Hai gaes, disini saya akan menjelaskan tentang program coding belah ketupat atau diamond pada aplikasi Pascal. Jika ada kesalahan, mungkin kakak-kakak dapat merevisi dikolom komentar ya kak, karena kita disini juga belajar bersama. Nah tidak perlu berbasa-basi lagi, cikidot kita langsung mempelajari ya. Yukkk 😀...
Nah apakah kalian sadar? Bentuk "belah ketupat" atau bahasa kerennya adalah "diamond", itu terdiri dari segitiga biasa dan segitiga yang tebalik. Masih kurang paham? Yuk disimak gambar berikut ini 😀.
Gimana sudah mulai paham kan? Jadi untuk memulai coding pascalnya kita pertama membuat segitiga normal lalu membuat segitiga terbalik, setalah itu digabung dan membantuk suatu diamond atau belah ketupat. Oh iya untuk pembuatan program ini, dia menggunakan nasted looping, atau looping bersarang, atau juga for didalam for. Tidak perlu khawatir kok kak, mari kita membuat bersama-sama dan kakak bisa mencoba program yang saya berikan untuk dicoba pada Aplikasi Pascal kakak 😄.Program Diamond_Bintang_Penuh;
Uses Crt;
Var
I, J, K, Sisi: Integer;
Begin
Clrscr;
Write ('Masukkan Ukuran Diamond Bintang Penuh = '); Readln (sisi);
For i:=1 to sisi do
Begin
For j:=1 to sisi-i do
Begin
Write (' ');
End;
For k:=1 to i do
Begin
Write ('* ');
End;
Writeln;
End;
Readln;
End.
Program Diamond_Bintang_Penuh;
Uses Crt;
Var
I, J, K, Sisi: Integer;
Begin
Clrscr;
Write ('Masukkan Ukuran Diamond Bintang Penuh = '); Readln (sisi);
For i:=sisi-1 downto 1 do
Begin
For j:=1 to sisi-i do
Begin
Write (' ');
End;
For k:=1 to i do
Begin
Write ('* ');
End;
Writeln;
End;
Readln;
End.
Nah jika kalian sudah memahami dari coding diatas, lalu terakhir kita gabungan segitiga normal dan segitiga terbalik menjadi satu. Bagaimana contohnya? Nah dapat dilihat sebagai berikut... 😉
Program Diamond_Bintang_Penuh;
Uses Crt;
Var
I, J, K, Sisi: Integer;
Begin
Clrscr;
Write ('Masukkan Ukuran Diamond Bintang Penuh = '); Readln (sisi);
For i:=1 to sisi do
Begin
For j:=1 to sisi-i do
Begin
Write (' ');
End;
For k:=1 to i do
Begin
Write ('* ');
End;
Writeln;
End;
For i:=sisi-1 downto 1 do
Begin
For j:=1 to sisi-i do
Begin
Write (' ');
End;
For k:=1 to i do
Begin
Write ('* ');
End;
Writeln;
End;
Readln;
End.
Nah gimana mudahkan? Nah terima kasih dari saya dan semoga bermanfaat ya 🙏😀
pas tsunami, hiu ikut hanyut ngga
BalasHapus(≧▽≦) Thomas aku ngakak... Nggak tau Thom jawabannya wkwkwk... Kalau pohon pisang dikagetin, jantungnya lepas nggak? :v
Hapus