0 
Uses Graph;
Const Triangle : Array [1..3] Of PointType =
((X: 50; Y: 100),
(X: 100; Y: 100),
(X: 150; Y: 50));
Var Gd, Gm : smallint;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, ''); 
If GraphResult <> grOk Then Halt(1);
SetFillStyle(7,0);
SetColor(14);
FillPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);
ReadLn;
CloseGraph;
End.

ユーザーが三角形を動かせるように三角形の値を入力できるようにしたいのですが、これは定数であるため、これを変数に変換する方法がなければ不可能です。

4

1 に答える 1

1

フリーパスカルの場合:

「const」を「var」に置き換えるだけです。グローバル変数は、このような複雑な変数であっても初期化できます。この方法で、変数は、変更するまで、プログラムの最初にこの値を取ります。

ターボパスカルの場合:

定数配列は実際には定数ではなく、必要に応じて変更できます。たとえば、次のことができます。

Triangle[1].X := 500;

プログラムの開始時に、問題なく動作します。詳細については、この関連する質問を参照してください。

于 2012-12-11T21:50:30.607 に答える