А3744СУ3 660 перемен 630 60000
Характеристика автоматов типа АП50Б:
Тип автомата Uн В Род тока Номинальный ток Iн А Iоткл А
АП50Б -2МТ 220 пост 63 500
АП50Б -2МТ 380 перемен 63 500
АП50Б -2МТ 500 перемен 63 500
АП50Б -2МТ 600 перемен 63 400
АП50Б -2М 220 пост 63 700
АП50Б -2МТ3Н 380 перемен 63 1400
АП50Б -2МТ3Д 500 перемен 63 1400
АП50Б -2М3ТО 380 перемен 63 10000
Условия выбора автомата:
1. По напряжению установки:
Uуст ≤ Uном
2.По роду тока: постоянный или переменный
3.По значению тока:
Imax ≤ Iном
4.По току отключения КЗ:
Iп,0 ≤ Iоткл
3.Описание программы:
1. При запуске программа предлагает произвести выбор нужного автоматического выключателя, исходя из применяемого вида расцепителя в автомате:
2. Затем программа предлагает ввести расчетные значения сети, для которой выбирается автоматический выключатель:
Пример:
3. По условиям выбора автоматических выключателей программа находит в базе данных автомат (последовательный поиск).
Характеристики автоматов описываются записями, структура которых определена типом avtomat, содержащий пять полей:
1. name – текстовое поле, предназначенное для хранения названия автомата;
2. unom – поле типа real (вещественные числа), содержащее значение номинального напряжения автомата;
3. rodtok – поле типа Integer (знаковые целые числа от -32767 до 32767), содержащее информацию о роде тока, на который рассчитан данный автомат (в нашем случае: 1-постоянный ток, а 2-переменный ток);
4. inom – поле типа real (вещественные числа), содержащее значение номинального тока автомата.
5. iotkl – поле типа real (вещественные числа), содержащее значение тока отключения.
Совокупность данных об автоматах хранится в массиве, состоящий из четырех матриц (матрица для каждого вида выключателя).
Необходимо введение следующих переменных:
· U – установленное напряжение (вещественный тип real);
· r – род тока (поле типа Integer);
· im – рассчитанный максимальный ток (вещественный тип real);
· ip – рассчитанный ток КЗ (вещественный тип real);
5.Текст программы:
program vibor_avtomatov;
uses crt;
type avtomat=record
name:string[10];
unom:real;
rodtok:integer;
inom:real;
iotkl:real;
end;
matr=array[1..12] of avtomat;
var spisok1: matr;
spisok2: matr;
spisok3: matr;
spisok4: matr;
a, rod: integer;
uyst, ipo, imax: real;
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.