一道fortran作业题

水月洞天

有A,B两个数列，从A中删除B中出现的数,编写内部子程序实现。

天目神眉

感觉思路还是蛮好理的，楼主尽量自己多试试，遇到具体问题再寻求帮助。

edwardli

#include <stdio.h>
#define MAXN 10   /*数列的最大个数*/

int InputArr(char name,int *x)
{ int i,count;
printf("%c数列大小：",name);
scanf("%d",&count);
printf("请输入数列%c的元素，共有%d个元素:",name,count);
for(i=0;i<count;i++)
  scanf("%d",x+i);
return count;
}
void DelArrAt(int *x,int *pn,int pos)
{ int i;
for(i=pos;i<*pn-1;i++)
  x[i]=x[i+1];
*pn=*pn-1;
}
int DelFromArr(int *x,int *pn,int y)
{ int i;
for(i=0;i<*pn;i++)
  if(x[i]==y)
  { DelArrAt(x,pn,i);
   return 1;
  }
return 0;
}

void PrtArr(char name,int *x,int n)
{ int i;
printf("%c数组为：",name);
for(i=0;i<n;i++)
  printf("%d ",x[i]);
printf("\n");
}
main()
{
int a[MAXN],b[MAXN],n,m,i;
char aTag[MAXN]={0};  /* 对应于a数组的删除逻辑尺，0--不删除，1--要删除 */
n=InputArr('a',a);
m=InputArr('b',b);
for(i=0;i<n;i++)
  if(DelFromArr(b,&m,a[i]))aTag[i]=1;
for(i=0;i<n;i++)
{  if(aTag[i])DelArrAt(a,&n,i);
}
PrtArr('a',a,n);
PrtArr('b',b,m);
}



不好意思，C编的。。。转换一下应该不难吧

言深深

楼主可以自己整一下，需要将B的数据存放在数组里面，将A中每一个数与之比较，相同的话讲A+1赋值给A再做下一个

mofangbao

不接收这么懒惰的提问，自己做吧，先把自己做的贴出来，有问题再讨论

言深深

mofangbao 发表于 2011-11-3 14:09

                               
登录/注册后可看大图

不接收这么懒惰的提问，自己做吧，先把自己做的贴出来，有问题再讨论

哈哈，管理员好直接哦

mofangbao

言深深 发表于 2011-11-3 18:03

                               
登录/注册后可看大图

哈哈，管理员好直接哦

可能是因为我比较喜欢自己先思考吧

水月洞天

多谢了，一定改正

LNYZ

{:5_214:}{:5_214:}{:5_214:}