Создать таблицу 5x5 красных кружков, в которой 3 случайных кружка - желтого цвета. Pascal GraphABC
Вот что пока получается:
Мой код:
[![введите сюда описание изображения][2]][2]uses GraphABC;
var i,j:integer;
begin
SetWindowSize(300,300);
SetBrushColor(clRed);
for i:=1 to 5 do
for j:=1 to 5 do
circle(i*50,j*50,20)
end.
Задание: Сделать 3 случайных кружка желтым цветом.
Ответы (1 шт):
Автор решения: SurfaceStack
→ Ссылка
Вроде работает:
uses GraphABC;
var
i, j: integer;
brush, b_coun: integer;
begin
SetWindowSize(300, 300);
for i := 1 to 5 do
for j := 1 to 5 do
begin
if(b_coun < 3) then begin
brush := random(2);
if(brush = 0) then SetBrushColor(clRed) else begin SetBrushColor(clGold); b_coun := b_coun + 1; end;
end else SetBrushColor(clRed);
circle(i * 50, j * 50, 20);
end;
end.