потеря мощности

11.05.2011, 00:56. **Показов** 752. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Pascal

program LAV;
var
av,gr:text;
nl,n1,N,q,v,m,y,a,c,d,b,l,h,t,k,w,r:real;
begin
assign(av,'D:\proga\av.txt');
assign(gr,'D:\proga\gr.txt');
reset(av);
reset(gr);
read(av,d,b);
read(gr,m,y,a,c);
writeln('vvedite skorost avtomobilya V m/s:');
readln(v);
q:=2*(sqr(2229.5));
r:=(2*sqr(v))/d;
w:=c*b;
t:=((2-0.87*m)*2*sqr(v)*a)/(d*y);
l:=(m+1)/(2*m+1);
k:=1/(2*m+1);
h:=(2*m+2)/(2*m+1);
n1:=(((2*v/d)*(y/a-(sqr(v)*2)/d))+((1-0.67*m)*2*v*y*(exp(ln(q))*l)/(d*a*(exp(ln(r)*l))*(exp(ln(w)*k))*(exp(ln(t)*h)))));
N:=abs(n1);
nl:=N/735.49875;
writeln('poterya mos4nosti N sostavlyaet:');
writeln(N:10:2,'  W');
writeln(nl:10:2,'  l.s.');
end.

плс сделай прогу чтобы по данной формуле можно было расчитать потерю мощности N при этом считывая константы m y a c(грунт) и d b(автомобиль) из файлов Пользователю должен быть представлен выбор из 5 грузовых автомобилей, 5 легковых и 4 грунта и затем пользователь сам задает скорость автомобиля V Заранее спасибо

	11.05.2011, 00:56