📄 test4.pas
字号:
PROGRAM Compx_Test;VAR x, y, j : INTEGER;PROCEDURE Procedure_Y (VAR a, b : INTEGER );VAR c : INTERGER;BEGIN c := a * b;END;PROCEDURE Procedure_X (VAR a, b : INTEGER );VAR c : INTERGER;BEGIN c := a + b; Procedure_Y ( a, b );END;BEGIN x := 10; y := 20; FOR j := 1 TO ( x + y + 2 ) DO FOR i := 1 to j DO BEGIN y := y + 1; x := x + y; Procedure_X ( x, y ); END;END.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -