ΔｘΔｙ のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• ΔｘΔｙ へ行く。
  • 1 (2011-12-09 (金) 16:22:56)

距離表示

Procedure GetDxy;
	VAR
		X1,Y1,X2,Y2,DX,DY,DL: REAL;
		DVal,DVal1,DVal2,DVal3: STRING;
	BEGIN
		GetLine(X1,Y1,X2, Y2);
		DX:=(X2-X1);
		DY:=(Y2-Y1);
		DL:=Distance(X1,Y1,X2,Y2);
		DVal1:=Num2Str(2,DX);
		DVal2:=Num2Str(2,DY);
		DVal3:=Num2Str(2,DL);
		DVal:=Concat('dＸ : ',DVal1,'　dＹ: ',DVal2,'　dL: ',DVal3);
		Message(DVal);
	END;
Run(GetDxy);