Music Player
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)