dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
seregastrong
Слишком много лишних слов...
№1:
Код:
{$N+}
const
a: double=4E-2;
L: double=3;
h: double=0.032;
tc: double=30;
v: double=2.3E-5;
tb: double=150;
W: double=0.5;
g: double=9.8;
var
Gr,Re,Nu,Q: double;
begin
Gr:=(tb-tc)*g*L*L*L/(273*v*v);
Re:=(w*a)/v;
if Re<2200 then Nu:=0.13*exp(0.33*ln(Re))*exp(0.1*ln(Gr)) else Nu:=0.018*exp(0.88*ln(Re));
Q:=4*h*L*Nu*(tb-tc);
writeln('Re=',Re:3:3,' Nu=',Nu:3:3,' Q=',Q:3:3);
readln;
end.
|
№2:
Код:
{$N+}
const
h0: double=0.05;
Vh: double=7.5;
h: array[1..9] of double = (2, 4, 6, 8, 10, 30, 50, 70, 90);
var
V: array[1..9] of double;
i: word;
begin
for i:=1 to 9 do
begin
V[i]:=Vh*(ln(h[i]/h0)*ln(h[i]/h0))/(ln(10/h0)*ln(10/h0));
writeln('h=',h[i]:6:3,' V=',V[i]:6:3);
end;
readln;
end.
|
yanok123
??? |
