2025-10-14 21:21:47 +03:00
|
|
|
|
// Графика. Точка. Случайный цвет. Скорость работы
|
|
|
|
|
|
uses GraphABC;
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
for var i:=1 to 100000 do
|
|
|
|
|
|
SetPixel(Random(Window.Width),Random(Window.Height),clRandom);
|
2025-10-14 21:21:47 +03:00
|
|
|
|
Println('Время работы:',Milliseconds/1000,'секунд');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
end.
|
