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