Массив с помощью 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.