Сколько будет 2х2?
-1.1
-2.2
+3.4
-4.89
Сколько будет 3х3?
-1.0
-2.4
+3.9
-4.26
Сколько будет 5х5?
-1.3
-2.66
+3.25
-4.126
Сколько будет 6х6?
-1.3
-2.66
+3.36
-4.126
Сколько будет 7х7?
-1.3
-2.66
+3.49
-4.126
Сколько будет 8х8?
-1.1
-2.2
+3.64
-4.89
Сколько будет 9х9?
-1.0
-2.4
+3.81
-4.26
Сколько будет 10x10?
-1.3
-2.66
+3.100
-4.126
Сколько будет 11х11?
-1.3
-2.66
+3.121
-4.126
Сколько будет 12х12?
-1.3
-2.66
+3.144
-4.126
Сколько будет 14х14?
-1.1
-2.2
+3.196
-4.89
Сколько будет 15х15?
-1.0
-2.4
+3.225
-4.26
Сколько будет 16x16?
-1.3
-2.66
+3.256
-4.126
Сколько будет 17х17?
-1.3
-2.66
+3.279
-4.126
Сколько будет 18х18?
-1.3
-2.66
+3.324
-4.126
Сколько будет 19х19?
-1.3
-2.66
+3.381
-4.126
Сколько будет 20х20?
-1.3
-2.66
+3.400
-4.126
Сколько будет 21х21?
-1.3
-2.66
+3.441
-4.126

unit c4astliv4ik;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;

type
TfrmMain = class(TForm)
Label1: TLabel;
lbOtv2: TPanel;
lbOtv3: TPanel;
lbOtv4: TPanel;
new: TButton;
LbVopr: TLabel;
lbOtv1: TPanel;
L15: TLabel;
L14: TLabel;
L13: TLabel;
L12: TLabel;
L11: TLabel;
L10: TLabel;
L9: TLabel;
L8: TLabel;
L7: TLabel;
L6: TLabel;
L5: TLabel;
L4: TLabel;
L3: TLabel;
l2: TLabel;
L1: TLabel;
menu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure newClick(Sender: TObject);
procedure lbOtv1Click(Sender: TObject);
procedure lbOtv2Click(Sender: TObject);
procedure lbOtv3Click(Sender: TObject);
procedure lbOtv4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;
vopr:TstringList;
nvopr,notv:integer;
s:string;
mas_vopr:array[1..15] of integer;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
i,x,a,gr:integer;
pr:boolean;

begin
Vopr:=TStringList.Create;
Vopr.LoadFromFile(''vopros.txt'');
a:=1;
gr:=1;
nvopr:=1;
repeat
x:=random(10)+1+(gr-1)*10;
pr:=false;
for i:=1 to a-1 do
if mas_vopr[i]=x then pr:=true;
if not pr
then
begin
mas_vopr[a]:=x;
a:=a+1;
if a mod 5=0 then gr:=gr+1;
end;
until a=16;



end;

procedure TfrmMain.newClick(Sender: TObject);
var h:integer;
begin
h:=h+1;
lbOtv1.Color:=clBtnFace;
lbOtv2.Color:=clBtnFace;
lbOtv3.Color:=clBtnFace;
lbOtv4.Color:=clBtnFace;
lbVopr.Caption:=Vopr.Strings[(mas_vopr[nvopr]-1)*5];
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+1];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+1][1]=''+'' then notv :=1;
delete(s,1,1);
lbOtv1.Caption:=s;
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+2];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+2][1]=''+'' then notv :=2;
delete(s,1,1);
lbOtv2.Caption:=s;
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+3];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+3][1]=''+'' then notv :=3;
delete(s,1,1);
lbOtv3.Caption:=s;
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+4];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+4][1]=''+'' then notv :=4;
delete(s,1,1);
lbOtv4.Caption:=s;
if nvopr=2 then
begin
h:=100;
l1.Color:=clred;
end;
if nvopr=3 then
begin
h:=200;
l2.Color:=clred;
end;
if nvopr=4 then
begin
h:=300;
l3.Color:=clred;
end;







end;

procedure TfrmMain.lbOtv1Click(Sender: TObject);
begin
if notv<>1 then
begin
lbOtv1.Color:=clgray;
Sleep(1000);
lbOtv1.Color:=clred;
ShowMessage(''вы проиграли'');
end
else
begin
lbOtv1.Color:=clgray;
sleep(1000);
lbOtv1.Color:=clGreen;
nvopr:=nvopr+1;
newClick(sender);
end;
end;
procedure TfrmMain.lbOtv2Click(Sender: TObject);
begin
if notv<>2 then
begin
lbOtv2.Color:=clgray;
Sleep(1000);
lbOtv2.Color:=clred;
ShowMessage(''вы проиграли'');
end
else

begin
lbOtv2.Color:=clgray;
sleep(1000);
lbOtv2.Color:=clGreen;
nvopr:=nvopr+1;
newClick(sender);
end;
end;

procedure TfrmMain.lbOtv3Click(Sender: TObject);
begin
if notv<>3 then
begin
lbOtv3.Color:=clgray;
Sleep(1000);
lbOtv3.Color:=clred;
ShowMessage(''вы проиграли'');
end
else

begin
lbOtv3.Color:=clGreen;
sleep(1000);
nvopr:=nvopr+1;
ShowMessage(''вы правы!+h'');

newClick(sender);
end;
end;

procedure TfrmMain.lbOtv4Click(Sender: TObject);
begin
if notv<>4 then
begin
lbOtv4.Color:=clgray;
Sleep(1000);
lbOtv4.Color:=clred;
ShowMessage(''вы проиграли'');
end
else

begin
lbOtv4.Color:=clgray;
sleep(1000);
lbOtv4.Color:=clGreen;
nvopr:=nvopr+1;
newClick(sender);
end;
end;

end.

unit c4astliv4ik;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TfrmMain = class(TForm)
Label1: TLabel;
lbOtv2: TPanel;
lbOtv3: TPanel;
lbOtv4: TPanel;
new: TButton;
LbVopr: TLabel;
lbOtv1: TPanel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;
vopr:TstringList;
nvopr,notv:integer;
s:string;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
i,x,a,gr:integer;
pr:boolean;
mas_vopr:array[1..15] of integer;
begin
Vopr:=TStringList.Create;
Vopr.LoadFromFile(''vopros.txt'');
a:=1;
gr:=1;
repeat
x:=random(10)+1+(gr-1)*10;
pr:=false;
for i:=1 to a-1 do
if mas_vopr[i]=x then pr:=true;
if not pr
then
begin
mas_vopr[a]:=x;
a:=a+1;
if a mod 5=0 then gr:=gr+1;
end;
until a=16;

lbVopr.Caption:=Vopr.Strings[(mas_vopr[nvopr]-1)*5];
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+1];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+1][1]=''+'' then notv :=1;
delete(s,1,1);
lbOtv1.Caption:=s;
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+2];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+2][1]=''+'' then notv :=2;
delete(s,1,1);
lbOtv2.Caption:=s;
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+3];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+3][1]=''+'' then notv :=3;
delete(s,1,1);
lbOtv3.Caption:=s;
s:=Vopr.Strings[(mas_vopr[nvopr]-1)*5+4];
if vopr.Strings[(mas_vopr[nvopr]-1)*5+4][1]=''+'' then notv :=4;
delete(s,1,1);
lbOtv4.Caption:=s;



end;

end.

unit cveta;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TFrmMain = class(TForm)
sttRUser: TStaticText;
sttGUser: TStaticText;
sttBUser: TStaticText;
lbColorUser: TLabel;
lbColorPC: TLabel;
btnNew: TBitBtn;
sttColorUser: TStaticText;
sttColorPC: TStaticText;
gbStat: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
StaticText4: TStaticText;
sttSredOtkl: TStaticText;
sttOpyt: TStaticText;
sttTekOtkl: TStaticText;
chbHEX: TCheckBox;
rgMaster: TRadioGroup;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
sbR: TScrollBar;
sbG: TScrollBar;
sbB: TScrollBar;
sbM: TScrollBar;
sttRPC: TStaticText;
sttGPC: TStaticText;
sttBPC: TStaticText;
btnAnaliz: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure sbRScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure sbGScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure sbBScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure btnNewClick(Sender: TObject);
procedure btnAnalizClick(Sender: TObject);
procedure sbMScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure chbHEXClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmMain: TFrmMain;
Nopyt:integer;
TekOtkl,SumOtkl,SredOtkl:extended;
RU,GU,BU:Byte;
RP,GP,BP:Byte;
implementation

{$R *.dfm}


procedure TFrmMain.FormCreate(Sender: TObject);
begin
Randomize;
NOpyt:=0;
SumOtkl:=0 ;
RU:=0;
GU:=0;
BU:=0;
sttColorUser.Color:=RGB(RU,GU,BU);

end;

procedure TFrmMain.sbRScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
RU:=abs(sbr.Position-255);
sttRUser.Caption:=IntToStr(RU);
sttColorUser.Color:=RGB(RU,GU,BU);
if chbHEX.Checked=true then
sttRUser.Caption:=IntToHex(RU,2)
else sttRUser.Caption:=IntToStr(RU);
if chbHEX.Checked=true then
sttRPC.Caption:=IntToHex(RP,2)
else sttRPC.Caption:=IntToStr(RP);

end;

procedure TFrmMain.sbGScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
GU:=abs(sbG.Position-255);
sttGUser.Caption:=IntToStr(GU);
sttColorUser.Color:=RGB(RU,GU,BU);
if chbHEX.Checked=true then
sttGUser.Caption:=IntToHex(GU,2)
else sttGUser.Caption:=IntToStr(GU);
if chbHEX.Checked=true then
sttGPC.Caption:=IntToHex(GP,2)
else sttGPC.Caption:=IntToStr(GP);
end;

procedure TFrmMain.sbBScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
BU:=abs(sbB.Position-255);
sttBUser.Caption:=IntToStr(BU);
sttColorUser.Color:=RGB(RU,GU,BU);
if chbHEX.Checked=true then
sttBUser.Caption:=IntToHex(BU,2)
else sttBUser.Caption:=IntToStr(BU);
if chbHEX.Checked=true then
sttBPC.Caption:=IntToHex(BP,2)
else sttBPC.Caption:=IntToStr(BP);
end;

procedure TFrmMain.btnNewClick(Sender: TObject);
begin
RP:=Random(255);
GP:=Random(255);
BP:=Random(255);
sttColorPC.Color:=RGB(RP,GP,BP);
sttRPC.Caption:=IntToStr(RP);
sttGPC.Caption:=IntToStr(GP);
sttBPC.Caption:=IntToStr(BP);
btnAnaliz.Show;
end;

procedure TFrmMain.btnAnalizClick(Sender: TObject);
begin
btnAnaliz.Hide;

NOpyt:=NOpyt+1;
TekOtkl:=sqrt(sqr(RU-RP)+sqr(GU-GP)+sqr(BU-BP));
SumOtkl:=SumOtkl+TekOtkl;
SredOtkl:=SumOtkl/NOpyt;
sttOpyt.Caption:=inttostr(NOpyt);
sttSredOtkl.Caption:=floattostrF(SredOtkl,FFFixed, 5, 2);
sttTekOtkl.Caption:=floattostrF(TekOtkl,FFFixed, 5, 2);
end;


procedure TFrmMain.sbMScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
sbR.Position:=ScrollPos;
sbG.Position:=ScrollPos;
sbB.Position:=ScrollPos;
sbRScroll(Sender,scPosition,ScrollPos);
sbGScroll(Sender,scPosition,ScrollPos);
sbBScroll(Sender,scPosition,ScrollPos);
end;

procedure TFrmMain.chbHEXClick(Sender: TObject);
begin
if chbHEX.Checked=true then
sttRUser.Caption:=IntToHex(RU,2)
else sttRUser.Caption:=IntToStr(RU);
if chbHEX.Checked=true then
sttBUser.Caption:=IntToHex(BU,2)
else sttBUser.Caption:=IntToStr(BU);
if chbHEX.Checked=true then
sttBPC.Caption:=IntToHex(BP,2)
else sttBPC.Caption:=IntToStr(BP);
if chbHEX.Checked=true then
sttGUser.Caption:=IntToHex(GU,2)
else sttGUser.Caption:=IntToStr(GU);
if chbHEX.Checked=true then
sttGPC.Caption:=IntToHex(GP,2)
else sttGPC.Caption:=IntToStr(GP);
if chbHEX.Checked=true then
sttRPC.Caption:=IntToHex(RP,2)
else sttRPC.Caption:=IntToStr(RP);
end;

end.

sbR.Position:=ScrollPos;
sbG.Position:=ScrollPos;
sbB.Position:=ScrollPos;
sbRScroll(Sender,scPosition,ScrollPos);
sbGScroll(Sender,scPosition,ScrollPos);
sbBScroll(Sender,scPosition,ScrollPos);

Акустический олень.

btnAnaliz.Hide;
NOpyt:=NOpyt+1;
TekOtkl:=sqrt(sqr(RU-RP)+sqr(GU-GP)+sqr(BU-BP));
SumOtkl:=SumOtkl+TekOtkl;
SredOtkl:=SumOtkl/NOpyt;
sttOpyt.Caption:=inttostr(NOpyt);
sttSredOtkl.Caption:=floattostrF(SredOtkl,FFFixed, 5, 2);
sttTekOtkl.Caption:=floattostrF(TekOtkl,FFFixed, 5, 2);
end;

unit cveta;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
sttRUser: TStaticText;
sttGUser: TStaticText;
sttBUser: TStaticText;
lbColorUser: TLabel;
lbColorPC: TLabel;
btnNew: TBitBtn;
sttColorUser: TStaticText;
sttColorPC: TStaticText;
btnAnaliz: TBitBtn;
gbStat: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
StaticText4: TStaticText;
sttSredOtkl: TStaticText;
sttOpyt: TStaticText;
sttTekOtkl: TStaticText;
chbHEX: TCheckBox;
rgMaster: TRadioGroup;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
sbR: TScrollBar;
sbG: TScrollBar;
sbB: TScrollBar;
sbM: TScrollBar;
procedure FormCreate(Sender: TObject);
procedure sbRScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure sbGScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure sbBScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Nopyt:integer;
TekOtkl,SumOtkl,SredOtkl:extended;
RU,GU,BU:Byte;
RP,GP,BP:Byte;
implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
NOpyt:=0;
SumOtkl:=0 ;
RU:=0;
GU:=0;
BU:=0;
sttColorUser.Color:=RGB(RU,GU,BU);

end;

procedure TForm1.sbRScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
RU:=abs(sbr.Position-255);
sttRUser.Caption:=IntToStr(RU);
sttColorUser.Color:=RGB(RU,GU,BU);
end;

procedure TForm1.sbGScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
GU:=abs(sbG.Position-255);
sttGUser.Caption:=IntToStr(GU);
sttColorUser.Color:=RGB(RU,GU,BU);
end;

procedure TForm1.sbBScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
BU:=abs(sbB.Position-255);
sttBUser.Caption:=IntToStr(BU);
sttColorUser.Color:=RGB(RU,GU,BU);
end;

end.

rocedure TfrmMain.FormCreate(Sender: TObject);
begin
StatusBar.Panels[0].Text:=''Файл :'';
StatusBar.Panels[1].Text:=''Состояние :'';
GetDir(0,ActDir);
WorkDir:='''';
OpenDlg.InitialDir:=ActDir;
SaveDlg.InitialDir:=ActDir;
TextChanged:=False;
FullFileName:='''';
ShortFileName:='''';
btnSave.Enabled:=False;
btnSaveAs.Enabled:=False;
red.Hide
end;

procedure TfrmMain.btnNewClick(Sender: TObject);
begin
if TextChanged=True then
N:=Application.MessageBox(''Вы хотите сохранить изменения?'',''Текст изменен.'',MB_YESNOCANCEL);
if N=7 then
begin
red.Clear;
red.Show;
btnSaveAs.Enabled:=True;
btnSave.Enabled:=True;
TextChanged:=True;
red.SetFocus;
FullFileName:='''';
ShortFileName:='''';
StatusBar.Panels[0].Text:=''Файл : новый, не сохраненный.'';
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
end;
if N=2 then
exit;


if N=6 then
begin
btnSaveClick(Sender);

end;
red.Clear;
red.Show;
btnSaveAs.Enabled:=True;
btnSave.Enabled:=True;
TextChanged:=True;
red.SetFocus;
FullFileName:='''';
ShortFileName:='''';
StatusBar.Panels[0].Text:=''Файл : новый, не сохраненный.'';
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
end;

procedure TfrmMain.BtnOpenClick(Sender: TObject);
begin
if TextChanged=True then
N:=Application.MessageBox(''Вы хотите сохранить изменения?'',''Текст изменен.'',MB_YESNOCANCEL);

if N=2 then
exit;

if N=6 then
begin
btnSaveClick(Sender);

end;
if not OpenDlg.Execute then exit;
TextChanged:=False;
btnNewClick(Sender);
FullFileName:=OpenDlg.FileName;
WorkDir:=ExtractFileDir(FullFileName);
OpenDlg.InitialDir:=WorkDir;
if ShortFileName='''' then SaveDlg.InitialDir:=WorkDir;
ShortFileName:=ExtractFileName(FullFileName);
red.Lines.LoadFromFile(FullFileName);
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
StatusBar.Panels[0].Text:=''Файл ''+ShortFileName;
TextChanged:=False;
BtnSave.Enabled:=False;
end;

procedure TfrmMain.BtnSaveAsClick(Sender: TObject);
begin
if not SaveDlg.Execute then exit;
FullFileName:=SaveDlg.FileName;
WorkDir:=ExtractFileDir(FullFileName);
SaveDlg.InitialDir:=WorkDir;
ShortFileName:=ExtractFileName(FullFileName);
StatusBar.Panels[0].Text:=''Файл ''+ShortFileName;
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
if ShortFileName='''' then OpenDlg.InitialDir:=WorkDir;
ShortFileName:=ExtractFileName(FullFileName);
red.Lines.SaveToFile(FullFileName);
TextChanged:=False;
btnSave.Enabled:=False;
end;

procedure TfrmMain.BtnSaveClick(Sender: TObject);
begin
if ShortFileName='''' then
begin
btnSaveAsClick(Sender);
exit;
end;
ShortFileName:=ExtractFileName(FullFileName);
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
StatusBar.Panels[0].Text:=''Файл ''+ShortFileName;
red.Lines.SaveToFile(FullFileName);
TextChanged:=False;
btnSave.Enabled:=False;
end;

procedure TfrmMain.redChange(Sender: TObject);
begin
TextChanged:=True;
BtnSave.Enabled:=True;

StatusBar.Panels[1].Text:=''Состояние : файл изменен.''
end;

procedure TfrmMain.MFQuitClick(Sender: TObject);
begin

if TextChanged=True then
N:=Application.MessageBox(''Вы хотите сохранить изменения?'',''Текст изменен.'',MB_YESNOCANCEL);
if N=7 then
begin
red.Clear;
red.Show;
btnSaveAs.Enabled:=True;
btnSave.Enabled:=True;
TextChanged:=True;
red.SetFocus;
FullFileName:='''';
ShortFileName:='''';
StatusBar.Panels[0].Text:=''Файл : новый, не сохраненный.'';
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
end;


if N=6 then
begin
btnSaveClick(Sender);
close;
end;
if N=2 then
exit;
Close;
end;

end.

if not OpenDlg.Execute then exit;
TextChanged:=False;
btnNewClick(Sender);
FullFileName:=OpenDlg.FileName;
WorkDir:=ExtractFileDir(FullFileName);
OpenDlg.InitialDir:=WorkDir;
if ShortFileName='''' then SaveDlg.InitialDir:=WorkDir;
ShortFileName:=ExtractFileName(FullFileName);
red.Lines.LoadFromFile(FullFileName);
StatusBar.Panels[1].Text:=''Состояние : не изменялся.'';
StatusBar.Panels[0].Text:=''Файл ''+ShortFileName;
TextChanged:=False;
BtnSave.Enabled:=False;
end;

unit prog;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls;

type
TfrmMain = class(TForm)
cb: TComboBox;
OpenDlg: TOpenDialog;
btn1: TBitBtn;
mem: TMemo;
sb: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure cbChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;
ActDir:String;
LST:TStringlist;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var C:Char;
begin
for C:=''А'' to ''Я'' do
cb.Items.Add(C);
LST:=TStringList.Create;
cb.Enabled:=false ;

end;

procedure TfrmMain.btn1Click(Sender: TObject);
begin
GetDir(0,ActDir);
OpenDlg.InitialDir:=ActDir;
if not OpenDlg.Execute then exit;
if not FileExists(OpenDlg.FileName) then exit;
LST.LoadFromFile(OpenDlg.FileName);
cb.Enabled:=true
end;

procedure TfrmMain.cbChange(Sender: TObject);

var c:char;
i,n:integer;
S:string;
begin
n:=0;
mem.Clear;
c:=cb.TEXT[1];
for i:=0 to LST.Count-1 do

if LST.Strings[i][1]=c then
begin
mem.Lines.add(LST.Strings[i]);
n:=n+1;
end;

if n=0 then
showmessage(''Слов на эту букву не найдено'');

end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
LST.Free
end;

end.

if (Key.isDown(Key.CONTROL)) {
ctrl = true;
if (vert._xscale>0) {
flip = true;
} else {
flip = false;
}
}
if (ctrl) {
if (flip) {
if (vert._xscale>-100) {
vert._xscale -= vflip;
} else {
ctrl = false;
}
} else {
if (vert._xscale<100) {
vert._xscale += vflip;
} else {
ctrl = false;
}
}
}

www.bratan.info

позвони самирке

хз