Компьютер бірден қазіргі түрінде пайда болмаған. Компьютердің алғашқы түрлері (прообраз орысша) 1940 жылдары Германия мен АҚШта пайда болған. Сондықтан, оның атасы көп деуге болады. Мышканы 1970 жылы Дуглас Энгельбард ойлап тауып, сол үшін Нобель сыйлығын алған.
Персональные компьютеры PC сегодня стали незаменимыми человека во всех без исключения сферах человеческой деятельности. На компьютерах рассчитывают заработную плату и объем урожая, рисуют графики движения товаров и изменения общественного мнения, проектируют атомные реакторы и ботинки.
Слово “компьютер” означает “вычислитель”. Потребность в автоматизации обработки данных, в том числе вычислений, возникла очень давно. В настоящее время индустрия производства компьютерного железа и программного обеспечения является одной из наиболее важных сфер экономики развитых и развивающихся стран. Причины стремительного роста индустрии персональных компьютеров: невысокая стоимость; сравнительная выгодность для многих деловых применений; простота использования; возможность индивидуального взаимодействия с компьютеров без посредников и ограничений; высокие возможности по переработке, хранению и выдаче информации; высокая надежность, простота ремонта и эксплуатации; компьютерное железо адаптивно к особенностям применения компьютеров; наличие программного обеспечения, охватывающего практически все сферы человеческой деятельности, а также мощных систем для разработки нового программного обеспечения.
// PascalABC.Net 3.0, сборка 1052 function kn(a,b,c:integer):byte; { функция возвращает количество отрицательных среди a,b,c} var n:byte; begin if a<0 then n:=1 else n:=0; if b<0 then Inc(n); if c<0 then Inc(n); kn:=n end;
function cond(c:char;v:integer):string; { функция формирует строку вида с>0 или c<0 в зависимости от знака v} begin if v<0 then cond:=c+'<0 ' else cond:=c+'>=0' end;
procedure pv(a,b,c:integer; n:byte); { печать строки теста } var m:byte; begin m:=kn(a,b,c); Write(cond('a',a),' ',cond('b',b),' ',cond('c',c),' '); Write('отрицательных ',m); if n=m then Write(' - тест тестовое: ',n); Writeln end;
{ тестовое решение } const T:array[1..8,1..3] of integer=((1,1,1),(1,1,-1),(1,-1,1), (1,-1,-1),(-1,1,1),(-1,1,-1),(-1,-1,1),(-1,-1,-1)); R:array[1..8] of byte=(0,1,1,2,1,2,2,3); var i:byte; begin for i:=1 to 8 do pv(T[i,1],T[i,2],T[i,3],R[i]) end.
Тестирование: a>=0 b>=0 c>=0 отрицательных 0 - тест a>=0 b>=0 c<0 отрицательных 1 - тест a>=0 b<0 c>=0 отрицательных 1 - тест a>=0 b<0 c<0 отрицательных 2 - тест a<0 b>=0 c>=0 отрицательных 1 - тест a<0 b>=0 c<0 отрицательных 2 - тест a<0 b<0 c>=0 отрицательных 2 - тест a<0 b<0 c<0 отрицательных 3 - тест
Компьютер бірден қазіргі түрінде пайда болмаған. Компьютердің алғашқы түрлері (прообраз орысша) 1940 жылдары Германия мен АҚШта пайда болған. Сондықтан, оның атасы көп деуге болады. Мышканы 1970 жылы Дуглас Энгельбард ойлап тауып, сол үшін Нобель сыйлығын алған.