Расчет трехполюсника

2 Сукач, Е.И. Метод вероятностно-алгебраического моделирования надежности функционально-сложных систем/ Е.И. Сукач // Информатика // -2010 - №3.-С. 18-30.

3 Сукач, Е.И. Методика расчета показателей надежности многокомпонентных структурно-сложных систем со многими состояниями/ Е.И. Сукач // Информатика. - 2011. №3.-С. 13-22.

4 Абрамов, В.Г. Введение в язык Паскаль/В.Г. Абрамов, Н.П. Трифонов, Г.Н. Трифонова. - М.: Наука, 1988. - 215 с.

5 Ван, Т.Д. Стиль, разработка, эффективность, отладка и испытание программ/Т.Д. Ван. - М.: Мир, 1981. - 264 с.

6 Культин, Н.Б. Программирование в Turbo Pascal и Delphi/ Н.Б. Культин. - СПб.: из-во Санкт-Петербург, 1998. - 226 с.

7 3yeв, Е.А. Практическое программирование на языке Turbo Pascal 6.0, 7.0/ Е.А. Зуев. - М.: Радио и связь, 1994. - 167 с.

Приложение А

Листинг программы для вычисления вероятностных характеристик надежности

uses crt;

Label 1;

Var

F1: text;

k1, n1, N, Ny, i, j, s, L, z, w, k, d: integer;

P: array [1.. 50,1..50] of real;

MS: array [1.. 55,1..55] of integer;

R: real; m, h, mh: array [1..66] of integer;

key: char;

PROCEDURE kol_node;

var r_key: char;

begin

repeat

window (1,1,80,25); clrscr;

ASSIGN (F1,'FF1. txt');

rewrite (F1); n1:=1;

write ('vvedite kolichestvo uzlov s='); readln (s);

r_key:=#27; until r_key=#27; close (f1);

end;

PROCEDURE kol_attemp;

var r1_key: char;

begin

window (1,1,80,25); textbackground (blue);

clrscr; repeat

write ('kolichestvo isputanii N='); readln (N);

Ny:=0; r1_key:=#27; until r1_key=#27;

end;

PROCEDURE number_attemp;

label 1,2;

var param: byte; d: integer;

begin

window (1,1,80,25); textbackground (black);

clrscr; assign (f1,'ff1. txt');

append (f1); d:=0; Ny:=0;

for i:=1 to s do

begin

m[i]:=0; h[i]:=0; mh[i]:=0;

for j:=1 to s do

begin

P [i, j]:=0; MS [i, j]:=0;

end;

end;

2: clrscr;

writeln ('dlya avtomaticheskogo vvoda vvedite - 1');

writeln ('dlya ruchnogo vvoda vvedite - 2');

readln (param); if param=2 then

begin

n1:=1;

for i:=1 to s do

begin

n1:=n1+1;

for j:=n1 to s do

begin

write ('vvedite P [', i, ',', j, '] =');

read (P [i, j]); P [j, i]:=P [i, j];

end;

writeln;

END;

End;

if param=1 then

begin

n1:=1;

for i:=1 to s do

begin

n1:=n1+1;

for j:=n1 to s do

begin

P [i, j]:=random; P [j, i]:=P [i, j];

end;

END;

end;

if (param<>1) and (param<>2) then goto 2;

for i:=1 to s do P [i, i]:=1;

for i:=1 to s do

begin

for j:=1 to s do

begin

write (' ', P [i, j]: 1: 3); write (F1,' ', P [i, j]: 2: 3);

end;

writeln; writeln (F1);

end;

1: while d<N do

begin

d:=d+1;

writeln (F1,'nomer isputaniya N=', d);

R:=random; writeln (F1,'R=', R:1:3);

for i:=1 to s do

begin

for j:=1 to s do

begin

if P [i, j]>R then MS [i, j]:=1

ELSE MS [i, j]:=0;

write (F1,' ', MS [i, j]);

end;

writeln (F1);

end;

k:=1; k1:=0;

for j:=1 to s do

begin

mh[j]:=ms [1, j]; m[j]:=ms [1, j]; h[j]:=ms [1, j];

end;

FOR l:=1 to S do

begin

for j:=1 to s do

if m[j]=1 then

begin

k:=j;

for w:=1 to s do

begin

mh[w]:=mh[w]+MS [k, w];

if mh[w]>1 then mh[w]:=1;

end;

end;

z:=0;

for j:=1 to s do

z:=z+mh[j];

if z=k1 then

begin

writeln (F1,'nesvyazana'); goto 1;

end;

k1:=z;

if z=s then

begin

writeln (F1,'svyazana');

Ny:=Ny+1; goto 1;

end;

for j:=1 to s do

begin

m[j]:=mh[j] - h[j]; h[j]:=mh[j];

end;

end;

end;

writeln;

for i:=1 to s do

write (MS [n, i], ' '); writeln;

if z=s then writeln ('svyazana') else writeln ('nesvyazana');

writeln; writeln ('Rn=', Ny/N:1:3);

writeln (F1,'Rn=', Ny/N:1:3);

close (F1); readln; readln;

end;

PROCEDURE MENU;

label ret;

var i, j, x: integer; lin: integer;

s: array [1..5] of string;

begin

key:=#0;

textbackground (7); clrscr;

gotoxy (20,7); textcolor (red);

write ('RASCHET STRUKTURNOI NADEGNOSTI SETI RTS');

textcolor (white); window (8,9,70,14);

textbackground (blue); clrscr;

gotoxy (2,1); write ('+');

gotoxy (62,1); write ('+');

gotoxy (2,6); write ('+');

gotoxy (62,6); write ('+');

for j:=2 to 5 do

begin

gotoxy (2, j); write ('¦');

gotoxy (62, j); write ('¦');

end;

for i:=3 to 61 do

begin

gotoxy (i, 1); write ('-');

gotoxy (i, 6); write ('-');

end;

window (10,10,70,14);

textbackground (green); textcolor (white);

s[1]:='Kolichestvo uzlov';

s[2]:='Kolichestvo isputanii';

s[3]:='Raschet';

s[4]:='Vuhod';

writeln (s[1]); textbackground (blue);

for x:=2 to 4 do

writeln (s [x]); lin:=1;

repeat

repeat until keypressed;

if keypressed then

begin

key:=readkey;

if key=#0 then key:=readkey;

end;

if key=#80 then

begin

gotoxy (1, lin);

textbackground (blue); write (s[lin]);

if lin<4 then lin:=lin+1 else lin:=1;

gotoxy (1, lin); textbackground (green);

write (s[lin]);

end;

if key=#72 then

begin

gotoxy (1, lin);

textbackground (blue); write (s[lin]);

if lin>1 then lin:=lin-1 else lin:=4;

gotoxy (1, lin); textbackground (green);

write (s[lin]);

end;

if key=#13 then

begin

case lin of

1: kol_node;

2: kol_attemp;

3: number_attemp;

4: key:=#27;

end;

end;

until (key=#27) or (key=#13);

window (1,1,80,25);

textbackground (black); clrscr;

end;

BEGIN

repeat

MENU;

until key=#27;

end.

Размещено на Allbest.ru