SetBrushHatch, принимает параметр - стиль штриховки. Подробности - в справке по ABCGraph, подраздел "Подпрограммы для работы с кистью". Это установка вида штриховки. А сама штриховка получится при обычной заливке. Или заливке ранее нарисованного контура, или при рисовании фигуры с заливкой. Этих команд много.
<span> 75 символов в строке, 34 строк и 7 станицы = 17850 если я что-то не догоняю не сердитесь</span>
Плохо видно ,...............
Пользователь (то есть ты) или система!
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
<em>// Внимание! В более ранних версиях программа работать не будет!</em>
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
<u>Пример</u>
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40