https://www.dropbox.com/s/wb07yivx9yzbans/StevenSean12A2-26.accdb?dl=0
Music Player
Kamis, 13 Agustus 2015
Kamis, 18 Juni 2015
Selasa, 12 Mei 2015
Senin, 04 Mei 2015
Selasa, 21 April 2015
Jumat, 17 April 2015
Kamis, 16 April 2015
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.
Langganan:
Postingan (Atom)












