CONTOH SCRIPT DASAR PEMBUATAN PROGRAM PADA DELPHI 7 (Part 5)

Kali ini saya akan beri Contoh macam - macam rumus Coding Matrik

• Contoh Matrik Gauss Jordan. 

program Project1;

{$APPTYPE CONSOLE} 

uses

  SysUtils;

var

  matrik:array[1..10,1..10] of integer;

  x,y:integer;

begin

  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]:=1;

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

      end;

      writeln;

  end;

  readln;

end.

Tampilannya akan seperti ini ..

Contoh Lain dari Matrik Gauss Jordan sebagai berikut

Program Project1; 

{$APPTYPE CONSOLE}

uses

  SysUtils; 

var

  matrik:array[1..10,1..10] of integer;

  x,y:integer;

begin

  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.

Hasilnya seperti ini ..

• Contoh Matrik Pola

program Project1; 

{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
Mat:array[1..10,1..10]of integer;
x,y : integer ;
begin
for x := 1 to 5 do
begin
for y:= 1 to 5 do
begin
if x+y<=6 then write('*':5) else;
write('');
end;
writeln;
end;
readln;
end.

Maka hasilnya seperti ini ..

Contoh Kedua dari Matrik Pola

program Matrik_pola2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
  var
matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if x=3 then matrik [x,y]:=1;
         if y=3 then matrik [x,y]:=1;
        write(matrik[x,y]:4);
      end;
      writeln;
  end;
  readln;
end.

Tampilanya akan seperti ini

Contoh Ketiga dari Matrik Pola

program Matrik_pola3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
  var
matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if y=1 then matrik[x,y]:=1;
                if y=2 then matrik[x,y]:=3;
                if y=3 then matrik[x,y]:=5;
                if y=4 then matrik[x,y]:=7;
                if y=5 then matrik[x,y]:=9;
                if x+y>=7 then matrik[x,y]:=0;
        write(matrik[x,y]:4);
      end;
      writeln;
  end;
  readln;
end.

Dan hasil akhirnya akan seperti ini ..

Selamat Mencoba ^_^ ..