fortran二维数组编程题…急!一只虫子,在直角坐标系以(1,1)为第一步,移动一个坐标算一步,按照逆时针正方形顺序走向中心,如(2,1)为第二步,一直走到(1,100),再走到(100,100),再走到(1,100),再向下走

Question

fortran 二维数组编程题…急!
一只虫子,在直角坐标系以(1,1)为第一步,移动一个坐标算一步,按照逆时针正方形顺序走向中心,如(2,1)为第二步,一直走到(1,100),再走到(100,100),再走到(1,100),再向下走到(1,2),再向右拐走到(2,2)…就这样逆时针旋转着走到中心,问在键盘输入步数,求小虫这时候坐标…

Answer 1

#include
void main()
{
int XY[102][102];
int step[4][2] = {{1,0},{0,1},{-1,0},{0,-1}};//走动的方向
int x,y;
for(y=0;y