Membuat Deret Bilangan Model Belah
Ketupat
Pada Bahasa Pascal
Membuat deret
bilangan pada suatu bahasa pemrograman merupakan hal yang biasa dipelajari jika
mendalamai bahasa pemrograman. Berikut akan saya berikan bahasa pemrogaman
untuk deret bilangan belah ketupat pada bahasa pascal...
uses crt;
var a,b,c,d : integer;
begin.
clrscr;
write ('masukkan
angka : '); readln(a);
writeln;
begin
for b := 1 to a
do
begin
for d := (a-1)
downto b do
begin
write (' ');
end;
for c := 1 to b
do
begin
write (c, ' ');
end;
begin
for c := 1 to b
do
write (c, ' ');
end;
writeln('');
end;
begin
for b := a downto
1 do
begin
for d := (a-1)
downto b do
begin
write (' ');
end;
for c := 1 to b
do
begin
write (c,'');
end;
begin
for c := 1 to b
do
write (c,'');
end;
writeln ('');
end;
begin
for d := (a-1)
downto b do
begin
write (' ');
end;
for c := 1 to b
do
end;
writeln ('');
end;
end;
readln;
end.
Maka hasilnya
akan seperti ini...
