Проводил свободное место. ( )- множество стереоскопических () Я американский ученый, инженер - программист, который разработал программное обеспечение, чтобы сшить их точно. Виртуальная Реальность и Дополненная

Чьи слова??

Не трать деньги на этот мусор, собранное из него это позавчерашний день! Проц бери хотя бы I3, а памяти не меньше 3Г. Причём, повторюсь, практически за те же деньги.

 

Если это как бы виртуально, то есть абстрактная задача, то такого рода задачи решаются, например, так

1. Комплектующие раскладываются на "кучки", у тебя это будут отдельные списки, отдельно CPU(процессоры), MB(мамы), Memory(память), HDD(винты) ну и так далее.

В каждом списке основные х-ки, стоимость.

Далее смотришь на то, что в конце-концов хочешь получить и набираешь наилучший вариант, если вышел за лимит стоимости, начинаешь "жертвовать" чем либо, заменяя на более дешёвый вариант. В конце концов получится один или несколько примерно равных вариантов.

Ну, например, если заниматься медиа-, нужжен мощный проц, звуковуха, видеокарта, колонки.

Если играть в игры - то основное видеокарта

Если офисный вариант, то всё по-среднему, всё равно тексты набирать в Ворде.

 

НО, повторюсь, предлагаемые тобой комплектующие - на сегодняшний день -МУСОР, из которого ничего стоящего собрать нельзя, даже офисный вариант будет слабоват.

 

Кстати, сейчас, например, LCD-19' стоят всего $100-150. И нужно брать 22-24'', которых у тебя в списке нет.

 

 

1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47