Синтез структуры сети. Изучение математической модели и метода синтеза звездообразной структуры ЛВС

fy">  
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 

Блок  – схема:

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Листинг программы:

program zvezda;

uses crt;

const n=19;

var S: array[1..n] of integer;

    i,a: integer;

    k,k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k11,k12,k13,k14,k15,k16,k17,k18:integer;

    h,v,x,q,w,e,r,t,u,o,p,m,d,g,z,l:integer;

begin

clrscr;

k1:=2;

writeln('Vvedite k2');

readln(k2);

k:=k1+k2;

readln(k3);

writeln('Vvedite k3');

h:=k+k3;

readln(k4);

writeln('Vvedite k4');

v:=h+k4;

readln(k5);

writeln('Vvedite k5');

x:=k5+v;

readln(k6);

writeln('Vvedite k6');

q:=k6+x;

readln(k7);

writeln('Vvedite k7');

w:=k7+q;

readln(k8);

writeln('Vvedite k8');

e:=k8+w;

readln(k9);

writeln('Vvedite k9');

r:=k9+e;

readln(k10);

writeln('Vvedite k10');

t:=k10+r;

readln(k11);

writeln('Vvedite k11');

u:=k11+t;

readln(k12);

writeln('Vvedite k12');

o:=k12+u;

readln(k13);

writeln('Vvedite k13');

p:=k13+o;

readln(k14);

writeln('Vvedite k14');

m:=k14+p;

readln(k15);

writeln('Vvedite k15');

d:=k15+m;

readln(k16);

writeln('Vvedite k16');

g:=k16+d;

readln(k17);

writeln('Vvedite k17');

l:=k17+g;

readln(k18);

writeln('Vvedite k18');

z:=k18+l;

writeln('Znacheniya pervogo stolbca:');

writeln('k1=',k1,'k=',k,'h=',h,'v=',v,'x=',x,'q=',q,'w=',w,'e=',e,'r=',r,'t=',t);

writeln('u=',u,'o=',o,'p=',p,'m=',m,'d=',d,'g=',g,'l=',l,'z=',z);

s[1]:=k1+k+h+v+x+q+w+e+r+t+u+o+p+m+d+g+l+z;

s[2]:=k1+k1+k+h+v+x+q+w+e+r+t+u+o+p+m+d+g+l;

s[3]:=k+k1+k1+k+h+v+x+q+w+e+r+t+u+o+p+m+d+g;

s[4]:=h+k+k1+k1+k+h+v+x+q+w+e+r+t+u+o+p+m+d;

s[5]:=v+h+k+k1+k1+k+h+v+x+q+w+e+r+t+u+o+p+m;

s[6]:=x+v+h+k+k1+k1+k+h+v+x+q+w+e+r+t+u+o+p;

s[7]:=q+x+v+h+k+k1+k1+k+h+v+x+q+w+e+r+t+u+o;

s[8]:=w+q+x+v+h+k+k1+k1+k+h+v+x+q+w+e+r+t+u;

s[9]:=e+w+q+x+v+h+k+k1+k1+k+h+v+x+q+w+e+r+t;

s[10]:=(k1+k+h+v+x+q+w+e+r)*2;

s[11]:=t+r+e+w+q+x+v+h+k+k1+k1+k+h+v+x+q+w+e;

s[12]:=u+t+r+e+w+q+x+v+h+k+k1+k1+k+h+v+x+q+w;

s[13]:=o+t+r+e+w+q+x+v+h+k+k1+k1+k+h+v+x+q+w;

s[14]:=p+o+t+r+e+w+q+x+v+h+k+k1+k1+k+h+v+x+q;

s[15]:=m+p+o+t+r+e+w+q+x+v+h+k+k1+k1+k+h+v+x;

s[16]:=s[4];

s[17]:=s[3];

s[18]:=s[2];

s[19]:=s[1];

writeln('s[1]=',s[1],'s[2]=',s[2],'s[3]=',s[3],'s[4]=',s[4],'s[5]=',s[5]);

writeln('s[6]=',s[6],'s[7]=',s[7],'s[8]=',s[8],'s[9]=',s[9],'s[10]=',s[10]);

writeln('s[11]=',s[11],'s[12]=',s[12],'s[13]=',s[13],'s[14]=',s[14],'s[15]=',s[15]);

writeln('s[16]=',s[16],'s[17]=',s[17],'s[18]=',s[18],'s[19]=',s[19]);

a:=1000;

for i:=1 to 19 do

if (a>s[i]) then a:=s[i];

writeln('a=',a);

readln;

end.