Процессор — это «мозг» компьютера. Процессором называется устройство обрабатывать программный код и определяющее основные функции компьютера по обработке информации. Конструктивно процессоры могут выполниться как в виде одной большой монокристальной интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат и устройств. Чаще всего процессор представлен в виде чипа, расположенного на материнской плате. На самом чипе написана его марка, его тактовая частота (число возможных операций, которые он может выполнить в единицу времени) и изготовитель.
В настоящее время микропроцессоры и процессоры вмещают в себе миллионы транзисторов и других элементов электронной логики и представляют сложнейшие высокотехнологичные электронные устройства. Персональный компьютер содержит в своем составе довольно много различных процессоров. Они входят в состав систем ввода/вывода контроллеров устройств. Каждое устройство, будь то видеокарта, системная шина или еще что-либо, обслужизается своим собственным процессором или процессорами. Однако архитектуру и конструктивное исполнение персонального компьютера определяет процессор или процессоры, контролирующие и обслуживающие системную шину и оперативную память, а также, что более важно, выполняющие объектный код программ. Такие процессоры принято называть центральными или главными процессорами (Central Point Unit — CPU).
1. PascalABC.NET 3.3 const n=18; begin var a:=ArrRandom(n,0,100); for var i:=0 to n-1 do begin write(a[i],' '); if (i+1) mod 6=0 then writeln; end; writeln('Среднее арифметическое = ',a.Average); writeln('max = a[',a.IndexMax,'] = ',a.Max); writeln('min = a[',a.IndexMin,'] = ',a.Min); end.
2. const n=18; var a:array[1..n] of integer; x,max,min,imax,imin,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(101); write(a[i],' '); if i mod 6=0 then writeln; end; x:=0; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=1 to n do begin x:=x+a[i]; if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; end; writeln('Среднее арифметическое = ',x/n:6:3); writeln('max = a[',imax,'] = ',max); writeln('min = a[',imin,'] = ',min); end.
uses crt;
var s,i:integer;
a:array[1..1000] of integer;
begin
s:=0;
for i:=1 to 1000 do
begin
a[i]:=i;
if ((a[i] = i ) and ( a[i] mod 7 = 0)) then
inc(s);
end;
writeln(s);
readln;
end.