Алгоритмизация и программирование

СОДЕРЖАНИЕ
Задача 1.3
Задача 2.7
Задача 3. 10
Задача 4.13
Задача 5.17
Список использованной литературы.. 21

Задача 1.
Выполнить расчет максимальной мощности двигателя автомобиля и расчет внешней характеристики двигателя при следующих начальных условиях:
mo ,
кг
Vmax , км/ч
Kв
кг/м3
F,
м2
Ψ v
nN
мин-1
Kv ηтр
6000 100 0,62 3,9 0,021 3000 1,2 0,88
РЕШЕНИЕ.
Максимальная мощность двигателя тягача по условию обеспечения заданной максимальной скорости рассчитывается по формуле:
, (1)
где Nemax - искомая максимальная мощность, кВт ;
Nv – мощность на режиме максимальной скорости, кВт ;
Kv – отношение частоты вращения коленчатого вала двигателя при максимальной скорости движения тягача к номинальной частоте вращения:
, (2)
nN - частота вращения коленчатого вала двигателя на режиме максимальной мощности (номинальная), мин-1
nv - частота вращения коленчатого вала двигателя при максимальной скорости автомобиля, мин-1 .
Мощность на режиме максимальной скорости определяется по формуле (3):
, (3)
где m0 - масса тягача, кг;
Ψv - суммарный коэффициент сопротивления дороги;
V max – заданная максимальная скорость тягача;
ηтр – КПД трансмиссии;
Kв - коэффициент сопротивления воздуха, кг/м3 ;
F – лобовая площадь тягача, м2 .
Внешняя характеристика двигателя представляет собой зависимость мощности, крутящего момента от частоты вращения коленчатого вала двигателя при полном открытии заслонки карбюратора.
При известном значении максимальной мощности Nemax мощность в любой другой точке характеристики может быть найдена по формуле Лейдермана:
(4)
где Ne - мощность двигателя при произвольном значении частоты вращения коленчатого вала, кВт ;
Nemax - максимальная мощность двигателя, кВт;
n - заданная частота вращения коленчатого вала, мин-1 ;
nN - частота вращения коленчатого вала на режиме максимальной мощности, мин-1 ;
a,b,c - коэффициенты, принимаемые для бензиновых двигателей, равны 1.
Крутящий момент в любой точке характеристики определяется по формуле:
Me =9549 ( Ne / n ), (5)
Составим схему алгоритма. В алгоритме будет три блока: ввод исходных данных, расчет по формулам(1)-(5) и вывод результата.
По приведенной блок-схеме была составлена программа, листинг которой приведен ниже.
program lab1;
var m0,vmax,Ke,F,Fv,nN,Ky,n_tr:real; {peremennye - ishodnye dannye}
Nv,Ne_max,n_v,Ne,Me:real; {peremennye - rezultaty}
BEGIN
{-----------VVOD ISHODNYH DANNYH-----}
writeln ('Vvedite ishodnye dannye:');
write ('m0=');readln(m0);
write ('Vmax=');readln(Vmax);
write ('Ke=');readln(Ke);
write ('F=');readln(F);
write ('Fv=');readln(Fv);
write ('nN=');readln(nN);
write ('Ky=');readln(Ky);
write ('n_tr=');readln(n_tr);
{----------RASCHET-------------------}
Nv:=2.725E-03*m0*Fv*Vmax/n_tr+2.14e-05*Ke*F*sqr(Vmax)*Vmax/n_tr;
Ne_max:=Nv/(Ky*(1+Ky*(1+Ky)));
n_v:=Ky*nN;
Ne:=Ne_max*(n_v/nN+sqr(n_v/nN)-sqr(n_v/nN)*n_v/nN);
Me:=9549*(Ne/n_v);
{----------VIVOD REZULTATA-----------}
writeln('Nv=',Nv);
writeln('Ne_max=',Ne_max);
writeln('n_v=',n_v);
writeln('Ne=',Ne);
writeln('Me=',Me);
End.
Решение этой же задачи было проведено в ЭТ Excel. Ниже представлен лист с решением и результатами.
Программу написанную на языке Паскаль копирую и вставляю в проект, затем исправляю существенные различия.
Задача 2.
Вычислить функцию , для с шагом .
№ a b h f(x)
Начало отрезка Конец отрезка Шаг по отрезку
9 -12 0 1
РЕШЕНИЕ
Выполним схему алгоритма.

Эта схема была реализована на языке Паскаль в трех вариантах: были задействованы циклы с предусловием, с постусловием и с параметром. Листинги программ приведены ниже.
а) Цикл с постусловием
program lab 21;
var x,f:real;
begin
x:=-12;
repeat
if x<-7 then f:=sin((3.14/12)*x)
else
if x0;
readln;
end.
б) Цикл с предусловием
program lab 22;
var x,y:real;
begin
x:=-12;
while x<=0 do
begin
if x<-7 then y:= sin((3.14/12)*x)
else
if x<=-3 then y:= 2*cos((3.14/6)*x+(3.14/12))
else
y:= 5* sin((3.14/12)*x);
writeln('f(',x:3:1,')=',y:6:2);
x:=x+1;
end;
readln;
end.
в) Цикл с параметром
program lab 23;
var
x,y,a,b,h,n1: real;
n ,i : integer;
begin
x:=-12;
a:=-12;b:=0;h:= 1;
n1:=(b-a)/h; n:=round(n1);
for i:=0 to n do
begin
if x<-7 then y:= sin((3.14/12)*x)
else
if x<=-3 then y:= 2*cos((3.14/6)*x+(3.14/12))
else
y:= 5* sin((3.14/12)*x);
writeln('f(',x:3:1,')=',y:6:2);
x:=x+1;
end;
readln;
end.
Решение этой же задачи было проведено в Excel. При вычислении функции использовалась логическая функция ЕСЛИ. Лист с решением задачи размещен ниже.
Программу написанную на языке Паскаль копирую и вставляю в проект, затем исправляю существенные различия.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию