Нақты сан – кез келген оң, теріс және нөл сандары. Ол рационал сандар және иррационал сандар болып бөлінеді. Нақты сан түсінігі рационал сан ұғымын кеңейтуден шыққан. Кеңейтудің қажеттілігі кез келген шаманың мәнін толық анықталған сан көмегімен өрнектеуден және математиканың ішкі дамуынан пайда болды. Мысалы: сандарға орындалатын бірсыпыра амалдарды пайдалану облысын кеңейту (түбір астынан шығару, логарифмдерді есептеу, теңдеулерді шешу және т.б.). Нақты сандардың жалпы ұғымын ертедегі грек математиктері салыстырып өлшеуге болмайтын кесінділер теориясында берді. Жүйелі теорияны тек 19 ғасырдың соңында Г.Кантор, Р.Дедекинд және К.Вейерштрасс жасады.
6) const n=10; var a: array[1..n] of integer; i,max,min : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i] > max then max:=a[i]; if a[i] < min then min:=a[i]; end; writeln('L = ',max-min); end.
9) const n=10; var a: array[1..n] of real; i,k1,k2 : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=10*random-5; write(a[i]:5:2); end; writeln; k1:=0; k2:=0; for i:=1 to n do if a[i]>0 then k1:=k1+1 else if a[i]<0 then k2:=k2+1; writeln('Положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2); end.
16) const n=10; var a: array[1..n] of real; i : integer; begin for i:=1 to n div 2 do begin a[i]:=i; a[n div 2+i]:=sin(a[i]); end; for i:=1 to n div 2 do writeln(a[i]:4:1,a[n div 2+i]:6:2); end.
19) const n=10; var a: array[1..n] of integer; i: integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(51); write(a[i]:5); end; writeln; writeln('Выбранные элементы:'); i:=1; while i<=n do begin write(a[i],' '); i:=2*i; end; end.
begin var a:=ReadArrReal('Вводите:',ReadInteger('n=')); Writeln('Положительных: ',a.Where(t->t>0).Count); Writeln('Отрицательных: ',a.Where(t->t<0).Count); Writeln('Нулевых: ',a.Where(t->t=0).Count) end.
begin var a:=Arr(-3.7,-3.1,-2.3,-1.6,-0.9,-0.2,0.5,1.2,1.9,2.6,3.3,4.0,4.2,5.4, 1.92,1.76,1.52,1.26,0.95,0.45,0.71,1.10,1.38,1.61,1.82,2.00,2.05,2.32); var d:=a.Length div 2; for var i:=0 to d-1 do Writeln(a[i]:5:2,a[i+d]:20:3) end.
Нақты сан – кез келген оң, теріс және нөл сандары. Ол рационал сандар және иррационал сандар болып бөлінеді. Нақты сан түсінігі рационал сан ұғымын кеңейтуден шыққан. Кеңейтудің қажеттілігі кез келген шаманың мәнін толық анықталған сан көмегімен өрнектеуден және математиканың ішкі дамуынан пайда болды. Мысалы: сандарға орындалатын бірсыпыра амалдарды пайдалану облысын кеңейту (түбір астынан шығару, логарифмдерді есептеу, теңдеулерді шешу және т.б.). Нақты сандардың жалпы ұғымын ертедегі грек математиктері салыстырып өлшеуге болмайтын кесінділер теориясында берді. Жүйелі теорияны тек 19 ғасырдың соңында Г.Кантор, Р.Дедекинд және К.Вейерштрасс жасады.