Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
kreepleez
0 / 0 / 0
Регистрация: 16.11.2014
Сообщений: 13
1

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

23.11.2014, 22:46. Просмотров 955. Ответов 1
Метки нет (Все метки)

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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 минуту
а то в паскале вообще не разбираюсь пока что
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2014, 22:46
Ответы с готовыми решениями:

Каждый из интегралов вычислить по формуле прямоугольника, по формуле трапеции и по формуле Симпсона
Каждый из интегралов вычислить по формуле прямоугольника, по формуле трапеции и по формуле...

Найти среднюю скорость автомобиля
Автомобиль проехал три участка пути разной длины с разными скоростями. Найти среднюю скорость...

Определить среднюю скорость автомобиля
не могу справиться, очень прошу помощи! выручайте! пожалуйста:) 1) Автомобиль приехал по трассе...

Массив: определить среднюю зарегистрированную скорость всех автомобилей
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом...

1
JIeIIIa
955 / 574 / 136
Регистрация: 23.05.2012
Сообщений: 7,370
24.11.2014, 01:03 2
kreepleez, значения вводятся пока r лежит в диапазоне [r1..r2] и d в диапазоне [d1..d2]. Считается сумма и количество введенных пар. После цикла вычисляем среднее.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2014, 01:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить среднюю скорость
здравствуйте, мне нужна помощь чтобы написать программу в Pascal abc. Нужно чтобы при вводе...

Вычислить среднюю скорость движения мотоциклиста
С++ Вычислить среднюю скорость движения мотоциклиста на участке от пункта A до B через пункт Б,...

Вычислить среднюю квадратичную угловую скорость вращения молекулы
Помогите с 2-мя задачками. 1. Газ жестких двухатомных молекул находится при температуре 20С....

Вычислить среднюю скорость на первой половине времени от всего пути
Дано: V1, V2, S1=S2. Тело движется прямолинейно. Определить ср. скорость на (t1+t2)/2 (первой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.