学习笔记（二十三）

最新推荐文章于 2024-03-05 09:54:30 发布

qiume

最新推荐文章于 2024-03-05 09:54:30 发布

阅读量1.8k

点赞数

分类专栏：架构设计文章标签： constants returning methods object class

架构设计专栏收录该内容

61 篇文章 0 订阅

订阅专栏

CLASS circle DEFINITION.
  PUBLIC SECTION.
    METHODS: get_area IMPORTING value(radius) TYPE f RETURNING value(area) TYPE f.
  PRIVATE SECTION.
    CONSTANTS pi TYPE f VALUE '3.14159265'.
ENDCLASS.

CLASS circle IMPLEMENTATION.
  METHOD get_area.
    area = radius ** 2 * pi.
  ENDMETHOD.
ENDCLASS.

DATA: obj_circle TYPE REF TO circle,
      r_area TYPE f.

START-OF-SELECTION.
  CREATE OBJECT obj_circle.
  CALL METHOD obj_circle->get_area
    EXPORTING
      radius = '1.2'
    RECEIVING
      area   = r_area.

  WRITE / r_area.
  r_area = obj_circle->get_area( '1.6' ).
  WRITE / r_area.