Arkadaşlar soru aşağıdaki gibi ben birşeyler yaptım yani yarısına kadar geldim sayılır ama indirgenmis satır esolon kısmını yapamadım yardımcı olabilecek olan var mı? şimdiden teşekkürler
Klavyeden girilen bir n doğal sayısı için, nxn tipinden matrisi matrisin her bir
elemanını aij=i+j+4 (mod 6) kuralına göre hesaplayıp matrisi ekrana yazdıran ve sonra
bu matrisin indirgenmis satır esolon formunu bulup yazdıran programı yazınız.
program ornek
implicit none
integer,allocatable::a(:,:)
integer:: i,j,n
print*,"n tam sayisini giriniz"
read*,n
allocate(a(n,n))
do i=1,n
do j=1,n
a(i,j)=mod(i+j+4,6)
end do
end do
do i=1,n
write(*,11) (a(i,j),j=1,n)
end do
11 format (9(i2))
end program
|
Del.icio.us
Digg
Facebook
Furl
Google
Blink
Simpy
Spurl
Y! MyWeb