Silhouette server = 40% & 60% process images

Server Glorius Music Box 20% in progress

Music Album No Title (+&-) By Giga-P and Reol MINECRAFT RP

Minecraft Resource Pack

music set no title -
https://www.dropbox.com/s/mjochjvh4xpgr43/Music%20Set%20No%20Title%20-.zip?dl=0

music set no title +
https://www.dropbox.com/s/u7tvm5nfh6j7htm/Music%20Set%20No%20Title%20%2B.zip?dl=0

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.