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

    spisok3[1].unom:=440;

    spisok3[1].rodtok:=1;

    spisok3[1].inom:=400;

    spisok3[1].iotkl:=50;

    spisok3[2].name:='А3743C';

    spisok3[2].unom:=440;

    spisok3[2].rodtok:=1;

    spisok3[2].inom:=630;

    spisok3[2].iotkl:=60;

    spisok3[3].name:='А3734C';

    spisok3[3].unom:=660;

    spisok3[3].rodtok:=2;

    spisok3[3].inom:=400;

    spisok3[3].iotkl:=50;

    spisok3[4].name:='А3743C';

    spisok3[4].unom:=660;

    spisok3[4].rodtok:=1;

    spisok3[4].inom:=630;

    spisok3[4].iotkl:=60;

    spisok3[5].name:='А3744C';

    spisok3[5].unom:=660;

    spisok3[5].rodtok:=2;

    spisok3[5].inom:=630;

    spisok3[5].iotkl:=60;

    spisok3[6].name:='конец';

    spisok4[1].name:='АП50Б-2МТ';

    spisok4[1].unom:=220;

    spisok4[1].rodtok:=1;

    spisok4[1].inom:=63;

    spisok4[1].iotkl:=0.5;

    spisok4[2].name:='АП50Б-2М';

    spisok4[2].unom:=220;

    spisok4[2].rodtok:=1;

    spisok4[2].inom:=63;

    spisok4[2].iotkl:=0.7;

    spisok4[3].name:='АП50Б-2МТ';

    spisok4[3].unom:=380;

    spisok4[3].rodtok:=2;

    spisok4[3].inom:=63;

    spisok4[3].iotkl:=0.5;

    spisok4[4].name:='АП50Б-2М3Н';

    spisok4[4].unom:=380;

    spisok4[4].rodtok:=2;

    spisok4[4].inom:=63;

    spisok4[4].iotkl:=1.4;

    spisok4[5].name:='АП50Б-2М3ТО';

    spisok4[5].unom:=380;

    spisok4[5].rodtok:=2;

    spisok4[5].inom:=63;

    spisok4[5].iotkl:=10;

    spisok4[6].name:='АП50Б-2МТ';

    spisok4[6].unom:=500;

    spisok4[6].rodtok:=2;

    spisok4[6].inom:=63;

    spisok4[6].iotkl:=0.5;

    spisok4[7].name:='АП50Б-2МТ3Д';

    spisok4[7].unom:=500;

    spisok4[7].rodtok:=2;

    spisok4[7].inom:=63;

    spisok4[7].iotkl:=1.4;

    spisok4[8].name:='АП50Б-2МТ';

    spisok4[8].unom:=600;

    spisok4[8].rodtok:=2;

    spisok4[8].inom:=63;

    spisok4[8].iotkl:=0.4;

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

    clrscr;

    writeln;

    writeln(' 1.Токоограничивающие  выключатели  серии  А3700');

    writeln('   с тепловыми и электромагнитными расцепителями');

    writeln;

    writeln(' 2.Токоограничивающие  выключатели  серии  А3700');

    writeln('   с полупроводниковыми и электромагнитным      ');

    writeln('   расцепителями максимального тока             ');

    writeln;

    writeln(' 3.Селективные выключатели серии А3700 с        ');

    writeln('   полупроводниковыми расцепителями             ');

    writeln;

    writeln(' 4.Автоматы типа АП50Б                          ');

    writeln;

    writeln(' 5.Выход');

    writeln;

     write(' Ваш выбор: ');

    {$I-}

    repeat

    window (12,16,13,16);

    readln(a);

    until (ioresult=0) and (a>0) and (a<6);

    {$I+}

    window (1,1,80,25);

    if a=5 then goto finish;

    clrscr;

    write('Введите Uуст, В: ');

    readln(uyst);

    writeln;

    writeln('Какой род тока?');

    writeln;

    writeln('Введите "1", если постоянный');

    writeln;

    writeln('Введите "2", если переменный');

    writeln;

    write('Ваш выбор: ');

    readln(rod);

    writeln;

    write('Введите Imax, А: ');

    readln(imax);

    writeln;

    write('Введите Iп,0, кА: ');

    readln(ipo);

    if a=1 then vibor(spisok1, rod, uyst, imax, ipo);

    if a=2 then vibor(spisok2, rod, uyst, imax, ipo);

    if a=3 then vibor(spisok3, rod, uyst, imax, ipo);

    if a=4 then vibor(spisok4, rod, uyst, imax, ipo);

    finish:

    end.

Список используемой литературы

1.  А.С. Горобец, И.Х. Евзеров  Автоматические выключатели серии А3700, 1984

2.  Фаронов В. В. Turbo Pascal 7.0. Начальный курс. Учебное пособие.