Расчет блок-картера
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
D<=0 then begin Writeln('Неправильный параметр'); M1; end;
M2:Write('Площадь поперечного сечения водяной рубашки одного цилиндра Fв.р.= ');
readln(Fvr);Fvr<=0 then begin Writeln('Неправильный параметр'); M2; end;
M3:Write('Введите наружный диаметр гильзы D1= ');
readln(D1);(D1<=0) or (D1<=D) then begin Writeln('Неправильный параметр');M3; end;:Write('Введите длину гильзы Lо= ');(Lo);Lo<=0 then begin Writeln('Неправильный параметр'); M5; end;
M6:Write('Введите значение силы N= ');
readln(N);N<=0 then begin Writeln('Неправильный параметр'); M6; end;
M7:Write('Введите длину плеча силы "N" b= ');
readln(b);(b=Lo) then begin Writeln('Неправильный параметр'); M7; end;
M8:Write('Введите максимальное давление газов Pzm= ');
readln(Pzm);Pzm=0 then begin Writeln('Неправильный параметр');M8; end;:=(0.05*D/10)+2;:=0.05*D/10;:=Pzm*(D/100)/(2*DALras);:=Pzm*(D/100)/(4*DALras);
:clrscr;('Выбирите тип конструкции');
Writeln('Вставные "мокрые" гильзы - 1');
writeln('Двигатель с воздушным охлаждением - 2');
writeln('Другая конструкция - 3');
readln(V);
case V of
: begin Pzmb:=pzm*(3.14*sqr(D)/(4*100)); SIGr1:=Pzmb/Fvr;:=(N*((Lo-b)*b/Lo)/(0.1*(Sqr(D1/10)*Sqr(D1/10)-Sqr(D/10)*Sqr(D/10))/(D1/10)/10)); end;
: begin Sigma:=0.5*SIGr; end;
: begin v:=0 end;begin Writeln('Повторите ввод'); delay(50000); goto 1; end;;;(20,1);('РЕЗУЛЬТАТЫ РАСЧЕТА');('Диаметр гильзы D= ',D:1:1);
Writeln('Номинальная толщина DALн= ',Daln:4:2);
Writeln('Напряжение разрыва по образующей цилиндра SIGр= ',SIGr:4:2);
Writeln('Напряжение разрыва по кольцевому сечению SIGр"= ',SIGrsh:5:2);v=1 then begin('Для вставных "мокрых" гильз');
Writeln('Сила разрывающая стенки водяной рубашки Pzm= ',Pzmb:5:2);
Writeln('Напряжение возникающее при разрыве водяной рубашки SIGр= ',Sigr1:5:2);
Writeln('Напряжение при изгибе гильзы Sigи= ',Sigi:5:2);
end;
if v=2 then begin
writeln('Для двигателя с воздушным охлождением');
Writeln('Напряжение разрыва в кольцевом сечении SIGр= ',Sigma:2:2);
end;
Writeln(Ft,'РЕЗУЛЬТАТЫ РАСЧЕТА');
Writeln(Ft,'Диаметр гильзы D= ',D:1:1);
Writeln(Ft,'Номинальная толщина DALн= ',Daln:4:2);
Writeln(Ft,'Напряжение разрыва по образующей цилиндра SIGр= ',SIGr:4:2);
Writeln(Ft,'Напряжение разрыва по кольцевому сечению SIGр"= ',SIGrsh:5:2);v=1 then begin(Ft,'Для вставных "мокрых" гильз');
Writeln(Ft,'Сила разрывающая стенки водяной рубашки Pzm= ',Pzmb:5:2);
Writeln(Ft,'Напряжение возникающее при разрыве водяной рубашки SIGр= ',Sigr1:5:2);
Writeln(Ft,'Напряжение при изгибе гильзы Sigи= ',Sigi:5:2);
end;
if v=2 then begin
writeln(Ft,'Для двигателя с воздушным охлождением');
Writeln(Ft,'Напряжение разрыва в кольцевом сечении SIGр= ',Sigma:2:2);
end;(Ft);(10);(21,25);('для продолжения нажмите любую клавишу');
2:while not KeyPressed=True do2;;;;;;
end.
5. РЕЗУЛЬТАТЫ РАСЧЕТА
Диаметр гильзы D= 100.0
Номинальная толщина DALн= 2.50
Напряжение разрыва по образующей цилиндра SIGр= 50.00
Напряжение разрыва по кольцевому сечению SIGр"= 25.00
Для вставных "мокрых" гильз
Сила разрывающая стенки водяной рубашки Pzm= 3925.00
Напряжение возникающее при разрыве водяной рубашки SIGр= 392.50
Напряжение при изгибе гильзы Sigи= 42.66
6. ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ
Данная программа предназначена для расчета блок - картера.
Для запуска программы необходимо загрузить Turbo Pasсal, открыть файл "blok.pas" , и запустить программу.
Здесь нужно ввести необходимые для расчета данные, при этом будут появляться соответствующие запросы. После введения необходимых данных нужно нажать ENTER.
После введения всех данных и нажатия клавиши, результаты расчета будут выведены в текстовый файл.
При нажатии клавиши "ENTER", пользователь может продолжить расчет; при нажатии клавиши "ESC" программа завершит работу и выйдет в Turbo Pasсal.
Программа выполняется столько раз, сколько необходимо пользователю.
Для просмотра результатов необходимо в том же каталоге, где находится сама программа найти файл результатов с введенным ранее именем и нажать "F4".
7. ВЫВОДЫ И ПРЕДЛОЖЕНИЯ
В ходе выполнения курсовой работы мною было изучено программирование в среде Turbo Pasсal.
Программа предназначена для расчета блок - картера.
Результаты вычислений программы выводятся в текстовый файл, что позволяет их просмотреть, сохранить, распечатать и использовать для дальнейших расчетов. Использование возможно на автомобилестроительных и машиностроительных предприятиях, связанных с расчетом блок - картеров, для снижения трудоемкости этих работ, экономии времени на их выполнение.
СПИСОК ИСПОЛЬЗОВАНОЙ ЛИТЕРАТУРЫ
1.Вальвачев А.Н. Крисевич В.С. Программирование на языке Паскаль для персональных ЭВМ ЕС.- Мн.: Вышэйшая школа,1989
.Фаронов В.В. Турбо Паскаль 7.0 Учебное пособие.-М.: Нолидж,1999
3.Форсайт Р. Паскаль для всех-М.: Машинострение,1987
.Попык К.Г., Автомобильные и тракторные двигатели. - М., 1980.