11.11.2007, 16:22
общий
это ответ
Здравствуйте, Артем Глушков!
Предварительно необходимо привести все величины к одному "измерению", а уж потом пробовать вычислять... (см<sup>2</sup> -> м<sup>2</sup>; мм -> м).
Вот код программы:
<code>var l,p,d,v:real;
c:integer;
begin
d:=0.0191;
v:=0.0000009;
for c:=1 to 100 do
case c of
1,2,5,10,20,50,100:
begin
p:=c*d/v;
if p > 920000
then l:=0.021/exp(0.3*ln(d))
else l:=exp(0.3*ln(0.0000015/d+1/p));
writeln(‘c=‘,c:3,‘ p=‘,p:11:3,‘ l=‘,l:4:3);
end;
else continue;
end;
readln;
end.</code>
Good Luck!!!