Навчальна дисципліна Електротехніка і електроніка Комплексна контрольна робота. Варіант № 19
1 до мережі змінного струму під'єднано коло, яке складається з двох паралельних віток, виражено
активним та ємнісшим опорамин R15 Ом, Хc-20 Ом. Напруга на затискачах 120 В,
Визначити струм до розгалудження та струмін на кожному елементі.
2. Генератор постійного струму розвиває EPC 150 B і дає у зовнішнє коло силу струму 30 А,
Визначити потужність, яка віддасться споживачеві, потужність, яку розвиває генератор, потужність
втрат всередині джерела, якщо внутрішній опір 0,6 Ом,
3. До мережі змінного струму з частотою 50 Гц під'єднано трансформатор, обмотки якого представлені
активним опором 5 Ом та ємнісним опором 12 Ом., схема з'єднання трикутник" Фазаrii струм в колі
20 А.
Визначити повний опір фрази, лінійну та фазну напруги, лінійніі струм, коефіцієнт потужності і
активну потужність трьох фаз.​​

var

a,b:string;

i:integer;

begin

readln(a);

readln(b);

For i:=1 to Length(a) do

 begin

 if (a[i]='3') then

 Begin

   Delete(a,i,1);

   InSert('e',a,i);

 End;

 if (a[i]='0') then

 Begin

   Delete(a,i,1);

   InSert('o',a,i);

 End;

 if (a[i]='1') then

 Begin

   Delete(a,i,1);

   InSert('i',a,i);

 End;

 if (a[i]='7') then

 Begin

   Delete(a,i,1);

   InSert('t',a,i);

 End;

 if (a[i]='4') then

 Begin

   Delete(a,i,1);

   InSert('a',a,i);

 End;

 if (a[i]='5') then

 Begin

   Delete(a,i,1);

   InSert('s',a,i);

 End;

 end;

if b in a then

 writeln('YES')

else

 writeln('NO')

end.

// Форматирование вывода вещественного числа можно поставить как нравится, я выбрал 3:3

// Считал, что доля с участием нуля равна 0%

program Calc;

var a, b: integer;

begin

 write('Введите a: ');

 readln(a);

 write('Введите b: ');

 readln(b);

 writeln(a, '+', b, '=', a + b);

 writeln(a, '-', b, '=', a - b);

 writeln(a, '*', b, '=', a * b);

 if (b = 0) then begin

   writeln(a, '/', b, ' не определено');

   writeln(a, ' составляет 0% от числа ', b);

 end

 else begin

   writeln(a, '/', b, '=', (a / b):3:3);

   writeln(a, ' составляет ', (a / b * 100):3:3, '% от числа ', b);

 end;

 if (a = 0) then

   writeln(b, ' составляет 0% от числа ', a)

 else

   writeln(b, ' составляет ', (b / a * 100):3:3, '% от числа ', a);

end.