Персональные компьютеры 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 - тест
