Ош - История изменений

Mikst в 16:54, 13 декабря 2010

2010-12-13T16:54:29Z

← Предыдущая версия		Версия от 19:54, 13 декабря 2010
Строка 28:		Строка 28:
	with a[i, j] do		with a[i, j] do
	begin		begin
	~~a[i, j].~~x := i * 20;		x := i * 20;
	~~a[i, j].~~y := j * 20;		y := j * 20;
	~~a[i, j].~~r := random(10) + 1;		r := random(10) + 1;
	~~a[i, j].~~col := clGray;		col := clGray;
	//Draw;		//Draw;
	end;		end;

Mikst в 16:53, 13 декабря 2010

2010-12-13T16:53:51Z

← Предыдущая версия		Версия от 19:53, 13 декабря 2010
Строка 1:		Строка 1:
	uses		<source lang="Delphi">uses
	GraphABC, ABCObjects;		GraphABC, ABCObjects;

Строка 64:		Строка 64:
	S.Draw;		S.Draw;
	end.		end.
			</source>

Mikst: Новая: uses GraphABC, ABCObjects; type Mypoint = record x, y, r: integer; col: color; procedure Draw; end; procedure MyPoint.Draw; begin Brush.Color := col; Pen.Color :=...

2010-12-12T07:31:54Z

Новая: uses GraphABC, ABCObjects; type Mypoint = record x, y, r: integer; col: color; procedure Draw; end; procedure MyPoint.Draw; begin Brush.Color := col; Pen.Color :=...

Новая страница

uses
GraphABC, ABCObjects;

type
Mypoint = record
x, y, r: integer;
col: color;
procedure Draw;
end;

procedure MyPoint.Draw;
begin
Brush.Color := col;
Pen.Color := col;
Circle(x, y, r);
end;

const
n = 10;

var
A: array[1..n, 1..n] of MyPoint;

begin
for var i := 1 to n do
for var j := 1 to n do
with a[i, j] do
begin
a[i, j].x := i * 20;
a[i, j].y := j * 20;
a[i, j].r := random(10) + 1;
a[i, j].col := clGray;
//Draw;
end;

for var i := 1 to n do
for var j := 1 to n do
begin
with a[i, j] do
begin

Draw;
end;
end;

// Нарисовали шарики
var s: mypoint;
s.x := A[1, 1].x;
s.y := A[1, 1].y;
s.r := A[1, 1].r;
s.col := A[1, 1].col;
for var i := 1 to n do
for var j := 1 to n do
if A[i, j].R > S.R then
begin
S.x := A[i, j].x;
s.y := A[i, j].y;
s.r := A[i, j].r;
s.col := A[i, j].col;
end;
writeln(S.x,' ',s.y, ' ',s.r);
S.col := Clred;
S.Draw;
end.