MATRIK MODEL 4

        Yang Model 4 ini mah beda atuh .. yang tadi kan angka pake angka .. tapi nyang ini mah beda, tadi yang ada di pojok kanan kiri atas bawah kan angka "0" , sekarang ga angka 0 lagi lhoh.. tapi bentik bintang (*). Kepo ga ?? #kepoBangetKaka yaudah kalo kepo liat gambar dibawah ini aja ;)

nah.. sekarang udah tau kan apa yang ku maksd ? separuh bintang-bintang da separuhnya lagi angka 1. kalo ingin langsung praktik bisa liat script coding dibawah ini :

program gaus_mode4;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln;
  writeln('Nama  : Maisirotul Rizka');
  writeln('Nim   : 114224022');
  writeln ('=============================');
  writeln ('TAMPILAN MATRIKS GAUSS JORDAN');
  writeln ('=============================');
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if x + y <= 6 then
          write('*':4)
        else
          write('1':4);
      end;
      writeln;
  end;
  readln;
end.

Selamat mencoba ^^