Облако знаний. Моделирование физических процессов (Паскаль). Информатика. 11 класс

Способы физического моделирования:
- использование графических средств (Sigmaplot, QtiPlot);
- использование прикладных средств для выполнения вычислений (MS Excel, Maple, Mathcad);
- программирование (Pascal, C++, Java).
Пример. Составим модель свободного падения тела, вычислив время и скорость столкновения.
1. Цель – определить время падения и скорость столкновения с землёй. Тело падает под действием силы тяжести как материальная точка, сопротивление движению отсутствует.
2. Записываем кинематическое уравнение движения в проекциях на оси координат, задаём численное значение g и начальные значения координат и проекций скорости.
3. Разрабатываем программный код.
4. Запускаем компьютерную модель с различными вводными параметрами, убеждаемся в её работоспособности.
5. Изменяя закодированные начальные данные (начальные значения координат и скоростей; можно сделать их вводимыми с клавиатуры), анализируем модель.

Const

Ro_shar = 7800;

Ro_sreda = 1000;

Mju = 1.02;

h = 10;

v0 = 0;

r = 0.05;

g = 9.8;

Var

i, n: integer;

t, y, dt, m, V, k1,
k2: real;

Begin

k1 := 6 * Pi * Mju * r;

k2 := 0.2 * Pi * r *
r * Ro_sreda;

m := 4 / 3 * Pi * r *
r * r * Ro_shar;

writeln ('Шаг по
времени: ');

readln (dt);

writeln ('Число шагов ');

readln (n);

i := 0;

t := 0;

v := v0;

y := h + v * dt;

While (y ＞ 0) do

begin

i := i + 1;

t := t + dt;

v := v + (k1 * V + k2 *
v * v - m * g) / m * dt;

if (i mod n = 0) then

     writeln (t:7:4,
     abs (V):7:4,
     y:7:4);

y := y + V * dt

end;

    writeln ('Tmax=',
    t:7:4,
    ' Vmax=', abs (V):7:4)

End.