Компьютер в жизни человека.
Всё, что нас окружает создано и управляется при компьютеров.
ИТ делают нашу повседневную жизнь удобнее и безопаснее,главное то, что они нам решать любые задачи намного быстрее.
Длительная работа за компьютером приводит к изменениям в нервной, эндокринной, иммунной системах, негативно сказывается на зрении и костно-мышечном аппарате человека.
Вредные факторы, действующие на человека при работе с электронными устройствами:
•повышенная нагрузка на зрение
•нагрузка на нервную систему
•перегрузка суставов кистей
•электромагнитное излучение
•гиподинамия
Гиподинамия–это низкая двигательная активность организма, снижение общей физической активности.
Перевод целых чисел в двоичный код:
function f(x:integer):string := x>0 ? f(x div 2) + x mod 2 : ''; function ToBinaryCode(Self:integer; n:byte:=8):string; extensionmethod; begin Result := if Self = 0 then '0' else f((Self or Trunc(2**n)) and Trunc(2**n-1)).PadLeft(n, Self>0 ? '0':'1')end; begin ReadInteger.ToBinaryCode.Print; end.Перевод целых чисел в двоичную систему счисления:
function f(x:integer):string := x>0 ? f(x div 2) + x mod 2 : '';function Bin(x:integer):string := x=0 ? '0' : x>0 ? f(x) : '-' + f(Abs(x));begin Print('x₂:', Bin(ReadInteger('x₁₀:')))end.Пример работы:
type ar=array[1..n] of integer;
procedure p1(var a:ar);
var i:integer;
begin
for i:=1 to n do a[i]:=random(101);
end;
procedure p2(var a:ar);
var i:integer;
begin
for i:=1 to n do write(a[i],' ');
writeln;
end;
function min(var a:ar):integer;
var m,i:integer;
begin
m:=100;
for i:=1 to n do
if (a[i]<m)and(a[i]>=20) then m:=a[i];
min:=m;
end;
var a:ar;
begin
Randomize;
p1(a);
p2(a);
writeln('min = ',min(a));
end.
Пример:
15 59 25 47 3 53 57 91 13 22 99 12 53 87 68
min = 22