Немного непонятно, о каком именно коэффициенте сопротивления идёт речь (если задача действительно по информатике, а не по физике). По размерности подходит такое выражение для силы сопротивления (я буду считать, что дано именно оно, плотность воздуха ρ примем равной 1,25 кг/м3):
Уравнение движения парашютиста:
Для решения задачи создадим таблицу, в которой будут столбцы: время, координата, скорость и ускорение. Со временем проще всего, это последовательные шаги, начиная с 0 с с некоторым шагом t. Затем вычисляем по формуле ускорение, скорость (изменение скорости есть a * t), и координату (изменение координаты есть v * t). Когда парашютист достигнет земли, его координата не должна меняться, это можно сделать при функции ЕСЛИ.
Получившийся файл Excel и графики приложены к ответу.
Программа считает сумму последних трех цифр: Pascal: var n:longint; sum,i:integer; begin repeat write ('N = '); readln (n): until (n>=10000) and (n<=99999); sum:=0; for i:=1 to 3 do begin sum:=sum+(n mod 10); n:=n div 10; end; writeln ('Summa: ',sum); end.
C++: #include <iostream> using namespace std; int main() { int n,sum = 0; do { cout <<"N = "; cin >>n; } while (n<10000 || n>99999); for (int I = 1; I<=3; I++) { sum+=n%10; n/=10; } cout <<"Summa: " <<sum <<endl; return 0; }
Немного непонятно, о каком именно коэффициенте сопротивления идёт речь (если задача действительно по информатике, а не по физике). По размерности подходит такое выражение для силы сопротивления (я буду считать, что дано именно оно, плотность воздуха ρ примем равной 1,25 кг/м3):
Уравнение движения парашютиста:
Для решения задачи создадим таблицу, в которой будут столбцы: время, координата, скорость и ускорение. Со временем проще всего, это последовательные шаги, начиная с 0 с с некоторым шагом t. Затем вычисляем по формуле ускорение, скорость (изменение скорости есть a * t), и координату (изменение координаты есть v * t). Когда парашютист достигнет земли, его координата не должна меняться, это можно сделать при функции ЕСЛИ.
Получившийся файл Excel и графики приложены к ответу.
Pascal:
var n:longint;
sum,i:integer;
begin
repeat
write ('N = ');
readln (n):
until (n>=10000) and (n<=99999);
sum:=0;
for i:=1 to 3 do
begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln ('Summa: ',sum);
end.
C++:
#include <iostream>
using namespace std;
int main()
{
int n,sum = 0;
do
{
cout <<"N = ";
cin >>n;
}
while (n<10000 || n>99999);
for (int I = 1; I<=3; I++)
{
sum+=n%10;
n/=10;
}
cout <<"Summa: " <<sum <<endl;
return 0;
}