Выбор автоматических выключателей (автоматов) марок А3700 и АП50Б для защиты участка сети от коротких замыканий и от перегрузок, страница 4

    label  finish;

    procedure vibor(spisok:matr; r: integer; u,im,ip:real);

    var i,k : integer;

        rt: string[6];

    begin

    i:=1;

    k:=0;

    while k=0 do

    begin

    if spisok[i].name = 'конец' then

    begin

    clrscr;

    writeln('Подходящего выключателя в базе нет');

    readkey;

    k:=1;

    end;

    if (u <= spisok[i].unom) and (r = spisok[i].rodtok)

    and (im <= spisok[i].inom) and (ip <= spisok[i].iotkl) then

    begin

    k:=1;

    clrscr;

    if spisok[1].rodtok=1 then rt:='пост' else rt:='перем';

    writeln('Вам подойдет выключатель:');

    writeln;

    writeln('  Тип    Uн  Род тока  Iн    Iоткл');

    writeln(spisok[i].name:8,spisok[i].unom:6:1,rt:7,

             spisok[i].inom:7:1, spisok[i].iotkl:8:2);

    readkey;

    end;

    i:=i+1;

    end;

    end;

    begin

    spisok1[1].name:='А3715Б';

    spisok1[1].unom:=380;

    spisok1[1].rodtok:=2;

    spisok1[1].inom:=160;

    spisok1[1].iotkl:=19.5;

    spisok1[2].name:='А3725Б';

    spisok1[2].unom:=380;

    spisok1[2].rodtok:=2;

    spisok1[2].inom:=170;

    spisok1[2].iotkl:=55;

    spisok1[3].name:='А3715Б';

    spisok1[3].unom:=380;

    spisok1[3].rodtok:=2;

    spisok1[3].inom:=630;

    spisok1[3].iotkl:=19.5;

    spisok1[4].name:='А3715Б';

    spisok1[4].unom:=440;

    spisok1[4].rodtok:=1;

    spisok1[4].inom:=160;

    spisok1[4].iotkl:=19.5;

    spisok1[5].name:='А3725Б';

    spisok1[5].unom:=440;

    spisok1[5].rodtok:=1;

    spisok1[5].inom:=250;

    spisok1[5].iotkl:=40;

    spisok1[6].name:='А3735Б';

    spisok1[6].unom:=440;

    spisok1[6].rodtok:=1;

    spisok1[6].inom:=400;

    spisok1[6].iotkl:=55;

    spisok1[7].name:='А3745Б';

    spisok1[7].unom:=440;

    spisok1[7].rodtok:=1;

    spisok1[7].inom:=630;

    spisok1[7].iotkl:=65;

    spisok1[8].name:='А3715Б';

    spisok1[8].unom:=660;

    spisok1[8].rodtok:=2;

    spisok1[8].inom:=160;

    spisok1[8].iotkl:=36.5;

    spisok1[9].name:='А3725Б';

    spisok1[9].unom:=660;

    spisok1[9].rodtok:=2;

    spisok1[9].inom:=250;

    spisok1[9].iotkl:=40;

    spisok1[10].name:='А3735Б';

    spisok1[10].unom:=660;

    spisok1[10].rodtok:=2;

    spisok1[10].inom:=400;

    spisok1[10].iotkl:=55;

    spisok1[11].name:='А3745Б';

    spisok1[11].unom:=660;

    spisok1[11].rodtok:=2;

    spisok1[11].inom:=630;

    spisok1[11].iotkl:=65;

    spisok1[12].name:='конец';

    spisok2[1].name:='А3713Б';

    spisok2[1].unom:=440;

    spisok2[1].rodtok:=1;

    spisok2[1].inom:=40;

    spisok2[1].iotkl:=19;

    spisok2[2].name:='А3723Б';

    spisok2[2].unom:=440;

    spisok2[2].rodtok:=1;

    spisok2[2].inom:=250;

    spisok2[2].iotkl:=40;

    spisok2[3].name:='А3743Б';

    spisok2[3].unom:=440;

    spisok2[3].rodtok:=1;

    spisok2[3].inom:=630;

    spisok2[3].iotkl:=60;

    spisok2[4].name:='А3714Б';

    spisok2[4].unom:=660;

    spisok2[4].rodtok:=2;

    spisok2[4].inom:=160;

    spisok2[4].iotkl:=19;

    spisok2[5].name:='А3724Б';

    spisok2[5].unom:=660;

    spisok2[5].rodtok:=2;

    spisok2[5].inom:=250;

    spisok2[5].iotkl:=55;

    spisok2[6].name:='А3734Б';

    spisok2[6].unom:=660;

    spisok2[6].rodtok:=2;

    spisok2[6].inom:=400;

    spisok2[6].iotkl:=55;

    spisok2[7].name:='А3733Б';

    spisok2[7].unom:=660;

    spisok2[7].rodtok:=1;

    spisok2[7].inom:=400;

    spisok2[7].iotkl:=55;

    spisok2[8].name:='А3744Б';

    spisok2[8].unom:=660;

    spisok2[8].rodtok:=2;

    spisok2[8].inom:=630;

    spisok2[8].iotkl:=60;

    spisok2[9].name:='конец';

    spisok3[1].name:='А3733C';