Текст програми

USES CRT, DOS,Printer;

label 1;

VAR

i,t:integer;

K, Y, V2, G4, A1, B1, G6, G8, A, B, J, P1, Q: REAL;

V, F, W1, A5, WO, B4, W3, C, D, W5, E, M, G, L, B5, H2, H:REAL;

P, W4, W6, W8, M4, M6, M8, S1: REAL;

s:text;

BEGIN assign(s,’out.txt’);

clrscr;

rewrite(s);

K:=K*9.81;

G4:=G4*9.81;

G6:=G6*9.81;

G8:=G8*9.81;

k:=7;

y:=0.97;

v2:=100;

g4:=22;

g6:=0;

g8:=20.75;

a1:=0.25;

b1:=0.75;

a:=0.82;

b:=0;

j:=0.18;

p1:=238;

q:=4300;

WRITELN(‘ВВЕДИТЕ ДАННЫЕ’);

WRITELN(‘РАСЧЕТНЫЕ СИЛЫ НАЖАТИЯ ТОРМ. КОЛОДОК НА ОСЬ ТС/ОСЬ К=‘);

READ(K);

WRITELN(‘ДОЛЯ ТОРМОЗНЫХ ОСЕЙ В СОСТАВЕ::::::::::::.. Y=‘);

READ(Y);

WRITELN(‘КОНСТРУКЦИОННАЯ СКОРОСТЬ ЛОКОМОТИВА;;::::: V2=‘);

READ(V2);

WRITELN (‘НАГРУЗКА НА ОСЬ 4-Х ОСНЫХ ВАГОНОВ::::::::::. G4=‘);

READ(G4);

WRITELN(‘ДОЛЯ 4-Х ОСНЫХ ВАГОНОВ НА ПОДШИПНИКАХ СКОЛЬЖЕНИЯ А1=‘);

READ(A1);

WRITELN(‘ДОЛЯ 4-Х ОСНЫХ ВАГОНОВ НА ПОДШИПНИКАХ КАЧЕНИЯ:: В1=‘);

READ(B1);

WRITELN(‘НАГРУЗКА НА ОСЬ 6-ОСНЫХ ВАГОНОВ:::::::::::.. G6=‘);

READ(G6);

WRITELN(‘НАГРУЗКА НА ОСЬ 8-ОСНЫХ ВАГОНОВ:::;:::::::.. G8=‘);

READ(G8);

WRITELN(‘ДОЛЯ 4-Х ОСНЫХ ВАГОНОВ В СОСТАВЕ::::::::::: А=‘);

READ (A);

if g6=0 then b:=0 else

begin

WRITELN(‘ДОЛЯ 6-ОСНЫХ ВАГОНОВ В СОСТАВЕ:::::::::::: В=‘);

READ(B);

end;

WRITELN(‘ДОЛЯ 8-ОСНЫХ ВАГОНОВ В СОСТАВЕ:::::::::::: J=‘);

READ(J);

WRITELN(‘РАСЧЕТНЫЙ ВЕС ЛОКОМОТИВА:;::::::::::::... Р1=‘);

READ(P1);

WRITELN(‘МАССА СОСТАВА С ОКРУГЛЕНИЕМ ДО 50 ТОНН:::::::. Q=‘);

READ(Q);

readln;

writeln(‘Введите количество пар скорости и сил тяги’);readln(t);

WRITELN(s,’-----------------------------------------------------------’);

WRITELN(s,’ V F W1 A5 WO B4 W3 C D W5 E M G L B5 H2 H’);

WRITELN(s,’-----------------------------------------------------------’);

WRITELN(lst,’---------------------------------------------------------’);

WRITELN(lst,’ V F W1 A5 WO B4 W3 C D W5 E M G L B5 H2 H’);

WRITELN(lst,’----------------------------------------------------------’);

for i:=1 to t do

BEGIN

writeln(‘Введите попарно скорости и соотв. силы тяги из тяговой характеристики-V,F’);

readln(v,f);

if (v2-v)<0 then goto 1;

P:=P1;

W1:=1.9+0.01*V+0.0003*(V*V);

A5:=P*W1;

W4:=0.7+(3+0.1*V+0.0025*(V*V)) / G4;

IF G6=0 THEN b:=0 ELSE W6:=0.7+(8+0.1*V+0.0025*(V*V)) / G6;

W8:=0.7+(6+0.038*V+0.0021*(V*V)) / G8;

WO:=A*W4+B*W6+J*W8;

B4:=WO*Q;

W3:=A5+B4;

C:=F-W3;

D:=C/(P+Q);

W5:=2.4+0.011+0.00035*(V*V);

E:=P*W5;

M:=E+B4;

G:=M / (P+Q);

M8:=INT((J*Q) / (G8*8)+0.5);

if G6=0 then M6:=0

else M6:=INT((B*Q) / (G6*6)+0.5);

M4:=INT((A*Q) / (G4*4)+0.5);

S1:=Y*K*(M4*4+M6*6+M8*8)/(P1+Q);

IF k=7 THEN L:=0.27*((V+100) / (5*V+100)) ELSE L:=0.36*((V+150) / (2*V+150));

B5:=1000*S1*L;

H2:=(B5 / 2)+G;

H:=B5+G;

WRITELN(s,V:3:0,’ ‘,F:3:0,’ ‘,W1:3:2,’ ‘,A5:3:0,’ ‘,WO:3:2,’ ‘,

B4:3:0,’ ‘,W3:3:0,’ ‘,C:3:0,’ ‘,D:3:2,’ ‘,W5:3:2,’ ‘,E:3:0,’ ‘, M:3:0,’ ‘,

G:3:2,’ ‘,L:3:2,’ ‘,B5:3:1,’ ‘,H2:3:1,’ ‘,H:3:0);

WRITELN(lst,V:3:0,’ ‘,F:3:0,’ ‘,W1:3:2,’ ‘,A5:3:0,’ ‘,WO:3:2,’ ‘,

B4:3:0,’ ‘,W3:3:0,’ ‘,C:3:0,’ ‘,D:3:2,’ ‘,W5:3:2,’ ‘,E:3:0,’ ‘, M:3:0,’ ‘,

G:3:2,’ ‘,L:3:2,’ ‘,B5:3:1,’ ‘,H2:3:1,’ ‘,H:3:0);

1:end;

WRITELN(s,’---------------------------------------------------------------’);

writeln(s,’k=‘,k:5:2);

writeln(s,’y=‘,y:5:2);

writeln(s,’v2=‘,v2:5:2);

writeln(s,’g4=‘,g4:5:2);

writeln(s,’g6=‘,g6:5:2);

writeln(s,’g8=‘,g8:5:2);

writeln(s,’a1=‘,a1:5:2);

writeln(s,’b1=‘,b1:5:2);

writeln(s,’a=‘,a:5:2);

writeln(s,’b=‘,b:5:2);

writeln(s,’j=‘,j:5:2);

writeln(s,’p1=‘,p1:5:2);

writeln(s,’q=‘,q:5:2);

WRITELN(lst,’-------------------------------------------------------------’);

writeln(lst,’k=‘,k:5:2);

writeln(lst,’y=‘,y:5:2);

writeln(lst,’v2=‘,v2:5:2);

writeln(lst,’g4=‘,g4:5:2);

writeln(lst,’g6=‘,g6:5:2);

writeln(lst,’g8=‘,g8:5:2);

writeln(lst,’a1=‘,a1:5:2);

writeln(lst,’b1=‘,b1:5:2);

writeln(lst,’a=‘,a:5:2);

writeln(lst,’b=‘,b:5:2);

writeln(lst,’j=‘,j:5:2);

writeln(lst,’p1=‘,p1:5:2);

writeln(lst,’q=‘,q:5:2);

WRITEln(‘Расчет таблицы закончен.Результаты в файле out.txt’);

readln;

end.

Додаток Г