Описание работы программы
Цель:Приобретение и закрепление знаний и получение практических навыков работы с простейшей нейронной сетью, разработанной Розенблаттом.
Описание работы программы.
Данная программа является примитивным перцептроном Розенблатта, распознающим любые два символа, изображение которых можно ввести при помощи матрицы размером 4´4.
Для примера рассмотрим значение букв «Н» и «С».
Для запуска программы необходимо запустить файл Perzep.exe. после чего вы получите:
В левом верхнем углу находятся две таблички в которые вводятся два символа. По умолчанию они установлены в символы «Н» и «С»:
Значения в каждой ячейке таблиц меняются при нажатии на них мышкой с 0 в 1 или наоборот, в зависимости от исходного значения. Таким образом, возможно изменение символов на любые другие:
Активность точек под буквами определяет при обучении и распознании значение символа выше или ниже порога. Если точка под символом активна, то значения символа рассчитывается ниже порога.
Для начала необходимо обучить систему распознавать введенные нами символы. Для этого необходимо нажать клавишу 
, находящуюся под символами. После её нажатия станут активными кнопки 
и 
, находящиеся в правом верхнем углу окна.
Кнопка позволяет заполнить таблицу весов связей перцептрона случайными числами. При повторном нажатии кнопки значения в таблице изменятся. Таким образом можно подобрать таблицу наиболее подходящих значений.
После нажатия на кнопку активизируется кнопка 
, которая позволяет сохранить значения таблицы в файл.
Внимание! Сохранение выполняется поверх уже имеющегося, следовательно старые значения пропадут. Если их желательно сохранить, тогда необходимо пересохранить файл rand.dat и при необходимости использования переписать в каталог программы.
Загрузить ранее сохранённую таблицу можно с помощью кнопки .
Для данного примера (буквы «Н» и «С») уже подобрана и сохранена таблица весов связей перцептрона:
Вместе с таблицей весов связей перцептрона заполняется ещё таблица величин сигналов на входах:
Значения этой таблицы напрямую зависят от введённых символов и от значений таблицы весов связей перцептрона. Поэтому необходимо подбирать последнюю для получения наилучшего результата величин сигнала на входах. А результат должен быть таким:
1. хотя бы одно значение в столбце матрицы должно быть больше либо равно значению порога («среднее по всей таблице» под таблицей величин сигналов на входах).
2. области выше порога для разных символов должны пересекаться как можно меньше раз.
Например:
В полученной нами таблице величин сигналов на входах хотя бы одно значение столбца выше (либо равно) значения порога и области выше порога пересекаются только в одном месте (UA4):
где 
- значение, входящее в область значений, которые выше порога.
При подборе таблицы весов связей перцептрона для других символов, необходимо придерживаться того же принципа, что резко повысит качество распознания перцептроном заданных символов.
После вычисления вышеуказанных таблиц становятся доступными кнопки 
и 
, которые активизируют работу адаптации весов связей перцептрона с помощью альфа и гамма систем подкрепления соответственно.
При нажатии на кнопку получим:
Система подкрепления даёт нам порог в соответствии с которым есть возможность распознавать символы. Как видно из таблицы значение по первому символу (U1) ниже порога, а значение по второму (U2) – выше.
Далее можно распознавать символ с помощью альфа коррекции, введя его в
таблицу внизу окна 
и нажав кнопку 
, находящуюся слева от таблицы получим результат:
Если ввести другой символ 
, то результат будет такой:
Для проведения распознания символа с помощью гамма коррекции необходимо нажать кнопку , и получаем:
Гамма система подкрепления также даёт нам порог, в соответствии с которым есть возможность распознавать символы. Как видно из таблицы значение по первому символу (U1) ниже порога, а значение по второму (U2) – выше (что задано точками под символами в левом верхнем углу формы).
Далее можно распознавать символ с помощью гамма коррекции, введя его в таблицу внизу окна 
и нажав кнопку , находящуюся справа от таблицы получим результат:
Если ввести другой символ 
, то результат будет такой:
Но, как было сказано в начале описания, есть возможность менять положение значений символа относительно порога. До сих пор рассматривалась ситуация, когда значение первого символа было ниже порога, а второго – выше. Теперь рассмотрим обратную ситуацию.
Для этого необходимо активизировать точку под вторым символом:
Значения таблиц весов связей перцептрона и величин сигналов на входах остаются неизменными, а вот альфа и гамма подкреплений должны значительно измениться.
Нажмём и увидим:
Как видно из таблицы значение по первому символу (U1) стало выше порога, а значение по второму (U2) – ниже, что привело к большому количеству вычислений, и вектор t0 претерпел значительные изменения. Что однако не повлияло на качество распознания символов:
Нажав кнопку , находящуюся слева от таблицы получим результат:
То же самое и со вторым символом:
Результат:
Логично предположить, что гамма коррекция тоже претерпела некоторые изменения. Проверим это.
Нажмём кнопку , и получаем:
Как видно здесь значения так же изменились: по первому символу (U1) значение стало выше порога, а по второму (U2) – ниже, что привело к большому количеству вычислений, и вектор t0 так же изменился. Количество вычислений настолько увеличилось, что пришлось задействовать полосу прокрутки, но это отразилось на качестве распознания символов:
Далее можно убедится в правильности распознания символов:
Нажав кнопку , находящуюся справа от таблицы получим результат:
Если ввести другой символ , то:
Внешний вид программы после заполнения всех таблиц:
Завершить работу с программой модно нажав кнопку:
При повторном запуске программы все значения будут обнулены т.к. при её закрытии возможно сохранение только таблицы весов связей перцептрона между S- и А- элементами.
Текст программы:
program Perzep;
uses
Forms,
Unit1 in '..Unit1.pas' {Form1};
{$R *.res}
begin
AssignFile(f,'Rand.dat'); //реквизиты потребителей
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Buttons;
type
mas=array[0..15]of byte;
rr=array[0..5] of real;
u=array[0..5]of real;
save=array [0..15,0..5]of real;
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
BitBtn2: TBitBtn;
StringGrid4: TStringGrid;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtn5: TBitBtn;
Label6: TLabel;
Label7: TLabel;
StringGrid5: TStringGrid;
Label8: TLabel;
BitBtn6: TBitBtn;
Label9: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
StringGrid6: TStringGrid;
BitBtn7: TBitBtn;
Label10: TLabel;
StringGrid7: TStringGrid;
BitBtn8: TBitBtn;
Label11: TLabel;
BitBtn9: TBitBtn;
Procedure load;
Procedure Summir;
procedure FormActivate(Sender: TObject);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure StringGrid2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure StringGrid7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure StringGrid7SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure BitBtn9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x_kurs,y_kurs:integer;
ferst,second,rasp,rasp_g:mas;
u_ferst,u_second,u_rasp,u_rasp_g:u;
rand:save;
f:file of save;
por1,por_al:real;
r,r_e,rg:rr;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
//Первая буква
StringGrid1.Cells[0,0]:='1';
StringGrid1.Cells[1,0]:='0';
StringGrid1.Cells[2,0]:='0';
StringGrid1.Cells[3,0]:='1';
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[1,1]:='0';
StringGrid1.Cells[2,1]:='0';
StringGrid1.Cells[3,1]:='1';
StringGrid1.Cells[0,2]:='1';
StringGrid1.Cells[1,2]:='1';
StringGrid1.Cells[2,2]:='1';
StringGrid1.Cells[3,2]:='1';
StringGrid1.Cells[0,3]:='1';
StringGrid1.Cells[1,3]:='0';
StringGrid1.Cells[2,3]:='0';
StringGrid1.Cells[3,3]:='1';
//Вторая буква
StringGrid2.Cells[0,0]:='1';
StringGrid2.Cells[1,0]:='1';
StringGrid2.Cells[2,0]:='1';
StringGrid2.Cells[3,0]:='1';
StringGrid2.Cells[0,1]:='1';
StringGrid2.Cells[1,1]:='0';
StringGrid2.Cells[2,1]:='0';
StringGrid2.Cells[3,1]:='0';
StringGrid2.Cells[0,2]:='1';
StringGrid2.Cells[1,2]:='0';
StringGrid2.Cells[2,2]:='0';
StringGrid2.Cells[3,2]:='0';
StringGrid2.Cells[0,3]:='1';
StringGrid2.Cells[1,3]:='1';
StringGrid2.Cells[2,3]:='1';
StringGrid2.Cells[3,3]:='1';
//Распознаваемая буква
StringGrid7.Cells[0,0]:='1';
StringGrid7.Cells[1,0]:='0';
StringGrid7.Cells[2,0]:='0';
StringGrid7.Cells[3,0]:='1';
StringGrid7.Cells[0,1]:='1';
StringGrid7.Cells[1,1]:='0';
StringGrid7.Cells[2,1]:='0';
StringGrid7.Cells[3,1]:='1';
StringGrid7.Cells[0,2]:='1';
StringGrid7.Cells[1,2]:='1';
StringGrid7.Cells[2,2]:='1';
StringGrid7.Cells[3,2]:='1';
StringGrid7.Cells[0,3]:='1';
StringGrid7.Cells[1,3]:='0';
StringGrid7.Cells[2,3]:='0';
StringGrid7.Cells[3,3]:='1';
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
x_kurs:=ACol;
y_kurs:=ARow;
end;
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if StringGrid1.Cells[x_kurs,y_kurs]='1' then
StringGrid1.Cells[x_kurs,y_kurs]:='0'
else
StringGrid1.Cells[x_kurs,y_kurs]:='1';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j,k,m:byte;
a:integer;
begin
BitBtn2.Enabled:=true;
BitBtn5.Enabled:=true;
k:=0;
for i:=0 to 3 do
for j:=0 to 3 do
begin
val(StringGrid1.Cells[j,i],m,a);
ferst[k]:=m;
val(StringGrid2.Cells[j,i],m,a);
second[k]:=m;
inc(k);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
r_e[0]:=0.5;
r_e[1]:=0.8;
r_e[2]:=0.3;
r_e[3]:=0.6;
r_e[4]:=0.7;
r_e[5]:=0.5;
StringGrid3.Cells[0,0]:='';
StringGrid3.Cells[1,0]:='S1';
StringGrid3.Cells[2,0]:='S2';
StringGrid3.Cells[3,0]:='S3';
StringGrid3.Cells[4,0]:='S4';
StringGrid3.Cells[5,0]:='S5';
StringGrid3.Cells[6,0]:='S6';
StringGrid3.Cells[7,0]:='S7';
StringGrid3.Cells[8,0]:='S8';
StringGrid3.Cells[9,0]:='S9';
StringGrid3.Cells[10,0]:='S10';
StringGrid3.Cells[11,0]:='S11';
StringGrid3.Cells[12,0]:='S12';
StringGrid3.Cells[13,0]:='S13';
StringGrid3.Cells[14,0]:='S14';
StringGrid3.Cells[15,0]:='S15';
StringGrid3.Cells[16,0]:='S16';
StringGrid3.Cells[0,1]:='A1';
StringGrid3.Cells[0,2]:='A2';
StringGrid3.Cells[0,3]:='A3';
StringGrid3.Cells[0,4]:='A4';
StringGrid3.Cells[0,5]:='A5';
StringGrid3.Cells[0,6]:='A6';
//Суммарный входной сигнал на входе А элемента
StringGrid4.ColWidths[0]:=44;
StringGrid4.Cells[0,0]:='';
StringGrid4.Cells[0,1]:='Буква1';
StringGrid4.Cells[0,2]:='Буква2';
StringGrid4.Cells[1,0]:='UA1';
StringGrid4.Cells[2,0]:='UA2';
StringGrid4.Cells[3,0]:='UA3';
StringGrid4.Cells[4,0]:='UA4';
StringGrid4.Cells[5,0]:='UA5';
StringGrid4.Cells[6,0]:='UA6';
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
BitBtn5.Enabled:=True;
CloseFile(f);
end
else BitBtn5.Enabled:=False;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j:byte;
sum,sum1,sum2,sum3,a:real;
s:string[3];
begin
for i:=0 to 5 do
for j:=0 to 15 do
begin
a:= random(9);
a:=a/10+0.1;
rand[j,i]:=a;
end;
load;
Summir;
end;
procedure TForm1.StringGrid2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if StringGrid2.Cells[x_kurs,y_kurs]='1' then
StringGrid2.Cells[x_kurs,y_kurs]:='0'
else
StringGrid2.Cells[x_kurs,y_kurs]:='1';
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Rewrite(f);
Seek(f,0);
Write(f,rand);
CloseFile(f);
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
reset(f);
Seek(f,0);
read(f,rand);
CloseFile(f);
load;
Summir;
end;
Procedure TForm1.load;
Var
i,j:integer;
s:string[6];
begin
for i:=0 to 5 do
for j:=0 to 15 do
begin
str(rand[j,i]:0:1,s);
StringGrid3.Cells[j+1,i+1]:=s;
end;
end;
Procedure TForm1.Summir;
var
i,j:byte;
sum,sum1,sum2,sum3,a:real;
s:string[3];
begin
sum2:=0;
sum3:=0;
for i:=0 to 5 do
begin
sum:=0;
sum1:=0;
for j:=0 to 15 do
begin
if ferst[j]=1 then
sum:=sum+rand[j,i];
if second[j]=1 then
sum1:=sum1+rand[j,i];
end;
u_ferst[i]:=sum;
u_second[i]:=sum1;
str(sum:0:1,s);
StringGrid4.Cells[i+1,1]:=s;
str(sum1:0:1,s);
StringGrid4.Cells[i+1,2]:=s;
sum2:=sum2+ u_ferst[i];
sum3:=sum3+ u_second[i];
end;
sum2:=sum2/6;
sum3:=sum3/6;
str(sum2:2:3,s);
Label1.Visible:=true;
Label1.Caption:=s;
str(sum3:2:3,s);
Label2.Visible:=true;
Label2.Caption:=s;
por1:=(sum2+sum3)/2;
str(por1:2:3,s);
Label3.Visible:=true;
Label3.Caption:='Среднее по всей таблице: '+s;
BitBtn3.Enabled:=True;
BitBtn6.Enabled:=True;
BitBtn7.Enabled:=True;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
var
i,j:byte;
s:string[3];
sum,sum1:real;
begin
for i:=0 to 5 do
r[i]:=r_e[i];
for i:=0 to 8 do
for j:=0 to 16 do
StringGrid5.Cells[j,i]:='';
StringGrid5.Cells[0,0]:='';
StringGrid5.Cells[1,0]:='t0';
for i:=0 to 5 do
begin
str(r[i]:2:3,s);
StringGrid5.Cells[1,i+1]:=s;
end;
StringGrid5.Cells[0,1]:='W1';
StringGrid5.Cells[0,2]:='W2';
StringGrid5.Cells[0,3]:='W3';
StringGrid5.Cells[0,4]:='W4';
StringGrid5.Cells[0,5]:='W5';
StringGrid5.Cells[0,6]:='W6';
StringGrid5.Cells[0,7]:='U1';
StringGrid5.Cells[0,8]:='U2';
sum:=0;
sum1:=0;
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
sum:=sum+r[i];
if u_second[i]>por1-0.1 then
sum1:=sum1+r[i];
end;
por_al:=(sum+sum1)/2;
str(sum:2:3,s);
StringGrid5.Cells[1,7]:=s;
str(sum1:2:3,s);
StringGrid5.Cells[1,8]:=s;
str(por_al:2:3,s);
Label9.Visible:=true;
Label9.Caption:='Порог R-элемента: '+s;
if RadioButton1.Checked=true then
begin
j:=2;
while (sum>por_al)or(sum1<por_al) do
begin
if sum>por_al then
begin
sum:=0;
StringGrid5.Cells[j,0]:='1';
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
begin
if r[i]<>0 then
r[i]:=r[i]-0.1;
str(r[i]:2:3,s);
StringGrid5.Cells[j,i+1]:=s;
sum:=sum+r[i];
end;
end;
str(sum:2:3,s);
StringGrid5.Cells[j,7]:=s;
inc(j);
end;
if sum1<por_al then
begin
sum1:=0;
StringGrid5.Cells[j,0]:='2';
for i:=0 to 5 do
begin
if u_second[i]>por1-0.1 then
begin
if r[i]<>1 then
r[i]:=r[i]+0.1;
str(r[i]:2:3,s);
StringGrid5.Cells[j,i+1]:=s;
sum1:=sum1+r[i];
end;
end;
str(sum1:2:3,s);
StringGrid5.Cells[j,8]:=s;
inc(j);
end;
sum1:=0;
sum:=0;
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
sum:=sum+r[i];
if u_second[i]>por1-0.1 then
sum1:=sum1+r[i];
end;
end;
end
else
begin
j:=2;
while (sum<por_al)or(sum1>por_al) do
begin
if sum<por_al then
begin
sum:=0;
StringGrid5.Cells[j,0]:='1';
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
begin
if r[i]<>1 then
r[i]:=r[i]+0.1;
str(r[i]:2:3,s);
StringGrid5.Cells[j,i+1]:=s;
sum:=sum+r[i];
end;
end;
str(sum:2:3,s);
StringGrid5.Cells[j,7]:=s;
inc(j);
end;
if sum1>por_al then
begin
sum1:=0;
StringGrid5.Cells[j,0]:='2';
for i:=0 to 5 do
begin
if u_second[i]>por1-0.1 then
begin
if r[i]<>0 then
r[i]:=r[i]-0.1;
str(r[i]:2:3,s);
StringGrid5.Cells[j,i+1]:=s;
sum1:=sum1+r[i];
end;
end;
str(sum1:2:3,s);
StringGrid5.Cells[j,8]:=s;
inc(j);
end;
sum1:=0;
sum:=0;
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
sum:=sum+r[i];
if u_second[i]>por1-0.1 then
sum1:=sum1+r[i];
end;
end;
end;
BitBtn8.Enabled:=True;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
var
f,i,j:byte;
s:string[7];
sum,sum1,sum2:real;
begin
for i:=0 to 5 do
rg[i]:=r_e[i];
for i:=0 to 9 do
for j:=0 to 16 do
StringGrid6.Cells[j,i]:='';
StringGrid6.Cells[0,0]:='';
StringGrid6.Cells[1,0]:='t0';
for i:=0 to 5 do
begin
str(rg[i]:2:1,s);
StringGrid6.Cells[1,i+1]:=s;
end;
StringGrid6.Cells[0,1]:='W1';
StringGrid6.Cells[0,2]:='W2';
StringGrid6.Cells[0,3]:='W3';
StringGrid6.Cells[0,4]:='W4';
StringGrid6.Cells[0,5]:='W5';
StringGrid6.Cells[0,6]:='W6';
StringGrid6.Cells[0,7]:='U1';
StringGrid6.Cells[0,8]:='U2';
StringGrid6.Cells[0,9]:='S';
sum:=0;
sum1:=0;
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
sum:=sum+rg[i];
if u_second[i]>por1-0.1 then
sum1:=sum1+rg[i];
end;
por_al:=(sum+sum1)/2;
sum2:=sum+sum1;
str(sum:2:1,s);
StringGrid6.Cells[1,7]:=s;
str(sum1:2:1,s);
StringGrid6.Cells[1,8]:=s;
str(sum2:2:1,s);
StringGrid6.Cells[1,9]:=s;
str(por_al:2:1,s);
Label10.Visible:=true;
Label10.Caption:='Порог R-элемента: '+s;
if RadioButton1.Checked=true then
begin
j:=2;
while (sum>por_al)or(sum1<por_al) do
begin
if sum>por_al then
begin
sum:=0;
StringGrid6.Cells[j,0]:='1';
f:=0;
for i:=0 to 5 do
if u_ferst[i]>por1-0.1 then
begin
if rg[i]<>0 then
rg[i]:=rg[i]-0.1;
inc(f);
end;
for i:=0 to 5 do
begin
if rg[i]<>0 then
rg[i]:=rg[i]+f/10/6;
str(rg[i]:5:4,s);
StringGrid6.Cells[j,i+1]:=s;
sum2:=sum2+rg[i];
end;
for i:=0 to 5 do
if u_ferst[i]>por1-0.1 then
sum:=sum+rg[i];
str(sum:5:4,s);
StringGrid6.Cells[j,7]:=s;
str(sum2:5:4,s);
StringGrid6.Cells[j,9]:=s;
inc(j);
end;
if sum1<por_al then
begin
sum1:=0;
StringGrid6.Cells[j,0]:='2';
f:=0;
for i:=0 to 5 do
if u_second[i]>por1-0.1 then
begin
if rg[i]<>1 then
rg[i]:=rg[i]+0.1;
inc(f);
end;
for i:=0 to 5 do
begin
if rg[i]<>1 then
rg[i]:=rg[i]-f/10/6;
str(rg[i]:5:4,s);
StringGrid6.Cells[j,i+1]:=s;
sum2:=sum2+rg[i];
end;
for i:=0 to 5 do
if u_second[i]>por1-0.1 then
sum1:=sum1+rg[i];
str(sum1:5:4,s);
StringGrid6.Cells[j,8]:=s;
str(sum2:5:4,s);
StringGrid6.Cells[j,9]:=s;
inc(j);
end;
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
sum:=sum+rg[i];
if u_second[i]>por1-0.1 then
sum1:=sum1+rg[i];
end;
end;
end
else
begin
j:=2;
while (sum<por_al)or(sum1>por_al) do
begin
if sum<por_al then
begin
sum:=0;
StringGrid6.Cells[j,0]:='1';
f:=0;
for i:=0 to 5 do
if u_ferst[i]>por1-0.1 then
begin
if rg[i]<>1 then
rg[i]:=rg[i]+0.1;
inc(f);
end;
sum2:=0;
for i:=0 to 5 do
begin
if rg[i]<>1 then
rg[i]:=rg[i]-f/10/6;
str(rg[i]:5:4,s);
StringGrid6.Cells[j,i+1]:=s;
sum2:=sum2+rg[i];
end;
for i:=0 to 5 do
if u_ferst[i]>por1-0.1 then
sum:=sum+rg[i];
str(sum:5:4,s);
StringGrid6.Cells[j,7]:=s;
str(sum2:5:4,s);
StringGrid6.Cells[j,9]:=s;
inc(j);
end;
if sum1>por_al then
begin
sum1:=0;
StringGrid6.Cells[j,0]:='2';
f:=0;
for i:=0 to 5 do
if u_second[i]>por1-0.1 then
begin
if rg[i]<>0 then
rg[i]:=rg[i]-0.1;
inc(f);
end;
sum2:=0;
for i:=0 to 5 do
begin
if rg[i]<>0 then
rg[i]:=rg[i]+f/10/6;
str(rg[i]:5:4,s);
StringGrid6.Cells[j,i+1]:=s;
sum2:=sum2+rg[i];
end;
for i:=0 to 5 do
if u_second[i]>por1-0.1 then
sum1:=sum1+rg[i];
str(sum1:5:4,s);
StringGrid6.Cells[j,8]:=s;
str(sum2:5:4,s);
StringGrid6.Cells[j,9]:=s;
inc(j);
end;
end;
for i:=0 to 5 do
begin
if u_ferst[i]>por1-0.1 then
sum:=sum+rg[i];
if u_second[i]>por1-0.1 then
sum1:=sum1+rg[i];
end;
end;
BitBtn9.Enabled:=True;
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
var
i,j,k,m:byte;
a:integer;
sum,sum1:real;
begin
k:=0;
for i:=0 to 3 do
for j:=0 to 3 do
begin
val(StringGrid7.Cells[j,i],m,a);
rasp[k]:=m;
inc(k);
end;
for i:=0 to 5 do
begin
sum:=0;
for j:=0 to 15 do
begin
if rasp[j]=1 then
sum:=sum+rand[j,i];
end;
u_rasp[i]:=sum;
end;
sum1:=0;
for i:=0 to 5 do
if u_rasp[i]>por1-0.1 then
sum1:=sum1+r[i];
if RadioButton1.Checked=true then
if sum1<por_al then
ShowMessage('Введена Буква1.')
else
ShowMessage('Введена Буква2.')
else
if sum1>por_al then
ShowMessage('Введена Буква1.')
else
ShowMessage('Введена Буква2.');
end;
procedure TForm1.StringGrid7MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if StringGrid7.Cells[x_kurs,y_kurs]='1' then
StringGrid7.Cells[x_kurs,y_kurs]:='0'
else
StringGrid7.Cells[x_kurs,y_kurs]:='1';
end;
procedure TForm1.StringGrid7SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
x_kurs:=ACol;
y_kurs:=ARow;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
var
i,j,k,m:byte;
a:integer;
sum,sum1:real;
begin
k:=0;
for i:=0 to 3 do
for j:=0 to 3 do
begin
val(StringGrid7.Cells[j,i],m,a);
rasp_g[k]:=m;
inc(k);
end;
for i:=0 to 5 do
begin
sum:=0;
for j:=0 to 15 do
begin
if rasp_g[j]=1 then
sum:=sum+rand[j,i];
end;
u_rasp_g[i]:=sum;
end;
sum1:=0;
for i:=0 to 5 do
if u_rasp_g[i]>por1-0.1 then
sum1:=sum1+rg[i];
if RadioButton1.Checked=true then
if sum1<por_al then
ShowMessage('Введена Буква1.')
else
ShowMessage('Введена Буква2.')
else
if sum1>por_al then
ShowMessage('Введена Буква1.')
else
ShowMessage('Введена Буква2.');
end;
end.