20. Сумма элементов ниже главной диагонали

procedure TForm1.Button1Click(Sender: TObject);

var s,i,j:integer;

begin

s:=0;

for i:=0 to 3 do

begin

for j:=0 to 3 do

if (i>j) then

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

Memo1.Lines.Add( inttostr(s));

end;

end.

На главной диагонали сумма

procedure TForm1.Button1Click(Sender: TObject);

var s,i,j:integer;

begin

s:=0;

for i:=0 to 3 do

begin

for j:=0 to 3 do

if (i=j) then

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

Memo1.Lines.Add( inttostr(s));

end;

end.

21. Сумму элементов Выше побочной

procedure TForm1.Button1Click(Sender: TObject);

var s,i,j:integer;

begin

s:=0;

for i:=0 to 3 do

begin

for j:=0 to 3 do

if ((i+j)<3) then

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

Memo1.Lines.Add( inttostr(s));

end;

22. Сумму элементов Ниже побочной

procedure TForm1.Button1Click(Sender: TObject);

var s,i,j:integer;

begin

s:=0;

for i:=0 to 3 do

begin

for j:=0 to 3 do

if ((i+j)>3) then

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

Memo1.Lines.Add( inttostr(s));

end;

23.Поменять атрибуты файла

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

mplementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var fileattr:integer;

begin

fileattr:=filegetattr('C:\Documents and Settings\bista\Рабочий стол\ержан19,04,09.doc');

if fileattr and fareadonly=0 then

filesetattr('C:\Documents and Settings\bista\Рабочий стол\ержан19,04,09.doc',fileattr+fareadonly);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

filesetreadonly('C:\Documents and Settings\bista\Рабочий стол\ержан19,04,09.doc',

false);

end;

end.

24.Нарисовать треугольник, закрашенный зеленым цветом

procedure TForm1.Button2Click(Sender: TObject);

var a:array [0..2]of TPoint;

begin

a[0].X:=random(10)+100;

a[0].Y:=random(10)+100;

a[1].X:=random(30)+150;

a[1].Y:=random(30)+100;

a[2].X:=random(25)+200;

a[2].Y:=(25)+200;

form1.Canvas.Brush.Color:=clgreen;

form1.Canvas.Polygon(a);

end;

3.Нарисовать многоугольник

procedure TForm1.Button6Click(Sender: TObject);

var pt4:array [1..4] of Tpoint;

begin

pt4[1]:=point(10,10);

pt4[2]:=point(200,260);

pt4[3]:=point(360,200);

pt4[4]:=point(280,130);

form1.Canvas.Brush.Color:=clblue;

form1.Canvas.Polygon(pt4);

end;

end.

25.Цвета и их коды( 2 лаба)

  TForm1 = class(TForm)

    ListBox1: TListBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    BitBtn1: TBitBtn;

    Button1: TButton;

    procedure BitBtn1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 case   listBox1.ItemIndex of

0: Label3.Caption:= 'черный  ОООООО';

1: Label3.Caption:=' белый  FFFFFF' ;

2: Label3.Caption:=' красный  FFOOOO' ;

3: Label3.Caption:=' зеленый  OOFFOO' ;

4: Label3.Caption:= 'бирюзовый OOFFFF';

5: Label3.Caption:=' синий OOOOFF';

6: Label3.Caption:=' фиолетовый  FFOOFF';

7: Label3.Caption:= ' желтый  FFFFOO';

8: Label3.Caption:= 'коричневый  996633';

9 : Label3.Caption:= ' оранжевый  FF8000';

10: Label3.Caption:= ' липовый  8000FF';

11: Label3.Caption:=' серый  АОАОАО';

end;

end;

end.