Численное решение контрольных задач по физике
Приложение к файлам контрольных работ

(c) Черноус Алексей, 2022
<alexch82@ya.ru>, https://www.chernous.site

# 7 класс <<Движение. Масса>>

/* Загрузка единиц СИ, физических констант, производных констант и табличных величин */
load("const.mac")$

## Вариант

### Задача (1б)

Расположите в порядке возрастания: $0.36~\text{км/ч}$, $36~\text{м/с}$, $360~\text{см/мин}$.

disp("Дано:")$
set: [v_1=.36`km/hour``m/s, v_2=36`m/s, v_3=360`cm/minute``m/s]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
disp("Уравнения:")$
disp("Решение:")$
disp("Ответ:")$
disp(ev(max(v_1, v_2, v_3), set, numer))$

kill(set)$

### Задача (5б)

Двигаясь равномерно прямолинейно, тело за $30~\text{с}$ преодолело $400~\text{см}$. За сколько часов это тело, двигаясь с той же скоростью и в том же направлении, преодолеет путь $12~\text{км}$?

disp("Дано:")$
set: [t_1=30`s, s_1=400`cm``m, s_2=12`km``m]$
for i: 1 thru length(set) do disp(set[i])$

disp("Найти:")$
fnd: [t_2, v_1]$
disp(fnd[1])$

disp("Уравнения:")$
eq: [v_1=s_1/t_1, v_1=s_2/t_2]$
for i: 1 thru length(eq) do disp(eq[i])$

disp("Решение:")$
ans: solve(eq, fnd)$
disp(ans[1][1])$

disp("Ответ:")$
disp(ev(constvalue(ans[1][1]), set, numer))$
disp(ev(constvalue(ans[1][1]``hour), set, numer))$

kill(set, fnd, eq, ans)$

### Задача (4б)

Емкость автомобильного бака для горючего $60~\text{л}$. Определите массу бензина в полном баке. Плотность бензина $780~\text{кг/м}^3$

disp("Дано:")$
set: [V_1=60`l``m^3, ρ_1=780`kg/m^3]$
for i: 1 thru length(set) do disp(set[i])$

disp("Найти:")$
fnd: [m_1]$
for i: 1 thru length(fnd) do disp(fnd[i])$

disp("Уравнения:")$
eq: [ρ_1=m_1/V_1]$
for i: 1 thru length(eq) do disp(eq[i])$

disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans) do disp(ans[i])$

disp("Ответ:")$
disp(ev(constvalue(ans[1]), set, numer))$

kill(set, fnd, eq, ans)$

### Задача (3б)

Вычислить для каждого движения, графики которых приведены на рисунке, скорость движения.

disp("Дано:")$
set:[[x_1=20`m, x_2=20`m, t_1=0`s, t_2=2`s],
    [x_1=-20`m, x_2=30`m, t_1=0`s, t_2=2`s],
    [x_1=0`m, x_2=-20`m, t_1=0`s, t_2=2`s]]$
for i: 1 thru 3 do  print(i, ":", set[i])$

disp("Найти:")$
fnd: [v_0, s_0, t_0]$
for i: 1 thru length(fnd) do disp(fnd[i])$

disp("Уравнения:")$
eq: [v_0=s_0/t_0, s_0=x_2-x_1, t_0=t_2-t_1]$
for i: 1 thru length(eq) do disp(eq[i])$

disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans[1]) do disp(ans[1][i])$

disp("Ответ:")$
for j: 1 thru 3 do
    for i: 1 thru length(ans) do
        print(j, ":", ev(constvalue(ans[i]), set[j], numer))$

kill(set, fnd, eq, ans)$

/home/alex/4.png