计算程序

c name dfc3.for，无界承压含水层非稳定流抽水试验雅各布公式求T、S值

c 计算公式：s＝Q/（4πT）Ln（2.25Tt/（Srr）

dimension t0（500），s1（500），t1（500）

open（1，file＝’nqr432.txt’）

read（1，*）n，q，r

close（1）

open（1，file＝’st432.txt’）

read（1，*）（t0（i），s1（i），i＝1，n）

close（1）

y＝0

x＝0

a1＝0

b1＝0

do 10 i＝1，n

t1（i）＝alog（t0（i））

y＝y+s1（i）/n

x＝x+t1（i）/n

10 continue

do 20 i＝1，n

a1＝a1+（t1（i）-x）*（s1（i）-y）

b1＝b1+（t1（i）-x）**2

20 continue

b＝a1/b1

a＝y-b*x

t＝q/b/4/3.1415926

s＝（2.25*t*exp（-4*3.1415926*t*a/q））/r/r

40 write（*，*）’t＝’，t，’（m2/d）s＝’，s

open（1，file＝’ts432.txt’）

write（1，*）’Q（m3/d）r（m）T（m2/d）S’

write（1，60）q，r，t，s

close（1）

60 format（2f10.2，f10.2，f10.5）

open（1，file＝’st0432.txt’）

do 80 i＝1，n，3

write（1，90）t0（i），s1（i），t0（i+1），s1（i+1），t0（i+2），s1（i+2）

80 continue

close（1）

90 format（3（f10.4，f7.3，9x））

stop

end

#include <stdio.h>

void main()

{

    int a,b

 char sign

 printf("请输入你要的运算类型：")

 scanf("%c",&sign)        //定义为char型就是%c不是整型输入了

 printf("请输入两个数字，用空格隔开\n")

 scanf("%d,%d",&a,&b)

 if (sign=='+')

  printf("%d+%d=%d\n",a,b,(a+b))       

else if(sign=='-')

  printf("%d-%d=%d\n",a,b,(a-b))

 else if(sign=='*')

  printf("%d*%d=%d\n",a,b,(a*b))

 else if(sign=='/')

  printf("%d/%d=%d\n",a,b,(a/b))

｝

void add(int *sum,int x,int y,int z)

{

*sum=x+y+z

}

或者

void add(int &sum,int x,int y,int z)

{

sum=x+y+z

}

int add(int x,int y,int z)

{

return x+y+z

}

main()

{

int sum1=0,sum2=0,x=1,y=2,z=3

add(&sum1,x,y,z)//或者add(sum1,x,y,z)

sum2=add(x,y,z)

printf("sum1=%d+%d+%d=%d",x,y,z,sum1)

printf("sum2=%d+%d+%d=%d",x,y,z,sum2)

}

---