Вычислить среднюю скорость по формуле

@kreepleez · Регистрация: 16.11.2014

Написать программу решения следующей задачи: вычислить среднюю скорость, осаждения смеси частиц диаметром от d1 до d2 плотностью от r1 до r2, если скорость осаждения может быть вычислена по формуле

W=sqr(d)*(r-rc)*g/(18*m)
где rc=1130; g=9.8; m=0,6;

Pascal

Program K3;
Uses crt;
Const rc=1130; g=9.8; m=0.6;
Var W,d,d1,d2,r1,r2:real;
r: array [r1..r2] of real;
d: array [d1..d2] of real;
Begin
Clrscr;
writeln;
writeln('Srednyaya skorost:');
writeln('W=(d^2)*(r-rc)*(g/18m)');
 
writeln('r1=':4); readln(r1);
writeln('r2=':4); readln(r2);
writeln('d1=':4); readln(d1);
writeln('d2=':4); readln(d2);
Begin
W:=0;
W:=(sqr(d))*(r-rc)*(g/18*m);
writeln('W=',W:6:1,'m/s');
writeln;
end;
readln;
End.

не получается(((что не правильно? помогите пожалуйста

Добавлено через 1 минуту
а то в паскале вообще не разбираюсь пока что

@JIeIIIa · 24.11.2014, 01:03

kreepleez, значения вводятся пока r лежит в диапазоне [r1..r2] и d в диапазоне [d1..d2]. Считается сумма и количество введенных пар. После цикла вычисляем среднее.

Pascal

Program K3;
Uses crt;
Const
   rc=1130; g=9.8; m=0.6;
Var
   W,d1,d2,r1,r2,r,d:real;
   Cnt:integer;
Begin
   Clrscr;
   writeln;
   writeln('Srednyaya skorost:');
   writeln('W=(d^2)*(r-rc)*(g/18m)');
 
   writeln('r1=':4); readln(r1);
   writeln('r2=':4); readln(r2);
   writeln('d1=':4); readln(d1);
   writeln('d2=':4); readln(d2);
   W:=0;
   Cnt:=0;
   r:=0; d:=0;
   repeat
      W:=W + sqr(d)*(r-rc)*g/(18*m);
      writeln('d=':4); readln(d);
      writeln('r=':4); readln(r);
      inc(Cnt);
   until (r<r1) or (r>r2) or (d<d1) or (d>d2);
   if Cnt>1 then
      writeln('W=',W/(Cnt-1):6:1,'m/s')
   else
      writeln('W=error');
   readln;
End.

Опции темы