kcywa
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите написать, пожалуйста,программки в фортране:
1)Спираль. Матрицу М (m строк, n столбцов) заполнить натуральными числами от 1 до mxn (x - умножить) по спирали, начинающейся в левом верхнем углу и закрученной по часовой стрелке. Должно выглядеть так:
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
2)Сессия. Результаты сессии, состоящей из трех экзаменов, ДЛЯ группы из п студентов представлены матрицей К (п, 3). ОЦЕНКА ставится по четырехбалльной системе; неявка обозначается единицей. Подсчитать количество неявок, неудовлетворительных, удовлетворительных, хороших и отличных оценок по каждому экзамену.
program Mass
implicit none
integer i,imax,imin,j,jmax,jmin,k,m,n,b
integer,parameter:: b=m*n
integer a(1:b)
print*, 'Vvedite 4islo strok: '
read*, m
print*,'Vvedite 4islo stolbcov: '
read*, n
jmin=1
jmax=n
imin=2
imax=m
k=0
j=jmin
do
do while ( j<= jmax )
k=k+1
a(imin-1:j)=k
j=j+1
enddo
j=jmin
do while ( j<= jmax )
k=k+1
a(i:jmax)=k
j=j-1
end do;
j=jmax
do while ( j>= jmin )
k=k+1
a(imax:j)=k
j=j-1
end do;
j=jmax
do while ( j>= jmin )
k=k+1
a(i:jmin)=k
end do;
if(k>=b) exit
end do
i=1
do while (i<=m)
j=1
do while(j<n)
print*, a(i:j)
end do
end do
Это все, на что меня хватило по первой задачке. Не работает  |
