Kali ini saya akan memberikan posting untuk membuat bentuk piramida yang terdiri dari angka/bilangan, dan nilai yang di input merupakan tinggi piramida. Langsung aja kode programnya saya tampilkan
Kode Program :
program piramida;
uses crt;
var jmbaris, i, j, bil : integer;
begin
clrscr;
writeln('PROGRAM MENCETAK PIRAMIDA BILANGAN');
writeln('----------------------------------');
writeln;
write('Masukkan Jumlah Baris: '); readln(jmbaris);
for i:=1 to jmbaris do
begin
for j:=1 to jmbaris-i do
write(' ');
for bil:=i downto 1 do
write(bil);
for bil:=2 to i do
write(bil);
writeln;
end;
readln;
end.
Hasil outputnya seperti ini :
kak mau tanya , kenapa dalam penulisan pascal harus berpiramida dam merupakan bilangan yang istimewa ???
BalasHapustolong dijawab
gk harus piramida koq, ni cuma contoh pascal aja
BalasHapuskak mau tanya jika outputnya ingin seperti ini gimana codingnya ya :
BalasHapus1
12
123
1234
12345
begin
Hapusreadln(N);
for i:=1 to 5 do
begin
for j:=1 to i do
begin
write(j);
end;
writeln;
end;
readln;
end.
kak mau tanya kalo pake metode while do bagaimana
BalasHapusKak gimana kalau
BalasHapus1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
Misi min klo codingan ini gmn ya
BalasHapus4 8 12 16
3 6 9
2 4
1 terimakasih dan mohon dijawab
Misi kalo pake WHILE DO gimana
BalasHapus1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
Bang klao coding nya ini bang..
BalasHapus1
4 4
7 7 7
10 10 10 10
13 13 13 13 13
Kak kalau angkanya 123466790 trus ulang ke 1 lg gmn
BalasHapuskak,cara bisa buat sampai 20 bagaimana ya?, aku coba bisa sih, cuman gak rapi bagian sisi kanannya. mohon bantuannya
BalasHapuskak,bagaimana caranya buat kayak gini
BalasHapus\
1
212
32123
4321234
543212345
65432123456
7654321234567
876543212345678
98765432123456789
109876543212345678910
1110987654321234567891011
12111098765432123456789101112
131211109876543212345678910111213
1413121110987654321234567891011121314
15141312111098765432123456789101112131415
161514131211109876543212345678910111213141516
1716151413121110987654321234567891011121313151617
18171615141312111098765432123456789101112131415161718
191817161514131211109876543212345678910111213141516171819
2019181716151413121110987654321234567891011121314151617181920
Ka mau nanya kalau pakai koding pascal membuat segitiga
BalasHapus1
11
111
1111
11111
111111
Tapi sgitiganya trbalik
BalasHapus