Question

好的，所以我们刚开始在课堂上学习计划，我们的第一个任务就是给出了。现在我是计划的新手，所以我仍然不确定我所做的是否正确，但到目前为止，我的代码中有一个问题是我的问题。

问题3：

3.1定义全局名称PI并将值3.14159265与其关联。 [3]

3.2定义一个全局Scheme程序（areac d），它具有与C程序中定义的功能相同的功能。 [3]

3.3定义全局Scheme程序（volumec d h）[3]

3.4定义全局Scheme程序（TotalVolume）;没有参数[3]

3.5定义全局Scheme程序（main）;没有参数

这是为我们提供的示例C代码

#include <stdio.h>
const double PI = 3.14159265;
double areac(double d) {
    double a;
    a =PI*(d/2)*(d/2);
    return a;
}
double volumec(double d, double h) {
    double a, v;
    a = areac(d);   // call areac() here
    v = a*h/3;
    return v;
}
double TotalVolume() {
    double v1, v2, v3, v4, v5;
    v1 = volumec(1, 1);
    v2 = volumec(2, 2);
    v3 = volumec(3, 3);
    v4 = volumec(4, 4);
    v5 = volumec(5, 5);
    return v1+v2+v3+v4+v5;
}
void main() {
    TotalVolume();

这就是我对计划的要求：

(define PI 3.14159265)
(define (areac d)
  (let* 
      (
       (a (* (* PI (/ d 2)) (/ d 2)))
       )
    (display a)))
 (define (volumec d h)
   (let
       (
       (a (areac(d))))
    (let ((v (/ (* a h) 3)))
     (display v) ))
     )
 (define (TotalVolume)
   (let*
       (
        (v1 (volumec(1 1)))
        (v2 (volumec(2 2)))
        (v3 (volumec(3 3)))
        (v4 (volumec(4 4)))
        (v5 (volumec(5 5)))
        )
   (display (+ (+ (+ (+ v1 v2) v3) v4) v5))))
 (define main
   (TotalVolume))

然而，当我运行程序时出现错误：

申请：不是程序;

期望一个可以应用于参数的过程

给出：1

...参数：

我在TotalVolume过程中出错，它从（volumec（1 1））指向（let *

如果有人能帮我解决我的错误，那将不胜感激

谢谢！

Answer 1

几个问题：

您的程序不返回值，它们只显示它们计算的值。
您没有将main定义为过程，因为您没有在名称周围添加括号或使用lambda表达式定义括号。
程序的参数不会放在额外的括号中。语法为(proc arg1 arg2)，而不是(proc (arg1 arg2))。在调用/和*等内置程序时，您做到了这一点，但在调用自己的程序时却做错了。

(define PI 3.14159265)
(define (areac d)
  (* (* PI (/ d 2)) (/ d 2))))
(define (volumec d h)
  (let ((a (areac d)))
    (/ (* a h) 3)))
(define (TotalVolume)
  (let ((v1 (volumec 1 1))
        (v2 (volumec 2 2))
        (v3 (volumec 3 3))
        (v4 (volumec 4 4))
        (v5 (volumec 5 5)))
    (+ v1 v2 v3 v4 v5)))
 (define (main)
   (TotalVolume))

方案程序错误

1 个答案: