用abap 画一个正方形吧

以下是使用 ABAP 语言绘制一个正方形的示例代码：

REPORT demo_square.

DATA: lv_size TYPE i VALUE 5.

DO lv_size TIMES.
  WRITE: / lv_size * 2 'X'.
ENDDO.

DO lv_size - 2 TIMES.
  WRITE: 'X', (lv_size * 2 - 2) / 2 ' ', 'X'.
  WRITE: /.
ENDDO.

DO lv_size TIMES.
  WRITE: / lv_size * 2 'X'.
ENDDO.

在这个示例代码中，我们使用了 `DO` 循环来绘制正方形的每一行。我们首先定义了正方形的大小 `lv_size`，然后使用第一个 `DO` 循环来绘制正方形的第一行和最后一行，也就是正方形的上下边框。我们使用 `WRITE` 语句来输出字符 `X`，并且每个字符的数量为 `lv_size * 2`，这样可以保证正方形的宽度和高度一致。

接下来，我们使用第二个 `DO` 循环来绘制正方形的中间部分。我们首先输出一个字符 `X`，然后输出一些空格，空格的数量为 `(lv_size * 2 - 2) / 2`，这样可以保证正方形的左右两边留出一个字符的空隙。然后我们再输出一个字符 `X`，并且使用 `/` 来换行。

最终，我们得到了一个边长为 5 的正方形，如下所示：

XXXXX
X   X
X   X
X   X
XXXXX

相关问题

用abap写一个报表

ABAP 是 SAP 的编程语言。要用 ABAP 写一个报表，需要先在 SAP 系统中打开 ABAP 编辑器。在 ABAP 编辑器中，可以使用 REPORT 指令来创建报表程序。REPORT 指令后面跟着报表的名称。

例如：

REPORT z_my_report.

接下来，你可以在程序中使用 ABAP 语言来编写报表的逻辑。例如，你可以使用 SELECT 指令来从数据库中检索数据，然后使用 LOOP 和 ENDLOOP 指令来遍历检索出的数据，并使用 WRITE 指令将数据写入报表中。

最后，使用 SUBMIT 指令来运行报表程序，并使用 AT SELECTION-SCREEN 指令来定义选择屏幕，以便用户可以输入报表的输入参数。

例如：

SUBMIT z_my_report VIA SELECTION-SCREEN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date.
  PERFORM f_get_date.

这是一个简单的例子，但是报表程序可以非常复杂，具体取决于你想要实现什么功能。希望这对你有帮助。

用ABAP写一个排序函数

### 回答1：

ABAP 是 SAP 的编程语言，用它来写排序函数可以在 SAP 中快速完成排序操作。一般来说，我们可以使用 SELECT 命令来实现排序，语法如下：SELECT 字段1, 字段2, ... FROM 表名 ORDER BY 字段1 [ASC | DESC][, 字段2 [ASC | DESC], ...]。

### 回答2：
ABAP是一种专门用于SAP系统编程的语言，它支持各种数据操作和处理，包括排序。下面是使用ABAP编写一个排序函数的示例：

首先，在ABAP中声明一个内部表（Internal Table），用于存储要排序的数据。可以像下面这样定义一个内部表：

DATA: it_data TYPE TABLE OF ty_data.

然后，将要排序的数据存储到内部表中。可以使用INSERT语句或者直接赋值的方式将数据添加到内部表中。

接下来，使用SORT语句对内部表进行排序。SORT语句可以指定排序的字段和排序的顺序，可以根据需要进行升序或降序排列。

SORT it_data BY field_name [ASCENDING|DESCENDING].

其中，field_name是要排序的字段名，ASCENDING表示升序排序，DESCENDING表示降序排序。

最后，可以使用LOOP语句遍历已排序的数据，并进行相应的处理。

LOOP AT it_data INTO wa_data.
" 进行数据处理
ENDLOOP.

这是一个简单的用ABAP编写的排序函数示例。可以根据实际需求对内部表的类型和排序方式进行调整。在实际开发中，可能还需要考虑异常情况的处理、性能优化等问题。

### 回答3：
ABAP是SAP系统自带的编程语言，可以用于定制SAP系统。下面是用ABAP编写一个排序函数的示例：

首先，我们需要定义一个排序函数的输入参数和返回参数。输入参数可以是一个内表（内存中的表格），返回参数是一个排序后的内表。

FUNCTION z_sort_table.
  IMPORTING
    VALUE(it_input) TYPE STANDARD TABLE,
  EXPORTING
    VALUE(et_output) TYPE STANDARD TABLE.

在函数内部，我们可以使用ABAP提供的SORT语句来排序内表。SORT语句可以指定内表和排序字段。

  DATA: lt_output TYPE STANDARD TABLE OF ty_input.

  SORT it_input BY field1 field2 field3 ASCENDING.
  
  et_output = it_input.
  
  RETURN.
ENDFUNCTION.

在这个示例中，我们假设输入参数it_input是一个内表，其数据结构为ty_input，并且有三个字段field1、field2和field3。我们使用SORT语句对it_input按照这三个字段进行升序排序，并将排序后的结果赋值给输出参数et_output。

在调用这个排序函数时，可以传入一个内表作为输入参数，并获取排序后的结果。

DATA: lt_input TYPE STANDARD TABLE OF ty_input,
      lt_output TYPE STANDARD TABLE OF ty_input.

APPEND VALUE #( field1 = 'A' field2 = 'C' field3 = 'B' ) TO lt_input.
APPEND VALUE #( field1 = 'C' field2 = 'A' field3 = 'B' ) TO lt_input.
APPEND VALUE #( field1 = 'B' field2 = 'B' field3 = 'C' ) TO lt_input.

CALL FUNCTION 'z_sort_table'
  EXPORTING
    it_input = lt_input
  IMPORTING
    et_output = lt_output.

在这个示例中，我们将三个记录加入输入参数lt_input中，并调用z_sort_table函数对lt_input进行排序。排序后的结果将存储在输出参数lt_output中。

以上就是用ABAP编写一个排序函数的示例，可以根据实际需求对代码进行调整和扩展。