Нужно написать решение этой программы на Паскале. Чему равен тормозной путь автомобиля массой 1000 кг, движущегося со скоростью 108км/ч коэффициент трения между дорогой и шинами равен 0, 3. Дано: m = 1000 кг v = 108км/ч=30 м/c ₀ v = 0 м/с μ = 0, 3 S - ? Решение: Изменение кинетическая энергия материальной точки при её перемещении равно работе, совершённой силой, действующей на точку при этом перемещении. Т.е. Eк=А Т.е. т. к. A=F|Δr|cosα=F*S=Ек Ек=F*S S=Eк/F Если система тел может совершить работу, то она обладает энергией. Кинетическая энергия — это энергия, которой обладает движущееся тело. Кинетическая энергия материальной точки: EK=mv2 2 m – масса материальной точки v – скорость материальной точки EK=mv2 2 = 1000∗302 2 = 900000 2 =450000Дж Теперь надо найти силу F, это сила трения. F=Nμ=mgμ=1000*9, 8*0, 3=2940Н Тогда тормозной путь будет равен: S=Eк/F=450000/2940=153, 061м
Ответы
Const n=10;
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
s:=0;
min:=a[1];
for i:=1 to n do
begin
if a[i]>0 then s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
for i:=1 to n do
if a[i]>0 then a[i]:=s
else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Исходный массив:
9 -3 -5 7 1 5 -6 9 -8 7
s = 38 min = -8
Измененный массив:
38 5 3 38 38 38 2 38 0 38
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
s:=0;
min:=a[1];
for i:=1 to n do
begin
if a[i]>0 then s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
for i:=1 to n do
if a[i]>0 then a[i]:=s
else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Исходный массив:
9 -3 -5 7 1 5 -6 9 -8 7
s = 38 min = -8
Измененный массив:
38 5 3 38 38 38 2 38 0 38
Код:
using System;
namespace WordsCounter
{
class Bishop
{
private int x, y;
public Bishop(int x, int y)
{
this.x = x;
this.y = y;
}
public bool CanIAttackIt(int x, int y)
{
return Math.Abs(x - y) == Math.Abs(this.x - this.y);
}
}
class Program
{
static void Main(string[] args)
{
var x0 = int.Parse(Console.ReadLine()!);
var y0 = int.Parse(Console.ReadLine()!);
var x = int.Parse(Console.ReadLine()!);
var y = int.Parse(Console.ReadLine()!);
Console.WriteLine((new Bishop(x0, y0)).CanIAttackIt(x, y));
}
}
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что лишнее клавиатура, мышь, сканер, аккустические колонки
Автор: Палкина-Дроздова
Разработайте переборный алгоритм поиска всех аддитив-ных цепочек для конкретного значения n 100.
Автор: natalia-shelkovich
Зинформатики опиши переміщення файлів з папки. d: \папка 1 до папки c: \папка 2
Автор: Irinalobanowa
написать желательно на c++ уровень 9 класса
Автор: Elen-ti81459
const m = 1000;
const v = 30;
const mu = 0.3;
const g = 9.8;
var Ek,S,F: real;
begin
Ek:=m*v*v/2;
F:=m*g*mu;
S:=Ek/F;
writeln('Тормозной путь равен ',s:7:3,' м');
end.