←предыдущая следующая→
1 2
program ADC_model_fixed_1;
uses crt;
type
o=array[1 .. 100,1 .. 100] of integer;
q=array[1 .. 100] of boolean;
w=array[1 .. 9] of boolean; { 9 - enabled input }
var data : q;
error:o;
in_data :w;
i,j,e,n,x_coor,max,orig,a,s,d,counter:integer;
test1_comp,test3_comp:boolean;
const
t=true;
f=false;
{-----------------------------------------------------------------------}
procedure clear_array;
begin
for i:=1 to 100 do data[i]:=f; {if t then error}
end;
{-----------------------------------------------------------------------}
procedure set_in_data1;
begin
test3_comp:=t;
test1_comp:=f;
in_data[1]:=f;
in_data[2]:=f;
in_data[3]:=f;
in_data[4]:=f;
in_data[5]:=f;
in_data[6]:=f;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data2;
begin
test3_comp:=f;
test1_comp:=f;
in_data[1]:=t;
in_data[2]:=f;
in_data[3]:=f;
in_data[4]:=f;
in_data[5]:=f;
in_data[6]:=f;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data3;
begin
test3_comp:=f;
test1_comp:=f;
in_data[1]:=t;
in_data[2]:=t;
in_data[3]:=f;
in_data[4]:=f;
in_data[5]:=f;
in_data[6]:=f;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data4;
begin
test3_comp:=f;
test1_comp:=f;
in_data[1]:=t;
in_data[2]:=t;
in_data[3]:=t;
in_data[4]:=f;
in_data[5]:=f;
in_data[6]:=f;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data5;
begin
test3_comp:=f;
test1_comp:=f;
in_data[1]:=t;
in_data[2]:=t;
in_data[3]:=t;
in_data[4]:=t;
in_data[5]:=f;
in_data[6]:=f;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data6;
begin
test3_comp:=f;
test1_comp:=f;
in_data[1]:=t;
in_data[2]:=t;
in_data[3]:=t;
in_data[4]:=t;
in_data[5]:=t;
in_data[6]:=f;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data7;
begin
test3_comp:=f;
test1_comp:=f;
in_data[1]:=t;
in_data[2]:=t;
in_data[3]:=t;
in_data[4]:=t;
in_data[5]:=t;
in_data[6]:=t;
in_data[7]:=f;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_in_data8;
begin
test3_comp:=f;
test1_comp:=t;
in_data[1]:=t;
in_data[2]:=t;
in_data[3]:=t;
in_data[4]:=t;
in_data[5]:=t;
in_data[6]:=t;
in_data[7]:=t;
in_data[8]:=f;
in_data[9]:=f;
end;
{-----------------------------------------------------------------------}
procedure set_error;
begin
data[e]:=t;
e:=e+1;
end;
{-----------------------------------------------------------------------}
procedure fixed_false_test;
begin
{first_line}
if data[1]=true then data[1]:=f else
data[1]:=not(in_data[2]);
if data[2]=true then data[2]:=f else
data[2]:=not(in_data[3]);
if data[3]=true then data[3]:=f else
data[3]:=not(in_data[4]);
if data[4]=true then data[4]:=f else
data[4]:=not(in_data[6]);
{second_line}
if data[5]=true then data[5]:=f else
data[5]:=not(in_data[9]);
if data[6]=true then data[6]:=f else
data[6]:=not(in_data[1]);
if data[7]=true then data[7]:=f else
data[7]:=not(data[1]);
if data[8]=true then data[8]:=f else
data[8]:=not(data[2]);
if data[9]=true then data[9]:=f else
data[9]:=not(data[3]);
if data[10]=true then data[10]:=f else
data[10]:=not(in_data[5]);
if data[11]=true then data[11]:=f else
data[11]:=not(data[4]);
if data[12]=true then data[12]:=f else
data[12]:=not(in_data[7]);
{third_line}
if data[13]=true then data[13]:=f else
data[13]:=(data[5] and data [6]);
if data[14]=true then data[14]:=f else
data[14]:=(data[5] and data [1]);
if data[15]=true then data[15]:=f else
data[15]:=(data[5] and data [2]);
if data[16]=true then data[16]:=f else
data[16]:=(data[5] and data [3]);
if data[17]=true then data[17]:=f else
data[17]:=(data[5] and data [7]);
if data[18]=true then data[18]:=f else
data[18]:=(data[10] and data [8]);
if data[19]=true then data[19]:=f else
data[19]:=(data[5] and data [4]);
if data[20]=true then data[20]:=f else
data[20]:=(data[8] and data [9]);
if data[21]=true then data[21]:=f else
data[21]:=(data[5] and data [7]);
if data[22]=true then data[22]:=f else
data[22]:=(data[9] and data [12]);
if data[23]=true then data[23]:=f else
data[23]:=(in_data[1] and in_data[2]);
if data[24]=true then data[24]:=f else
data[24]:=(in_data[3] and in_data[4]);
if data[25]=true then data[25]:=f else
data[25]:=(in_data[5] and in_data[6]);
if data[26]=true then data[26]:=f else
data[26]:=(in_data[7] and in_data[8]);
{fourth_line}
if data[27]=true then data[27]:=f else
data[27]:=(data[7] and data [15]);
if data[28]=true then data[28]:=f else
data[28]:=(data[17] and data [18]);
if data[29]=true then data[29]:=f else
data[29]:=(data[19] and data [20]);
if data[30]=true then data[30]:=f else
data[30]:=(data[21] and data [22]);
if data[31]=true then data[31]:=f else
data[31]:=(data[23] and data [24]);
if data[32]=true then data[32]:=f else
data[32]:=(data[25] and data [26]);
{fifth_line}
if data[33]=true then data[33]:=f else
data[33]:=(data[9] and data [28]);
if data[34]=true then data[34]:=f else
data[34]:=(data[11] and data [30]);
if data[35]=true then data[35]:=f else
data[35]:=(data[31] and data [32]);
{sixth_line}
if data[36]=true then data[36]:=f else
data[36]:=(data[13] and data [14]);
if data[37]=true then data[37]:=f else
data[37]:=(data[16] or data [27]);
if data[38]=true then data[38]:=f
←предыдущая следующая→
1 2