My Build

matrix rotate 90 derajat

var a,b,i,j,kaya,miskin:integer;

 

    x:array[1..100,1..100]of integer;

 

begin

 

read(a);

 

read(b);

 

 for i:=1 to a do begin

 

  for j:=1 to b do begin

 

   read (x[i,j]);

 

  end;

 

 end;       

     

                

                             


kaya:=a;     

                 

a:=b   ;     

              

b:=kaya;       

             

 for i:=1 to a do    

      

  for j:=b downto 1 do      

   if j = 1 then              

    writeln (x[j,i])    

    

   else write (x[j,i],' ');  

 

end.                     

PERKALIAN MATRIX (tamfan)

var b,k,bbb,kkk,mat:integer; a:array[1..100,1..100]of integer; z:array[1..100,1..100]of integer; begin writeln('masukkan jumlah baris matrix'); readln(b); writeln('masukkan jumlah kolom matrix'); readln(k); writeln('untuk matrix ke 1'); for bbb:=1 to b do begin writeln ('baris ke ',bbb); for kkk:= 1 to k do begin writeln ('kolom ke ',kkk); readln (a[bbb,kkk]); end; end; writeln('untuk matrix ke 2'); for bbb:=1 to b do begin writeln ('baris ke ',bbb); for kkk:= 1 to k do begin writeln ('kolom ke ',kkk); readln (z[bbb,kkk]); end; end; writeln('hasil penjumlahan kedua matrix adalah'); for bbb:=1 to b do begin for kkk:=1 to k do begin write(a[bbb,kkk]+z[bbb,kkk]); end; writeln; end; end.

Ini program faktorial

var a : longint;
function handsome(x:longint):longint;
  var i,j,k : longint;
  begin
   if x=0 then
    handsome:=1
   else
    handsome:=(x * handsome(x-1));
  end;


begin
 writeln ('Masukkan angka');
 readln (a);
 writeln (handsome(a));
end.

RESOURCE PACK UPDATE

UPDATE RESOURCE PACK

Please note that THE VERSION BEFORE WON'T WORK

Neo Custom resource pack now UPDATE
https://www.dropbox.com/s/cjwv0amkq42ntnh/NeoCustom.zip?dl=0

Neo Custom Update

what's new :
-added new music :
     -Liviu Hodor ft.Mona ~ Sweet Love
     -DJ Manian ~ Welcome to the Club
     -Touhou ~ Bad Apple
     -Owl City ~ When Can I See You Again ( Wreck It Ralph )
-Fixed Orange Stained Clay.
-Recolored stained clays.
https://www.dropbox.com/s/cjwv0amkq42ntnh/NeoCustom.zip?dl=0

This is faithful resource pack , i just fixed some clay colour and add music in stal , mellohi , and mall.
https://www.dropbox.com/s/cjwv0amkq42ntnh/NeoCustom.zip?dl=0