Berikut saya berikan contoh code untuk membuat formasi X dengan karakter '*', untuk codenya silahkan simak di bawah ini:
begin
read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j=i) or (j=(n-i+1)) then
begin
write('*');
end
else
write(' ');
end;
writeln;
end;
end.
program prima; uses wincrt; var i,n:integer; prm: boolean; begin write ('masukkan nilai n: '); read (n); prm:true; if (n mod 2 = 0) and (n<>0) then write (n,' bukan bilangan prima') else begin for i:=2 to n-1 do begin if n mod i = 0 then begin prm:=false; end; end;
if prm=false then write (n,' bukan bilangan prima') else write (n,' bilangan prima'); end; end.
program ulang; uses wincrt; var i,j,n: integer; begin write ('masukkan nilai n: '); read (n); for i:=n downto 1 do begin for j:=n downto n-i+1 do begin write (j); end; writeln; end; end.