MATRIK MODEL 2

Di model 2 ini hampir sama dengan di matrik model 1 , tetapi ini bedanya angka 0 nya hanya di atas pojok kanan saja yang lainnya angka-angka lain selain angka 0 . langsung saja liat gambarnya di bawah ini .

Seperti itu gambanya .. jika ingin mencoba membuanya gue tulisin script coding nya dibawah ini :

program gausjordan_model2;

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

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

      end;

      writeln;

  end;

  readln;

end.

Selamat mencoba gays .. ^^