Расчет режима работы электрической цепи» по дисциплине «Основы программирования»

 

 

 

 

 

 

 

 

 

 

 

 

 

{J6}

circle(45,220,15);

line(40,220,45,217);

line(40,220,45,223);

line(45,220,50,217);

line(45,220,50,223);

outtextxy(15,230,'J6');

fillellipse(20,225,1,1);

line(10,10,110,10);

line(140,10,280,10);

line(280,10,280,160);

line(280,190,280,250);

line(280,250,240,250);

line(210,250,60,250);

line(30,250,10,250);

line(10,250,10,10);

line(10,100,30,100);

line(60,100,110,100);

line(140,100,210,100);

line(240,100,280,100);

line(90,100,90,70);

line(90,70,110,70);

line(140,70,160,70);

line(160,70,160,100);

line(180,100,180,160);

line(180,190,180,250);

line(10,220,30,220);

line(60,220,80,220);

line(80,220,80,250);

{I4}

line(10,85,7,80);

line(10,85,13,80);

outtextxy(15,70,'I4');

fillellipse(18,65,1,1);

{I3}

line(15,100,20,97);

line(15,100,20,103);

outtextxy(15,113,'I3');

fillellipse(18,108,1,1);

{I6}

line(10,130,7,135);

line(10,130,13,135);

outtextxy(15,140,'I6');

fillellipse(18,135,1,1);

{I1}

line(180,115,177,120);

line(180,115,183,120);

outtextxy(185,115,'I1');

fillellipse(188,110,1,1);

{I5}

line(190,100,195,97);

line(190,100,195,103);

outtextxy(190,85,'I5');

fillellipse(193,80,1,1);

{I2}

line(190,250,195,247);

line(190,250,195,253);

outtextxy(190,263,'I2');

fillellipse(193,258,1,1);

 

 

 

 

 

 

 

 

{I11}

arc(140,50,325,180,30);

line(110,50,107,45);

line(110,50,113,45);

outtextxy(135,35,'I11');

fillellipse(138,30,1,1);

{I22}

arc(90,160,180,90,30);

line(60,160,57,165);

line(60,160,63,165);

outtextxy(80,150,'I22');

fillellipse(83,145,1,1);

{I33}

arc(240,150,0,270,30);

line(270,150,267,145);

line(270,150,273,145);

outtextxy(230,150,'I33');

fillellipse(233,145,1,1);

{dano}

setcolor(18);

outtextxy(360,30,'isxodnie dannie:');

line(360,42,484,42);

setcolor(17);

outtextxy(360,60,'Z1=14-j6 Ohm');

line(360,70,373,70);

outtextxy(360,80,'Z2=13+j5 Ohm');

line(360,90,373,90);

outtextxy(360,100,'Z3=9+j2  Ohm');

line(360,110,373,110);

outtextxy(360,120,'Z4=10-j3 Ohm');

line(360,130,373,130);

outtextxy(360,140,'Z5=15+j4 Ohm');

line(360,150,373,150);

outtextxy(360,160,'Z6=16+j2 Ohm');

line(360,170,373,170);

setcolor(5);

outtextxy(500,60,'E2=16e     V');

fillellipse(503,55,1,1);

outtextxy(547,54,'-j25');

outtextxy(500,90,'E3=8e    V');

fillellipse(503,85,1,1);

outtextxy(540,84,'j20');

setcolor(28);

outtextxy(500,130,'J3=2.7e     A');

fillellipse(505,125,1,1);

outtextxy(555,124,'-j15');

outtextxy(500,160,'J6=1.2e    A');

fillellipse(505,155,1,1);

outtextxy(555,150,'j90');

{uzli}

setcolor(red);

outtextxy(176,257,'c');

outtextxy(287,95,'b');

outtextxy(176,88,'a');

outtextxy(0,100,'d');

outtextxy(88,105,'n');

 

readln;

end;

 

 

 

 

 

 

 

 

setcolor(1);

outtextxy(50,280,'Toki v vetvyax:');

str(I1.x:6:3,d);

str(I1.y:6:3,m);

if I1.y>0 then

outtextxy(50,300,'I1='+d+'+'+m+'j A') else outtextxy(50,300,'I1='+d+m+'j A');

str(I2.x:6:3,d);

str(I2.y:6:3,m);

if I2.y>0 then

outtextxy(50,320,'I2='+d+'+'+m+'j A') else outtextxy(50,320,'I2='+d+m+'j A');

str(I3.x:6:3,d);

str(I3.y:6:3,m);

if I3.y>0 then

outtextxy(50,340,'I3='+d+'+'+m+'j A') else outtextxy(50,340,'I3='+d+m+'j A');

str(I4.x:6:3,d);

str(I4.y:6:3,m);

if I4.y>0 then

outtextxy(50,360,'I4='+d+'+'+m+'j A') else outtextxy(50,360,'I4='+d+m+'j A');

str(I5.x:6:3,d);

str(I5.y:6:3,m);

if I5.y>0 then

outtextxy(50,380,'I5='+d+'+'+m+'j A') else outtextxy(50,380,'I5='+d+m+'j A');

str(I6.x:6:3,d);

str(I6.y:6:3,m);

if I6.y>0 then

outtextxy(50,400,'I6='+d+'+'+m+'j A') else outtextxy(50,400,'I6='+d+m+'j A');

fillellipse(53,297,1,1);

fillellipse(53,317,1,1);

fillellipse(53,337,1,1);

fillellipse(53,357,1,1);

fillellipse(53,377,1,1);

fillellipse(53,397,1,1);

setcolor(2);

outtextxy(230,280,'Napryajenya na elementax:');

str(U1.x:6:3,d);

str(U1.y:6:3,m);

if U1.y>0 then

outtextxy(230,300,'U1='+d+'+'+m+'j V') else outtextxy(230,300,'U1='+d+m+'j V');

str(U2.x:6:3,d);

str(U2.y:6:3,m);

if U2.y>0 then

outtextxy(230,320,'U2='+d+'+'+m+'j V') else outtextxy(230,320,'U2='+d+m+'j V');

str(U3.x:6:3,d);

str(U3.y:6:3,m);

if U3.y>0 then

outtextxy(230,340,'U3='+d+'+'+m+'j V') else outtextxy(230,340,'U3='+d+m+'j V');

str(U4.x:6:3,d);

str(U4.y:6:3,m);

if U4.y>0 then

outtextxy(230,360,'U4='+d+'+'+m+'j V') else outtextxy(230,360,'U4='+d+m+'j V');

str(U5.x:6:3,d);

str(U5.y:6:3,m);

if U5.y>0 then

outtextxy(230,380,'U5='+d+'+'+m+'j V') else outtextxy(230,380,'U5='+d+m+'j V');

str(U6.x:6:3,d);

str(U6.y:6:3,m);

if U6.y>0 then

outtextxy(230,400,'U6='+d+'+'+m+'j V') else outtextxy(230,400,'U6='+d+m+'j V');

 

 

 

 

 

 

 

 

fillellipse(233,297,1,1);

fillellipse(233,317,1,1);

fillellipse(233,337,1,1);

fillellipse(233,357,1,1);

fillellipse(233,377,1,1);

fillellipse(233,397,1,1);

setcolor(9);

outtextxy(430,280,'Moschnosty na elementax:');

str(S1.x:6:3,d);

str(S1.y:6:3,m);

if S1.y>0 then

outtextxy(430,300,'S1='+d+'+'+m+'j Wt') else outtextxy(430,300,'S1='+d+m+'j Wt');

str(S2.x:6:3,d);

str(S2.y:6:3,m);

if S2.y>0 then

outtextxy(430,320,'S2='+d+'+'+m+'j Wt') else outtextxy(430,320,'S2='+d+m+'j Wt');

str(S3.x:6:3,d);

str(S3.y:6:3,m);

if S3.y>0 then

outtextxy(430,340,'S3='+d+'+'+m+'j Wt') else outtextxy(430,340,'S3='+d+m+'j Wt');

str(S4.x:6:3,d);

str(S4.y:6:3,m);

if S4.y>0 then

outtextxy(430,360,'S4='+d+'+'+m+'j Wt') else outtextxy(430,360,'S4='+d+m+'j Wt');

str(S5.x:6:3,d);

str(S5.y:6:3,m);

if S5.y>0 then

outtextxy(430,380,'S5='+d+'+'+m+'j Wt') else outtextxy(430,380,'S5='+d+m+'j Wt');

str(S6.x:6:3,d);

str(S6.y:6:3,m);

if S6.y>0 then

outtextxy(430,400,'S6='+d+'+'+m+'j Wt') else outtextxy(430,400,'S6='+d+m+'j Wt');

fillellipse(433,297,1,1);

fillellipse(433,317,1,1);

fillellipse(433,337,1,1);

fillellipse(433,357,1,1);

fillellipse(433,377,1,1);

fillellipse(433,397,1,1);

setcolor(4);

outtextxy(50,420,'Balans moschnostey:');

str(S11.x:6:3,d);

str(S11.y:6:3,m);

if S11.y>0 then

outtextxy(50,440,'S11='+d+'+'+m+'j Wt')

else outtextxy(50,440,'S11='+d+m+'j Wt');

str(S22.x:6:3,d);

str(S22.y:6:3,m);

if S22.y>0 then

outtextxy(250,440,'S22='+d+'+'+m+'j Wt')

else outtextxy(250,440,'S22='+d+m+'j Wt');

readln;

closegraph;

 

 

 

end.