andrypein.net : Setelah simbol tambah kali ini membuat pola silang dengan pascal.
Rules nya sama pula, pola ini akan terbentuk sempurna jika bilangan yang diinputkan merupakan bilangan ganjil.
Kalo genap tar jelek gan hehe.
var
baris,kolom,n : integer;
begin
write('inputin angka : ');readln(n);
for baris := 1 to n do
begin
for kolom := 1 to n do
begin
if (baris = kolom) or (baris+kolom = n+1) then
write('*')
else
write(' ');
end;
writeln;
end;
readln;
end.
ko di saya ga tampil ya mas
katanya run time errors
kurang lengkap itu
kalo kopi paste semua jelas pasti eror ?
deklarasi nya belum lengkap kali,coba periksa lagi,nama program dan uses nya
itu saya sengaja langsung deklarasi var ama begin doank
jelas pasti eror
coba periksa lagi gan :jabat