Примеры комплектации компьютерного рабочего места в соответствии с целями его использования для различных направлений профессиональной деятельности

1. секретарь: черно-белый лазерный принтер, сканер либо многофункциональное устройство (мфу), совмещающее функции сканера, ксерокса и принтера, офисное программное обеспечение (почта, текстовый редактор, электронные таблицы, программа для работы с презентациями). 2. работник издательства (набор и верстка текстов): цветной сканер, монитор с большой диагональю, набор программ для распознавания текстов, прошраммное обеспечение для верстки текста, доступ к высокопроизводительному сетевому принтеру 3. дизайнер: цветной сканер, цветной принтер, профессиональный монитор с большой диагональю, программное обеспечение: работа с 2d и 3d-графикой. 4. видеомонтажер: два профессиональных монитора, один из которых с большой диагональю, аппаратные видеоускорители, высокопроизводительный сетевой накопитель большой емкости, программы для видеомонтажа и обработки звука.

//pascal abc.net v3.1 сборка 1172 var   na, nb, nc: integer; function minim(ar: array of real; n: integer): real; var   i: integer;   min: real; begin   min : = maxreal;   for i : = 0 to n - 1 do //динамические массивы индексируются с 0       if min > ar[i] then min : = ar[i];   minim : = min; end; begin   randomize;   write('na: '); readln(na); //ввод размерностей   write('nb: '); readln(nb);   write('nc: '); readln(nc);   var a : = arrrandomreal(na, 1, na); //инициализация динамических массивов   var b : = arrrandomreal(nb, 1, nb);   var c : = arrrandomreal(nc, 1, nc);   a.println(' ');   writeln('min: ', minim(a, na));   b.println(' ');   writeln('min: ', minim(b, nb));   c.println(' ');   writeln('min: ', minim(c, nc)); end. пример ввода: na: 3 nb: 4 nc: 5 пример вывода: 2.45183664907321 2.12786289357015 2.8286734511278 min: 2.12786289357015 3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996 min: 1.03827733129183 3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051 min: 3.57791954771519

//pascal abc.net v3.1 сборка 1172 //1 var   i,x,max,n,maxi: integer; begin max: =-32768; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n> =max then       begin         max: =n;         maxi: =i;       end;   end; writeln(maxi); end. пример ввода: 3 1 2 2 пример вывода: 3 //2 var   i,x,min,n,mini: integer; begin min: =32767; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n< min then       begin         min: =n;         mini: =i;       end;   end; writeln(mini); end. пример ввода: 3 1 1 2 пример вывода: 1