例題の解説のバックアップ(No.2)

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: 1976
today: 2
yesterday: 2
now: 1

1	PROCEDURE TEST;	プログラムの宣言をしています。
2	VAR
3	index:INTEGER;
4	red,green,blue:LONGINT;
5	radius:REAL;
6	BEGIN
7	radius:=100;
8	FOR index:=1 TO 10 DO;
9	BEGIN
10	ColorIndexToRGB(index,red,green,blue);
11	FillBack(red,green,blue);
12	Oval(-radius,radius,radius,-radius);
13	radius:=radius-10;
14	END;
15	DselectAll;
16	END;
17	Run(TEST);

例題の解説 のバックアップ(No.2)