[vsesdal]
Количество страниц учебной работы: 7,6
Содержание:
«Содержание
Задача 1……………………………………………………………………………2
Задача 2……………………………………………………………………………3
Задача 3……………………………………………………………………………3
Задача 4……………………………………………………………………………3
Задача 5……………………………………………………………………………4
Задача 6……………………………………………………………………………5
Задача 7……………………………………………………………………………5
Задача 8……………………………………………………………………………6
Задача 9……………………………………………………………………………6
Задача 10…………………………………………………………………………8
6.1 Гирька, привязанная к нити длиной 30 см, описывает в горизонтальной плоскости окружность радиусом 15 см. С какой частотой вращается гирька?
Дано: СИ Решение
l = 30 см 0.3 м
R=15см 0.15 м
n-?
6.2 Определить кинетическую энергию цилиндра, который катится без
скольжения по горизонтальной поверхности со скоростью 10 м/с. Масса цилиндра 1 кг.
Дано: Решение
m=1кг
v = 10 м\с
Eк?
6.3 Колесо, вращаясь равноускоренно, достигло угловой скорости
20 рад/с через 10 оборотов после начала вращения. Найти угловое ускорение
колеса.
Дано: Решение
n = 10
6.4 Найти радиус вращающегося колеса, если известно, что линейная
скорость точки, лежащей на ободе, в 2,5 раза больше линейной скорости точки, лежащей на расстоянии 5 см ближе к оси колеса.
Дано: СИ Решение
n=2.5 r=
R-?
6.5 Колесо вращается с угловым ускорением 2 рад/с2. Через 0,5 с после
начала движения полное ускорение колеса составило 13,6 см/с2. Найти радиус колеса.
Дано: СИ Решение
t = 0.5c Линейная скорость точек на ободе колеса
a = 13.6 см/c2
6.6 К ободу однородного сплошного диска массой 10 кг, насаженного на
ось, приложена постоянная касательная сила 30 Н. Определите кинетическую энергию диска через 4 с после начала действия силы.
6.7 Вентилятор вращается с частотой 600 обмин. После выключения он
начал вращаться равнозамедленно и, сделав 50 оборотов, остановился. Работа сил торможения равна 31,4 Дж. Определите момент сил торможения и момент инерции вентилятора
Дано: СИ Решение
n = 600 об\мин 10 об\с N=50
A = 31.4 Дж
M-?
J-?
6.8 Маховик в виде сплошного диска, момент инерции которого
150 кгм2, вращается с частотой 240 обмин. Через 1 мин, как на маховик стал
действовать момент сил торможения, он остановился. Определить момент сил торможения и число оборотов, совершенных маховиком от начала торможения до полной остановки.
Дано: Решение
t = 60 сек
J = 150 кг*м^2
n = 4 об/с
L-?
N-?
6.9 На обод маховика диаметром 60 см намотан шнур, к концу которого
привязан груз массой 2 кг. Определить момент инерции маховика, если он,
вращаясь равноускоренно под действием силы тяжести груза, за 3 с приобрел угловую скорость 9 радс
Дано СИ
D = 60см 0.6м Решение
m=2кг
t = 3c 2й Закон Ньютона: ma = mg+T
w = 9 рад\с Ox: T = mg-ma; M = m(g-a)*R;
J-? Ответ
6.10 Определить момент силы, который необходимо приложить к блоку,
вращающемуся с частотой 12 с-1, чтобы он остановился в течение 8 с. Диаметр блока 30 см, масса 6 кг. Блок считать полым цилиндром.
Дано СИ МТР
v0 = 12 об\с
D = 30см 0.3м
Т = 8с
т = 6 кг m mm
MTP-? Решение»
Учебная работа № 188717. Контрольная Физика (10 задач)
Выдержка из похожей работы
10 задач с решениями программированием на Паскале
…..еское ‘,i,’ строки равно ‘,sr:5:2); end; end;
end;
begin
vvod(3,3,A);
arf(3,3,A);
end.
Задача 2.
Условие: Получить массив Х(n) по правилу: Хi =1, если в i-м столбце заданной матрицы есть хотя бы один
элемент превышающий заданное значение С, иначе Xi=0. Найти
общее число элементов, больших С.
Программа:
program S2_Z2;
type m=array[1..100,1..100]
of integer; mas=array[1..100] of integer;
var A:m;
procedure
vvod(m,n:integer;var x:m);
var i,j: integer;
begin writeln(‘введите элементы массива’);
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
procedure
moped(m,n:integer;var y:m);
var i,j,c,k:integer; X:mas;
begin k:=0; writeln(‘введите величину С=’); readln(c);
for j:=1 to n do x[j]:=0;
for j:=1 to n do
for i:=1 to m do
if y[i,j]>c then begin
X[j]:=1; k:=k+1; end;
writeln(‘элементы массива Х:’);
for j:=1 to n do write(X[j],’
‘);
writeln;
writeln(‘число элементов матрици превышающих число ‘,c,’
равно ‘,k)
end;
begin
vvod(2,5,A);moped(2,5,A);readln;
end.
Задача 3.
Условие: Дан массив A(5,5). Изменить часть матрицы, находящуюся под
главной диагональю следующим образом: если элемент A[i,j] этой
части матрицы больше элемента A[j,i], то задать элементу A[i,j] новое
значение, равное полу сумме двух этих элементов.
Программа:
program S2_Z3;
type m=array[1..100,1..100]
of real;
var A:m;
procedure
vvod(m,n:integer;var x:m);
var i,j: integer;
begin
writeln(‘введите элементы массива’);
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
procedure mat(m,n:integer;var
x:m);
var i,j: integer; t:real; Yandex.RTB R-A-98177-2
(function(w, d, n, s, t) {
w[n] = w[n] || [];
w[n].push(function() {
Ya.Context.AdvManager.render({
blockId: «R-A-98177-2»,
renderTo: «yandex_rtb_R-A-98177-2»,
async: true
});
});
t = d.getElementsByTagName(«script»)[0];
s = d.createElement(«script»);
s.type = «text/javascript»;
s.src = «//an.yandex.ru/system/context.js»;
s.async = true;
t.parentNode.insertBefore(s, t);
})(this, this.document, «yandexContextAsyncCallbacks»);
writeln(‘изменённый матрица A[i,j] будет
выглядеть так’);
for i:=1 to m do
for j:=1 to n do
if i>j then if x[i,j] >
x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2;
for i:=1 to m do
for j:=1 to n do
write(
A[i,j]:2:1,’ ‘);
end;
begin
vvod(5,5,A);
mat(5,5,A);
end.
Задача 4.
Условие: Определить самую длинную
последовательность подряд идущих нулей в заданном одномерном массиве.
Программа:
program S2_Z4;
type m=array[1..100] of
integer;
var A:m;
procedure vvod(m:integer;var
x:m);
var i: integer;
begin writeln(‘введите элементы массива’);
for i:=1 to m do
read(x[i]);
end;
procedure moped(m:integer;var
x:m);
var i,k,n:integer;
begin k:=0;n:=0;
for i:=1 to m do
if x[i]=0 then k:=k+1
else begin
if x[i-1]=0 then
if k>n then
n:=k;
k:=0;end;
if k>n then
writeln(‘самая большая последовательность нулей состовляет ‘,k)
else
writeln(‘самая большая последовательность нулей состовляет ‘,n);
end;
begin
vvod(20,A); moped(20,A);
end.
Задача 5.
Написать программу, считывающую
заданное количество одномерных массивов, определяющую минимальный элемент в
каждом из них и подсчитывающую количество нулей среди элементов, расположенных
за минимальным.
Программа:
program S2_Z5;
type m=array[1..100] of
integer; mas=array[1..10] of m;
var A:mas;
procedure
vvod(kn:integer;x:mas);
var y:m;i,t,k,min,k0:integer;
begin…