Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
begin
write("Ввод:") ;
readln (r);
sum:=sum+r;
k:=k+1;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.
Проверено - работает на Паскаль АВС
Проверено на Паскаль АВС
Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
begin
write("Ввод:") ;
readln (r);
sum:=sum+r;
k:=k+1;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.
Рассмотрим механическую систему, состоящую из пружины, закрепленной с одного конца, и груза массой m {\displaystyle m} , прикрепленного к свободному концу пружины. Будем считать, что груз может двигаться только в направлении оси пружины (например, движение происходит вдоль стержня). Построим математическую модель этой системы. Будем описывать состояние системы расстоянием x {\displaystyle x} от центра груза до его положения равновесия. Опишем взаимодействие пружины и груза с закона Гука (F = − k x {\displaystyle F=-kx} ), после чего воспользуемся вторым законом Ньютона, чтобы выразить его в форме дифференциального уравнения:
m x ¨ = − k x {\displaystyle m{\ddot {x}}=-kx} ,где x ¨ {\displaystyle {\ddot {x}}} означает вторую производную от x {\displaystyle x} по времени: x ¨ = d 2 x d t 2 {\displaystyle {\ddot {x}}={\frac {d^{2}x}{dt^{2 .
Полученное уравнение описывает математическую модель рассмотренной физической системы. Эта модель называется «гармоническим осциллятором».