Программа для расчета показателей нагруженности сцепления

program kyrsach;
var Ia,Wo,Mf,R0,Wu,Wb,t,Au,x,p,Av:real;
Ma,d,B,Nm,f,D2,d1,Ukp1,Ugp,Nkp1,Nk,Ngp,C,l,Memax,Mn,Zu,Hz:real;
q:text;
begin
{параметры автомобильного колеса (d,H,B), берутся из обозначения автомобильной шины}
writeln('Выберите характеристики шин');
writeln('1-165/70-R13');
writeln('2-175/70-R13');
readln(x);
if x=1 then p:=70;
            d:=13;
            B:=165;
            hz:=0.8;
if x=2 then p:=70;
            d:=13;
            b:=175;
            hz:=0.85;
R0:=(0.5*d*25.4+(Hz*p/100)*B)/1000;
writeln('R0=',R0:0:2,'м');
writeln('Введите Ma-полная масса автомобиля');readln(Ma);
Ma:=Ma;
Ia:=Ma*sqr(R0);
writeln('Момент инерции маховика Ia=',Ia:3:1,'кг*м^2');
writeln(' Найдем Wo-скорость вращения коленчатого вала двигателя ');
writeln(' введите Nm-частота вращения коленчатого вала, соответствующая максимальному моменту двигателя '); readln(Nm);
Wo:=(3.14*Nm/90)+50*3.14;
writeln(' Wo=',Wo:3:1,'c^-1');
writeln(' Найдем Mf-момент сопротивления движения автомобиля, приведенный к ведомой части сцепления');
writeln(' Выберите тип покрытия');
writeln('1- асфальтовое покрытие');
writeln('2- булыжная мостовая');
writeln('3- гравий');
writeln('4- грунт');
writeln('5-песок');
readln(f);
if f=1 then f:=0.014 else
if f=2 then f:=0.025 else
if f=3 then f:=0.02 else
if f=4 then f:=0.01 else
if f=5 then f:=0.01;
Writeln(' Выберите необходимый автомобиль');
writeln('1-ВАЗ-2108');
writeln('2-ВАЗ-2109');
writeln('3-Другой автомобиль');
readln(Av);
if Av=1 then begin
             Ukp1:=3.75;
             Ugp:=4.3;
             Nkp1:=0.9604;
             Nk:=0.9801;
             Ngp:=0.97
             end;
if Av=2 then begin 
             Ukp1:=3.63;
             Ugp:=3.9;
             Nkp1:=0.9605;
             Nk:=0.9708;
             Ngp:=0.96;
             end;
if Av=3 then Begin 
             Writeln('введите Ukp1-передаточное число коробки передач на первой передаче'); readln(Ukp1);
             Writeln('введите Ugp-передаточное число главной передачи'); readln(Ugp);
             Writeln('введите Nkp1-передаточное число коробки передач на первой передаче'); readln(Nkp1);
             Writeln('введите Nk-коэффициент полезного действия карданной передачи'); readln(Nk);
             Writeln('введите Ngp-коэффициент полезного действия главной передачи'); readln(Ngp);
             end;
Mf:=f*Ma*R0*9.8/(Ukp1*Ugp*Nkp1*Nk*Ngp);
Mf:=Mf*0.1;
writeln('Mf=',Mf:0:2,'Кг*m');
writeln(' Определим работу буксования Wb');
writeln(' введите Memax'); readln(Memax);
Wb:=0.5*Ia*sqr(Wo)*Memax/(0.6*(Memax-Mf));
Wb:=Wb/100;
writeln('Wb=',Wb:5:2,'Дж');
Writeln(' Опредим удельную работу буксования Wu');
writeln(' введите Zu-число ведомых дисков '); readln(Zu);
writeln(' введите D2-Наружный диаметр фрикционной накладок ведомого диска '); readln(D2);
writeln(' введите d1-Внутренний диаметр фрикционной накладки ведомого диска '); readln(d1); 
Au:=(3.14*Zu*(sqr(D2)-sqr(d1)))/4;
Wu:=Wb/Au;
writeln('Wu=',Wu:3:1,'Дж/с');
If Wu<160 then
writeln(' условие выполняется');
if Wu>160 then
writeln(' условие не выполняется');
writeln(' Расчитаем среднюю температуру нажимного диска t');
writeln(' введите l-доля теплоты, воспринимаемой нажимным (промежуточным) диском'); readln(l);
writeln(' введите Mn-масса диска'); readln(Mn);
writeln(' из какого материала сделан диск');
writeln('1- сталь');
writeln('2-чугун');
readln(C);
if c=1 then c:=462 else
if c=2 then c:=481.5;
t:=l*Wb/(Mn*C);
writeln('t=',t:2:2,'*C');
If t>20 then 
writeln(' условие не выполнется')else
if t<20 then
writeln(' условие выполняется');
assign(q,'D:/new/Kr.rez');
Rewrite(q);
writeln(q,' ':15,'Курсовая работа');
writeln(q,' ':5,'Алгоритм расчета показателей нагруженности сцепления');
writeln(q);
writeln(q,' ':5,'Судент группы 101111-14 Завадский В.Д');
writeln(q);
writeln(q,'  Исходные данные');
writeln(q);
writeln(q,'Полная масса автомобиля Ma=',Ma,'кг');
writeln(q,'Частота вращения коленчатого вала, соответствующая максимальному моменту двигателя Nm=',Nm,'об/мин ');
Writeln(q,'Передаточное число коробки передач на первой передаче Ukp1=',Ukp1); 
Writeln(q,'Передаточное число главной передачи Ugp=',Ugp);
Writeln(q,'Передаточное число коробки передач на первой передаче Nkp1=',Nkp1);
Writeln(q,'Коэффициент полезного действия карданной передачи Nk=',Nk);
Writeln(q,'Коэффициент полезного действия главной передачи Ngp=',Ngp);
writeln(q,'Memax=',Memax);
writeln(q,'Число ведомых дисков Zu=',Zu);
writeln(q,'Наружный диаметр фрикционной накладок ведомого диска D2=',D2,'cm');
writeln(q,'Внутренний диаметр фрикционной накладки ведомого диска d1=',d1,'cm');
writeln(q,'Масса диска Mn=',Mn,'кг');
writeln(q,'Доля теплоты, воспринимаемой нажимным (промежуточным) диском l=',l);
Writeln(q);
writeln(q,'  Значения выбранных коэффициентов');
Writeln(q);
writeln(q,'Радиус качения колеса R0=',R0:0:2,'м');
writeln(q,'Момент инерции маховика Ia=',Ia:3:1,'кг*м^2');
writeln(q,'Скорость вращения коленчатого вала Wo=',Wo:3:1,'c^-1'); 
writeln(q,'Момент сопротивления движения автомобиля Mf=',Mf:0:2,'Кг*m');
writeln(q,'Работа буксования Wb=',Wb:10:2,'Дж');
writeln(q,'Удельная работа буксования Wu=',Wu:3:1,'Дж/с');
writeln(q,'t=',t:2:2,'*C');
writeln(q,' ':15,' Результаты расчетов');
writeln(q,'R0,м  Ia,кг*м^2  Wo,c^-1  Mf,Кг*m  Wb,Дж  Wu,Дж/с  t,*C');
writeln(q,'------------------------------------------------');
writeln(q,R0:0:2,'  ',Ia:3:1,'     ',Wo:3:1,'    ',Mf:0:2,'    ',Wb:10:2,'  ',Wu:3:1,'  ',t:2:2);  
close(q);
end.