Нақты сан – кез келген оң, теріс және нөл сандары. Ол рационал сандар және иррационал сандар болып бөлінеді. Нақты сан түсінігі рационал сан ұғымын кеңейтуден шыққан. Кеңейтудің қажеттілігі кез келген шаманың мәнін толық анықталған сан көмегімен өрнектеуден және математиканың ішкі дамуынан пайда болды. Мысалы: сандарға орындалатын бірсыпыра амалдарды пайдалану облысын кеңейту (түбір астынан шығару, логарифмдерді есептеу, теңдеулерді шешу және т.б.). Нақты сандардың жалпы ұғымын ертедегі грек математиктері салыстырып өлшеуге болмайтын кесінділер теориясында берді. Жүйелі теорияны тек 19 ғасырдың соңында Г.Кантор, Р.Дедекинд және К.Вейерштрасс жасады.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10;
var t: array[1..m] of integer; i, n, nm, sm: integer;
begin //Заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию задачи for i := 1 to m do begin t[i] := random(-20, 20);write(t[i]:4); if (i > 1) and (i <= m) then if t[i] > t[i - 1] then n := n + 1 else if t[i] < t[i - 1] then begin sm := sm + t[i];nm := nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
Нақты сан – кез келген оң, теріс және нөл сандары. Ол рационал сандар және иррационал сандар болып бөлінеді. Нақты сан түсінігі рационал сан ұғымын кеңейтуден шыққан. Кеңейтудің қажеттілігі кез келген шаманың мәнін толық анықталған сан көмегімен өрнектеуден және математиканың ішкі дамуынан пайда болды. Мысалы: сандарға орындалатын бірсыпыра амалдарды пайдалану облысын кеңейту (түбір астынан шығару, логарифмдерді есептеу, теңдеулерді шешу және т.б.). Нақты сандардың жалпы ұғымын ертедегі грек математиктері салыстырып өлшеуге болмайтын кесінділер теориясында берді. Жүйелі теорияны тек 19 ғасырдың соңында Г.Кантор, Р.Дедекинд және К.Вейерштрасс жасады.
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5