0

2 つの数値を要求し、その積を計算する手続き積を作成します。積が 20 以上の場合、プログラムは円の面積を計算するために半径を要求します。それ以外の場合、プログラムは長方形の面積を計算するために長さと幅を要求します。積がゼロの場合、プログラムは無効な入力を表示します。プログラムは、少なくとも 2 つの手順で実装する必要があります。

助けてください？私はこれを持っています

(define circle
  (lambda (radius)
    (* 3.14 (* radius radius)))

(define product
  (lambda (a b)
    (* a b))
4

1 に答える 1

1

を使用して「2 つの番号を尋ねる」ことができますread。

> (let ((a (read))) (format "You typed: ~a" a))
12
"You typed: 12"
>

偶然にも出力方法も示されていますが、ドキュメントformatを一読すると細かい点についてはまだ役立つかもしれません。戻り値が実際に の数値であるかどうかを確認することを忘れないでください。質問の残りの部分は一目瞭然です。number?

于 2013-08-14T14:35:56.920 に答える