Pascal : Program Perhitungan Matriks

Pascal : Program Perhitungan Matriks

Program matrik;
uses wincrt;
type data = array[1..10,1..10] of integer;
var matrikI,matrikII : data;
    baris,kolom,pil : integer;

procedure isimatrik;
var i,j : integer;
begin
 writeln('Penentuan ORDO MATRIK I');
 write('Masukan banyak baris matrik I = ');readln(baris);
 write('Masukan banyak kolom matrik I = ');readln(kolom);
 for i:=1 to baris do
   for j:=1 to kolom do
     begin
       gotoxy(j*10,i*5);
       readln(matrikI[i,j]);
     end;
 clrscr;
 writeln('Penentuan ORDO MATRIK II');
 write('Masukan banyak baris matrik II = ');readln(baris);
 write('Masukan banyak kolom matrik II = ');readln(kolom);
 for i:=1 to baris do
   for j:=1 to kolom do
     begin
       gotoxy(j*10,i*5);
       readln(matrikII[i,j]);
     end;
end;
procedure jumlahmatrik(m1,m2 : data);
var hasil : data;
    i,j : integer;
begin
  for i:=1 to baris do
    for j:=1 to kolom do
      begin
        hasil[i,j]:=m1[i,j]+m2[i,j];
      end;
  clrscr;
  writeln('Hasil Penjumlahan MATRIK');
  for i:=1 to baris do
    for j:=1 to kolom do
      begin
        gotoxy(j*10,i*5);
        write(hasil[i,j]);
      end;
end;

procedure kurangmatrik(m1,m2 : data);
var hasil : data;
    i,j : integer;
begin
  for i:=1 to baris do
    for j:=1 to kolom do
      begin
        hasil[i,j]:=m1[i,j]-m2[i,j];
      end;
  clrscr;
  writeln('Hasil Penjumlahan MATRIK');
  for i:=1 to baris do
    for j:=1 to kolom do
      begin
        gotoxy(j*10,i*5);
        write(hasil[i,j]);
      end;
end;

procedure kalimatrik(m1,m2 : data);
var hasil : data;
    i,j,z : integer;
begin
    for i:=1 to baris do
      for j:=1 to kolom do
        begin
          hasil[i,j]:=0;
          for z:=1 to baris do
             hasil[i,j]:=hasil[i,j]+m1[i,z]*m2[z,j];
        end;
    clrscr;
    writeln('Hasil Penjumlahan MATRIK');
    for i:=1 to baris do
      for j:=1 to kolom do
        begin
          gotoxy(j*10,i*5);
          write(hasil[i,j]);
        end;
end;
begin
  writeln(' M E N U');
  writeln('(1) Penjumlahan Matrik');
  writeln('(2) Pengurangan Matrik');
  writeln('(3) Perkalian Matrik');
  write('Pilihan = ');readln(pil);
  clrscr;
  case pil of
  1 : begin
        isimatrik;
        jumlahmatrik(matrikI,matrikII);
      end;
  2 : begin
        isimatrik;
        kurangmatrik(matrikI,matrikII);
      end;
  3 : begin
        isimatrik;
        kalimatrik(matrikI,matrikII);
      end;
  end;
end.

belajar MYSQL

1. mysql> select Nama_barang,Harga from barang1 where Harga > 1000000;

   +-------------+---------+

   | Nama_barang | Harga   |

   +-------------+---------+

   | CPU         | 2000000 |

   | Printer     | 1200000 |

   +-------------+---------+

   2 rows in set (0.00 sec)

2. mysql> select No_supplier,Nama_supplier from barang where  

   Kota="Jakarta" order by Nama_supplier asc;

   +-------------+---------------+

   | No_supplier | Nama_supplier |

   +-------------+---------------+

   | S1           | Agung         |                         

   | S5          | Zaki          |

   +-------------+---------------+

   2 rows in set (0.00 sec)

3.mysql> select distinct Kode_barang from transaksi where Kode_barang 

  ="B05";

  +-------------+

  | Kode_barang |

  +-------------+

  | B02         |

  | B03         |

  | B04         |

  | B01         |

  +-------------+

  4 rows in set (0.00 sec)

4.mysql> select count(Nama_supplier) from barang;

  +----------------------+

  | count(Nama_supplier) |

  +----------------------+

  |                    5 |

  +----------------------+

  1 row in set (0.00 sec)

5. mysql> select count(Nama_supplier) from barang where No_supplier IN  

       ->(select distinct No_supplier from transaksi);

   +----------------------+

   | count(Nama_supplier) |

   +----------------------+

   |                    5 |

   +----------------------+ 

   1 row in set (0.02 sec)

6.mysql> select SUM(Jumlah) from transaksi where Kode_barang="B03" and

  No_supplier="S1";

  +-------------+

  | SUM(Jumlah) |

  +-------------+

  |          23 |

  +-------------+

  1 row in set (0.00 sec)

7.mysql> select Kode_barang,Sum(Jumlah) from transaksi Group by

  Kode_barang;

  +-------------+-------------+

  | Kode_barang | Sum(Jumlah) |

  +-------------+-------------+

  | B01         |          30 |

  | B02         |         129 |

  | B03         |          48 |

  | B04         |          80 |

  | B05         |          54 |

  +-------------+-------------+

  5 rows in set (0.00 sec)

8. mysql> select Nama_barang from barang1 where Kode_barang IN

       -> (select Kode_barang from transaksi where Jumlah>40);

   +-------------+

   | Nama_barang |

   +-------------+

   | CPU         |

   | Printer     |

   | Disket      |

   +-------------+

   3 rows in set (0.00 sec)

9. mysql> select kota from barang where No_supplier IN

       -> (select No_supplier from transaksi where Kode_barang IN

       -> (select Kode_barang from barang1 where Nama_barang="Monitor"));

   +---------+

   | kota    |

   +---------+

   | Bandung |

   | Jakarta |

   +---------+

   2 rows in set (0.00 sec)

10.mysql> select Nama_supplier from barang where No_supplier not IN 

­-> (select No_supplier from transaksi where Kode_barang="B02");

   +---------------+

   | Nama_supplier |

   +---------------+

   | Wahyu         |

   | Zaki          |

   +---------------+

2 rows in set (0.00 sec)

11.mysql> update barang set Nama_supplier="10" where Kota="Bandung";

   Query OK, 2 rows affected (0.00 sec)

   Rows matched: 2  Changed: 2  Warnings: 0

   mysql> select * from barang;    

   +-------------+---------------+----------+

   | No_supplier | Nama_Supplier | kota     |

   +-------------+---------------+----------+

   | S1          | Agung         | Jakarta  |

   | S2          | 10            | Bandung  |

   | S3          | Laksosno      | Surabaya |

   | S4          | 10            | Bandung  |

   | S5          | Zaki          | Jakarta  |

   +-------------+---------------+----------+

   5 rows in set (0.00 sec)