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

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

# 10 класс <<Молекулярно-кинетическая теория>>

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

## Вариант

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

Сколько молекул содержится в капле концентрированной соляной кислоты массой $7~\text{г}$?

disp("Дано:")$
set: [M=.0365`kg/mol, m_=7`g``kg]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [N_, m_0]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [N_=m_/m_0, m_0=M/%N_A]$
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)$

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

Определите давление $5~\text{кг}$ углекислого газа, находящегося в сосуде ёмкостью $1.2~\text{л}$ при температуре $20^\circ C$.

disp("Дано:")$
set: [m_=5`kg, M=.044`kg/mol, V_=5`l``m^3, T=20`degC``K]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [p]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [p*V_=(m_/M)*%R*T]$
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("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

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

Газ занимал объём $20~\text{л}$ при температуре $15^\circ C$. После изобарного сжатия температура газа понизилась до $-10^\circ C$. До какого объёма сжали газ?

disp("Дано:")$
set: [V_1=20`l``m^3, T_1=15`degC``K, T_2=-10`degC``K]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [V_2]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [V_1/T_1=V_2/T_2]$
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("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

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

Начертите диаграмму в координатах V, T и p, T

/home/alex/task4.png

disp("Дано:")$
disp("Найти:")$
disp("Уравнения:")$
disp("Решение:")$
disp("Ответ:")$