Лабораторная работа - Исследование свойств информационных мер
Подождите немного. Документ загружается.
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel1.Visible:=true;
Panel1.Enabled:=true;
end;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel2.Visible:=true;
Panel2.Enabled:=true;
end;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel3.Visible:=true;
Panel3.Enabled:=true;
end;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
if RadioButton4.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel4.Visible:=true;
Panel4.Enabled:=true;
end;
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
if RadioButton5.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel5.Visible:=true;
Panel5.Enabled:=true;
end;
end;
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
if RadioButton6.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel6.Visible:=true;
Panel6.Enabled:=true;
end;
end;
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
if RadioButton7.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel7.Visible:=true;
Panel7.Enabled:=true;
end;
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
if RadioButton8.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Panel9.Visible:=false;
Label35.Caption:='';
Panel8.Visible:=true;
Panel8.Enabled:=true;
end;
end;
procedure TForm1.About1Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
k,N,R:Real;
begin
k:=StrToInt(Edit1.Text);
N:=StrToInt(Edit2.Text);
R:=k*Ln(N);
Edit3.Text:=FloatToStr(R);
end;
procedure TForm1.Button2Click(Sender: TObject);
const
rusalf=['а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','ъ','э','
ю','я',' '];
angalf=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','r','s','t','u','v','w','x','y','z',' ','q'];
var
ch:real;
i,j:integer;
masr: array [1..33] of string;
masc: array [1..33] of real;
masa: array [1..27] of string;
masac: array [1..27] of real;
masn: array [1..27] of real;
masf: array [1..27] of real;
begin
ch:=0;
{======= Русский алфавит =======}
masr[1]:='а'; masc[1]:=0.064; masr[18]:='с'; masc[18]:=0.045;
masr[2]:='б'; masc[2]:=0.014; masr[19]:='т'; masc[19]:=0.053;
masr[3]:='в'; masc[3]:=0.038; masr[20]:='у'; masc[20]:=0.021;
masr[4]:='г'; masc[4]:=0.012; masr[21]:='ф'; masc[21]:=0.002;
masr[5]:='д'; masc[5]:=0.025; masr[22]:='х'; masc[22]:=0.009;
masr[6]:='е'; masc[6]:=0.072; masr[23]:='ц'; masc[23]:=0.004;
masr[7]:='ё'; masc[7]:=0.072; masr[24]:='ч'; masc[24]:=0.012;
masr[8]:='ж'; masc[8]:=0.007; masr[25]:='ш'; masc[25]:=0.006;
masr[9]:='и'; masc[9]:=0.062; masr[26]:='щ'; masc[26]:=0.003;
masr[10]:='й'; masc[10]:=0.010; masr[27]:='ь'; masc[27]:=0.014;
masr[11]:='к'; masc[11]:=0.028; masr[28]:='ы'; masc[28]:=0.016;
masr[12]:='л'; masc[12]:=0.035; masr[29]:='ъ'; masc[29]:=0.014;
masr[13]:='м'; masc[13]:=0.026; masr[30]:='э'; masc[30]:=0.003;
masr[14]:='н'; masc[14]:=0.053; masr[31]:='ю'; masc[31]:=0.006;
masr[15]:='о'; masc[15]:=0.090; masr[32]:='я'; masc[32]:=0.018;
masr[16]:='п'; masc[16]:=0.023; masr[33]:=' '; masc[33]:=0.175;
masr[17]:='р'; masc[17]:=0.040;
{======= Английский алфавит =======}
masa[1]:='a'; masac[1]:=0.081; masa[14]:='n'; masac[14]:=0.072;
masa[2]:='b'; masac[2]:=0.014; masa[15]:='o'; masac[15]:=0.029;
masa[3]:='c'; masac[3]:=0.027; masa[16]:='p'; masac[16]:=0.020;
masa[4]:='d'; masac[4]:=0.039; masa[17]:='r'; masac[17]:=0.069;
masa[5]:='e'; masac[5]:=0.130; masa[18]:='s'; masac[18]:=0.061;
masa[6]:='f'; masac[6]:=0.129; masa[19]:='t'; masac[19]:=0.015;
masa[7]:='g'; masac[7]:=0.020; masa[20]:='u'; masac[20]:=0.024;
masa[8]:='h'; masac[8]:=0.052; masa[21]:='v'; masac[21]:=0.009;
masa[9]:='i'; masac[9]:=0.062; masa[22]:='w'; masac[22]:=0.015;
masa[10]:='j'; masac[10]:=0.002; masa[23]:='x'; masac[23]:=0.002;
masa[11]:='k'; masac[11]:=0.004; masa[24]:='y'; masac[24]:=0.019;
masa[12]:='l'; masac[12]:=0.034; masa[25]:='z'; masac[25]:=0.001;
masa[13]:='m'; masac[13]:=0.025; masa[26]:=' '; masac[26]:=0.175;
masa[27]:='q'; masac[27]:=0.052;
masn[1]:=0.129; masn[14]:=0.062; masf[1]:=0.076; masf[14]:=0.076;
masn[2]:=0.010; masn[15]:=0.088; masf[2]:=0.008; masf[15]:=0.053;
masn[3]:=0.044; masn[16]:=0.032; masf[3]:=0.033; masf[16]:=0.032;
masn[4]:=0.046; masn[17]:=0.069; masf[4]:=0.036; masf[17]:=0.068;
masn[5]:=1.141; masn[18]:=0.076; masf[5]:=0.177; masf[18]:=0.082;
masn[6]:=0.070; masn[19]:=0.043; masf[6]:=0.010; masf[19]:=0.073;
masn[7]:=0.091; masn[20]:=0.040; masf[7]:=0.011; masf[20]:=0.060;
masn[8]:=0.007; masn[21]:=0.006; masf[8]:=0.006; masf[21]:=0.012;
masn[9]:=0.070; masn[22]:=0 ; masf[9]:=0.072; masf[22]:=0;
masn[10]:=0.002; masn[23]:=0.007; masf[10]:=0.001; masf[23]:=0.005;
masn[11]:=0 ; masn[24]:=0.010; masf[11]:=0 ; masf[24]:=0.002;
masn[12]:=0.052; masn[25]:=0.003; masf[12]:=0.058; masf[25]:=0.007;
masn[13]:=0.025; masn[26]:=0.002; masf[13]:=0.027; masf[26]:=0.051;
masn[27]:=0.015; masf[27]:=0.013;
if (RadioButton11.Checked=false) and (RadioButton12.Checked=false) and
(RadioButton13.Checked=false) and (RadioButton14.Checked=false) then
ShowMessage('Выберите язык') else
if (RadioButton11.Checked=true) and (Edit4.Text[1] in rusalf) then
for i:=1 to length(Edit4.Text) do
for j:=1 to 33 do
begin
if Edit4.Text[i]=masr[j] then ch:=ch+masc[j];
Edit5.Text:=FloatToStr(ch);
end else
if (RadioButton12.Checked=true) and (Edit4.Text[1] in angalf) then
for i:=1 to length(Edit4.Text) do
for j:=1 to 26 do
begin
if Edit4.Text[i]=masa[j] then ch:=ch+masac[j];
Edit5.Text:=FloatToStr(ch);
end else
if (RadioButton13.Checked=true) and (Edit1.Text[1] in angalf) then
for i:=1 to length(Edit4.Text) do
for j:=1 to 26 do
begin
if Edit4.Text[i]=masa[j] then ch:=ch+masn[j];
Edit5.Text:=FloatToStr(ch);
end else
if (RadioButton14.Checked=true) and (Edit4.Text[1] in angalf) then
for i:=1 to length(Edit4.Text) do
for j:=1 to 26 do
begin
if Edit4.Text[i]=masa[j] then ch:=ch+masf[j];
Edit5.Text:=FloatToStr(ch);
end else
ShowMessage('Неправильно выбран язык');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
me,ne,ma,na:real;
L,summa:real;
ec,mc:real;
begin
me:=StrToFloat(Edit6.Text);
ne:=StrToFloat(Edit8.Text);
ma:=StrToFloat(Edit9.Text);
na:=StrToFloat(Edit10.Text);
if RadioButton9.Checked then
begin
L:=StrToFloat(Edit12.Text);
ec:=StrToFloat(Edit11.Text);
summa:=ln(L/ec);
end
else
begin
mc:=StrToFloat(Edit13.Text);
summa:=mc*ln(2);
end;
Edit7.Text:=FloatToStr(me*ln(ne)+summa+ma*ln(na));
end;
procedure TForm1.Button4Click(Sender: TObject);
var
ni,Om:real;
begin
Om:=StrToFloat(Edit14.Text);
ni:=StrToFloat(Edit17.Text);
Edit15.Text:=FloatToStr(ln(ni*Om));
end;
procedure TForm1.Button5Click(Sender: TObject);
var
p1,p0:real;
begin
p1:=StrToFloat(Edit18.Text);
p0:=StrToFloat(Edit16.Text);
Edit19.Text:=FloatToStr(ln(p1/p0));
end;
procedure TForm1.Button6Click(Sender: TObject);
var
j1,j2:real;
begin
j1:=StrToFloat(Edit20.Text);
j2:=StrToFloat(Edit21.Text);
Edit22.Text:=FloatToStr(abs((j1-j2)/(j1+j2)));
end;
procedure TForm1.Button7Click(Sender: TObject);
var
h1,h2:real;
begin
h1:=StrToFloat(Edit25.Text);
h2:=StrToFloat(Edit24.Text);
Edit23.Text:=FloatToStr(h1-h2);
end;
procedure TForm1.able1Click(Sender: TObject);
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
end;
procedure TForm1.RadioButton15Click(Sender: TObject);
begin
if RadioButton15.Checked=true then
begin
Panel1.Visible:=false;
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
Panel5.Visible:=false;
Panel6.Visible:=false;
Panel7.Visible:=false;
Panel8.Visible:=false;
Label35.Caption:='';
Panel9.Visible:=true;
Panel9.Enabled:=true;
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
Var
ir1r2:real;
s,i,k1,k2:integer;
r1,r2:array [1..50] of real;
z,ed1,ed2:string;
f:boolean;
begin
ed1:=Edit27.Text; ed2:=Edit28.Text;
Edit27.Text:=Edit27.Text+' ';
Edit28.Text:=Edit28.Text+' ';
k1:=1; k2:=1;
for i:=1 to length(Edit27.Text) do
begin
if Edit27.Text[i]=' ' then
Begin
r1[k1]:=StrToInt(z);
k1:=k1+1;
z:='';
end else
z:=z+Edit27.Text[i];
end;
for i:=1 to length(Edit28.Text) do
begin
if Edit28.Text[i]=' ' then
Begin
r2[k2]:=StrToFloat(z);
k2:=k2+1;
z:='';
end else
z:=z+Edit28.Text[i];
end;
f:=false;
if (StrToInt(Edit26.Text)=k1-1) and (StrToInt(Edit26.Text)=k2-1) then
begin
f:=true;
ir1r2:=0;
for i:=1 to k1-1 do
ir1r2:=ir1r2+r1[i]*ln(r1[i]/r2[i]);
End else ir1r2:=0;
if f=true then Edit29.Text:=FloatToStr(ir1r2) else
Edit29.Text:='Результат: НЕПРАВИЛЬНЫЙ ВВОД';
Edit27.Clear; Edit27.Text:=ed1;
Edit28.Clear; Edit28.Text:=ed2;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Form4.Visible:=True;
end;
end.