Нужно , не могу понять как делать, программирование паскаль не для меня , диаметр колеса автомобяля хсм колесо требует замены через н оборотов. какое расстояние проедет автомобиль до замены колеса?
Рекомендуется использовать формулу мальтуса, изменения числа рыб n= k*n-q*n*n если за начальное количество рыб принять n0,то через год рыб в пруду будет n1=n0+k*n0-q*n0*n0,через два года n2=n1+k*n1-q*n1*n1 в таблице excel в ячейку a1 введите значение к=1,в ячейку b1 значение q=0,01,в ячейку с1 значение n0=100, в ячейку в2 формулу =c1+a1*c1-b1*c1*c1 (это количество рыб за 1 год) , в ячейку в3 формулу =b2+$a$1*b2-$b$1*b2*b2(количество рыб за 2 год) , скопируйте формулу с ячейки в3 до ячейки в11. изменяйте значение ячейки а1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.
Пошаговая детализацияпредставляет собой простой процесс, предполагающий первоначальное выражение логики модуля в терминах гипотетического (условного) языка высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программирования. здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня — машинный язык.
d, n, s: real;
begin
Write('Диаметр колеса, см -> ');
Readln(d);
Write('Количество оборотов колеса -> ');
Readln(n);
Write('Ресурс пробега колеса равен ', n * Pi * d*1e-5:0:0, ' км')
end.
Тестовое решение:
Диаметр колеса, см -> 57.7
Количество оборотов колеса -> 2.1e7
Ресурс пробега колеса равен 38067 км