Массив с помощью Combobox( поменять местами максимальный и минимальльный элементы)

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$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.

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

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;

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

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

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);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

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.

Массив с помощью Combobox( поменять местами максимальный и минимальльный элементы)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; i, max, min, maxi,mini:integer;

a:array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

comboBox1.Clear;

combobox2.Clear;

combobox1.TabOrder:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

combobox1.items.add(combobox1.Text);

i:=i+1;

a[i]:=strtoint(combobox1.Text);

combobox1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

var k:integer;

begin

max:=a[1]; maxi:=1; min:=a[1]; mini:=1;

for k:=2 to 10 do

begin

if max<a[k] then

begin

max:=a[k];

maxi:=i;

end;

if min>a[k] then

begin

min:=a[k];

mini:=i;

end;

end;

a[maxi]:=min;

a[mini]:=max;

for k:=1 to 10 do

combobox2.Items.Add(inttostr(a[k]));

combobox2.DroppedDown:=true;

end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=13 then button1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

5. Массив- найти сумму элементов на главной матрице

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; i, max, min, maxi,mini:integer;

a:array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

comboBox1.Clear;

combobox2.Clear;

combobox1.TabOrder:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

combobox1.items.add(combobox1.Text);

i:=i+1;

a[i]:=strtoint(combobox1.Text);

combobox1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

var s,k:integer;

begin

for k:=1 to 10 do

combobox2.Items.Add(inttostr(a[k]));

combobox2.DroppedDown:=true;

end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=13 then button1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

6.

7. найти сумму элементов ниже главной матрицы

8. решить квадратное уравнение

unit ekz;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,x,y,d:real;

begin

a:=Strtofloat( Edit1.Text);

b:=Strtofloat( Edit2.Text);

c:=Strtofloat( Edit3.Text);

D:= sqr(b)-4*a*c;

if (D>0) then

begin

x:= (-b+sqrt(D))/(2*a);

y:= (-b-sqrt(D))/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y))

end

else if( D<0) then

Memo1.Lines.Add('нету решений')

else

x:= (-b)/(2*a);

y:= (-b)/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y));

end;

end.

Наши рекомендации