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

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

# 7 класс <<Работа. Мощность. Энергия>>

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

## Вариант

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

При равномерном подъеме из шахты нагруженной углём вагонетки массой $7.250~\text{т}$ произведена работа $12~\text{МДж}$. Какова глубина шахты?

disp("Дано:")$
set: [m=7.250`metric_ton``kg, A=12`MJ``J]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [h]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [A=m*%g_n*h]$
for i: 1 thru length(eq) do disp(eq[i])$
disp("Решение:")$
ans: solve(eq, fnd)$
if lengtn(ans)>=1 then ans: ans[1]$
for i: 1 thru length(ans) do disp(ans[i])$
disp("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

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

Ударный вертолёт AH-64D <<Apache>> массой $6.552~\text{тонн}$, летит на высоте $0.7~\text{км}$ со скоростью $214~\text{км/ч}$. Найдите полную механическую энергию вертолёта.

disp("Дано:")$
set: [m=6.552`metric_ton``kg, h=.7`km``m, v=214`km/hour``m/s]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [E, E_k, E_p]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [E=E_p+E_k, E_p=m*%g_n*h, E_k=m*v^2/2]$
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 i: 1 thru length(ans[1]) do
    disp(ev(constvalue(ans[1][i]), set, numer))$
kill(set, fnd, eq, ans)$

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

Тягач равномерно тянет орудие, прилагая силу в $16~{кН}$. За $30~{мин}$ он проходит путь $12~{км}$. Определить мощность, развиваемую тягачём?

disp("Дано:")$
set: [F=16`kN``N, t=30`minute``s, s=12`km``m]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [N_T, A]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [N_T=A/t, A=F*s]$
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 i: 1 thru length(ans[1]) do
    disp(ev(constvalue(ans[1][i]), set, numer))$
kill(set, fnd, eq, ans)$