Program untuk Menampilkan Angka Berbentuk Belah Ketupat Menggunakan Pascal
Untuk membuat program tampilan angka tersusun berbentuk belah ketupat yang harus kita perhatikan disini yaitu pengurutan bilangan dari atas ke bawah dan bawah keatas.Untuk itu batas bilangan harus kita buat. Semakin besar batas bilangan, maka tampilan angka berbentuk belah ketupat akan semakin besar pula, karena pengurutan bilangannya semakin banyak.Ataupun sebaliknya semakin kecil batas bilangan maka tampilan angka berbentuk belah ketupat akan semakin kecil pula karena pengurutan bilangannya semakin sedikit. Disini kita pelajari bagaimana pembuatan program untuk pengurutan bilangan dengan pemakaian for ...to ....do dan for ....downto .... do
Codingan programnya dapat saya buat sebagai berikut :
uses crt;
var : n,j,k,i : integer;
begin
clrscr;
writeln('Tampilan Angka Berbentuk Belah Ketupat);
write ( 'Masukan Batas : ');readln (n);
begin
for i:=1 to n do
begin
for k:= (n-1) downto i do
begin
write (' ');
end;
for j:= 1 to i do
begin
write (j, ' ');
end;
begin
for j:= (i-1) downto 1 do
write (j, ' ');
end;
writeln (' ');
end;
begin
for i:= (n-1) downto 1 do
begin
for k:= (n-1) downto i do
begin
write (' ');
end;
for j:= i downto 1 do
begin
write (j, ' ');
end;
begin
for j:= i to (i-1) do
write (j,' ');
end;
writeln (' ');
end;
end;
end;
readln;
end.
Output untuk program diatas setelah di run :
Demikianlah posting dari saya.Semoga bermanfaat untuk anda.Terima Kasih telah mengunjungi blog ini.
No comments:
Post a Comment