MATRIK MODEL 3

    Di model 3 ini sama persis di matrik model 1 sana cuma kalo di model 3 ini di balik gays ... dibalik lah pokok nya :D kalo ga percaya liat gambarnya tuh.. dah mampang di bawah ini .

Ini script coding nya :

program gausjodan_mode3;

{$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 ('=============================');

  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 matrik[x,y]:=1;

        write(matrik[x,y]:4);

      end;

      writeln;

  end;

  readln;

end.

Slamat mencoba gays .. :)