Методичка_Теорія локомотивної тяги

HN1:=hn[e,1]+(hn[e+1,1]-hn[e,1])*(Isr-di*int(Isr/di))/di; End

else Begin HN1:=z; HN2:=0;

if dt/hn1>=0.1 then goto 5 else

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9; peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]); goto 2;

end;

if dt/hn1>=0.1 then goto 5 else

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9; HN2:=hn[e,2]+(hn[e+1,2]-hn[e,2])*(Isr-di*int(Isr/di))/di; peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]); goto 2;

5:n9:=1;

6:dt:=dt/2;

Isr:=(i0+Isr*kted)/(2*kted); k9:=((Isr-in1)/di);

if Isr<>0 then Begin

if frac(k9)=0 then Begin e:=round(k9);e:=e+1; End

else

if frac(k9)>=0.5 then e:=round(k9) else e:=trunc(k9)+1;

HN1:=hn[e,1]+(hn[e+1,1]-hn[e,1])*(Isr-di*int(Isr/di))/di; End

else Begin HN1:=z; HN2:=0; End;

if dt/hn1>=0.1 then Begin

n9:=n9+1; goto 6; End

else y:=1;

for s:=1 to n9 do Begin

y:=y*2;

end;

for n8:=1 to y do Begin dIsr:=Isr-i0;

Isr:=Isr+(n8-1)*2*dIsr; k9:=((Isr-in1)/di);

if Isr<>0 then Begin

if frac(k9)=0 then Begin e:=round(k9);e:=e+1; End

else

if frac(k9)>=0.5 then e:=round(k9) else e:=trunc(k9)+1;

HN1:=hn[e,1]+(hn[e+1,1]-hn[e,1])*(Isr-di*int(Isr/di))/di; End

else Begin HN1:=z; HN2:=0;

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9; peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]); goto 3;

end;

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9; HN2:=hn[e,2]+(hn[e+1,2]-hn[e,2])*(Isr-di*int(Isr/di))/di; peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]); 3:write(lst,’ | ‘,peregrev[i9,0]:6:0,’| ‘,peregrev[i9,1]:6:2,’|’,peregrev[i9,3]:6:0);

writeln(lst,’| ‘,peregrev[i9,4]:6:4,’| ‘,peregrev[i9,5]:6:2,’|’); i9:=i9+1;

End; goto 1;

2:write(lst,’ | ‘,peregrev[i9,0]:6:0,’| ‘,peregrev[i9,1]:6:2,’| ‘,peregrev[i9,3]:6:0);

writeln(lst,’| ‘,peregrev[i9,4]:6:4,’| ‘,peregrev[i9,5]:6:2,’|’); i9:=i9+1;

1: End;

Readln;

END.