基本型のバックアップ(No.1)

2018-07-17

2013-05-25

2011-12-09

2011-12-08

2011-12-07

2011-12-06

2011-12-04

2011-11-26

total: 1084
today: 2
yesterday: 0
now: 3

プログラム宣言部	PROCEDURE TEST;
ラベル宣言部	LABEL 1,2;
定数宣言部	CONST 　　KmessageSTR='Xは100以下です。'; 　　kUpperValue=100;
変数宣言部	VAR 　　x:INTEGER;
サブルーチン部	FUNCTION Evaluate(value:INTEGER):BOOLEAN; BEGIN 　　IF value<=kUpperValue THEN 　　　　Evalueate:=TRUE 　　ELSE&be;　　　　Evalueate:=FLSE; END;
メインプログラム部	BEGIN 　　x=IntDialog('Input Number','0'); 　　IF NOT Evaluate(x) THEN GOTO 2; 　　AlrtDialog(kMessageStr); 　　GOYO 1; 2: SysBeep; 1:END
実行命令部	Run (TEST);

この中で必ず書かなければならない部分を「必須パートと呼びます」
必須パートは　上の赤い文字の部分。

基本型 のバックアップ(No.1)