Нахождение числа Рейнольдса. Использование функции и процедуры

@callofduty431 · Регистрация: 28.02.2013

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

Как будет выглядеть программа, если в ней предусмотреть и функцию и процедуру?

Pascal

{$APPTYPE CONSOLE}
program primer;
var  h1,y,u:real;
h,Re:integer;
const
l=20;
d=0.015;
g=9.81;
v=0.000001;
ke=0.001;
Function y_(ke,d,Re:real):real;
begin
y_:=exp(Ln(0.11*(ke/d+68/Re))*0.25);
end;
begin
Re:=5000;
while Re<=7000 do begin
y:=y_(ke,d,Re);
u:=(Re*v)/d;
h1:=y*(l*u*u/d*2*g);
writeln('h=',h1:3:2,' pri Re=',Re);
Re:=Re+200;
end;
readln;
end.

@Puporev · 12.11.2013, 10:01

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
l=20;
d=0.015;
g=9.81;
v=0.000001;
ke=0.001;
type func=function(x:real):real;
Function y_(x:real):real;
begin
y_:=exp(Ln(0.11*(ke/d+68/x))*0.25);
end;
procedure rascet(f:func);
var Re:integer;
    y,u,h1:real;
begin
Re:=5000;
while Re<=7000 do
 begin
  y:=f(Re);
  u:=(Re*v)/d;
  h1:=y*(l*u*u/d*2*g);
  writeln('h=',h1:7:2,' pri Re=',Re);
  Re:=Re+200;
 end;
end;
begin
rascet(y_);
readln;
end.

	12.11.2013, 10:01

Нахождение числа Рейнольдса. Использование функции и процедуры

Решение