Gudang Info yang berisi Berita, Cerita, Hiburan, dan Ilmu Pengetahuan

Saturday, 6 June 2015

Program Pascal Bujur Sangkar Ajaib Kelipatan Ganjil

Program Bujur Sangkar Ajaib Kelipatan Ganjil
Program Pascal Bujur Sangkar Ajaib Kelipatan Ganjil
Bujur Sangkar Ajaib Kelipatan Ganjil
Bahasa Pascal
Langkah Algoritma Program Pascal Bujur Sangkar Ajaib Kelipatan Ganjil

Input: n (ukuran bujur sangkar)
Proses:
o Menulis angka 1 pada baris pertama kolom (n+1)/2.
o Menulis angka selanjutnya secara naik ke arah kanan atas.
o Jika saat pengisian, bilangan terletak pada baris ke-0 , maka pengisian dilakukan pengan memindahkan bilangan tersebut ke baris terakhir
o Jika pada pengisian, bilangan yang akan diisikan terletak pada kolom ke (n+1) maka pengisian dilakukan dengan cara meletakkan bilangan tersebut pada kolom ke-1
o Jika bilangan terakhir yang ditulis adalah bilangan kelipatan n, maka bilangan selanjutnya diletakkan tepat di bawah bilangan tersebut
o Melakukan langkah pengisian semua sel pada bujur sangkar dengan  bilangan 1 sampai n^2.

Output: Bujur Sangkar Ajaib berukuran kelipatan ganjil.

Bujur Sangkar Ajaib Kelipatan Ganjil
Bujur Sangkar Ajaib Kelipatan Ganjil

Program BSAGanjil;
uses wincrt;
var BSA : array[1..15,1..15] of integer;
n,i,j,k,jumlah: integer;
label baca;
begin
baca:
writeln('Bujur Sangkar Ajaib Berukuran Ganjil');
write('Banyaknya baris yang diinginkan, n<=15 : ');
readln(n);
if (n mod 2 = 0) or (n<3) or (n>15) then goto baca;
i:=1;j:=(n+1) div 2;
for k:=1 to n*n do
begin
BSA[i,j]:=k;
if k mod n = 0 then
if i+1>n then i:=1 else inc(i);
if k mod n <>0 then
begin
if i-1<1 then i:=n else dec(i);
if j+1>n then j:=1 else inc(j);
end;
end;
jumlah:=0;
for i:=1 to n do

begin
jumlah:=jumlah+BSA[i,i];
for j:=1 to n do write(BSA[i,j]:5);
writeln;
end;
writeln('Jumlah baris/kolom/diagonal = ',jumlah);
end.

Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal

0 comments:

Post a Comment