用VB编写一个通用(或子程序)过程area,以实型变量r作为形参，计算并在过程中输出圆的面积。

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

#define PI 3.14

float area(int data)

int main(void)

{

    int i

    float num

    scanf("%d",&i)

    num=area(i)

    printf("面积%f："，num)

}

float area(int data)

{

    int test

    float h

    tset=data

    h=PI*pow(test,2)

    return h

}

#include <stdio.h>

#define PI 3.14

double area(double r){

return PI*r*r

}

int main()

{

double r,s

scanf("%lf",&r)

s = area(r)

printf("%.2lf",s)

return 0

}

---