Не трать деньги на этот мусор, собранное из него это позавчерашний день! Проц бери хотя бы I3, а памяти не меньше 3Г. Причём, повторюсь, практически за те же деньги.
Если это как бы виртуально, то есть абстрактная задача, то такого рода задачи решаются, например, так
1. Комплектующие раскладываются на "кучки", у тебя это будут отдельные списки, отдельно CPU(процессоры), MB(мамы), Memory(память), HDD(винты) ну и так далее.
В каждом списке основные х-ки, стоимость.
Далее смотришь на то, что в конце-концов хочешь получить и набираешь наилучший вариант, если вышел за лимит стоимости, начинаешь "жертвовать" чем либо, заменяя на более дешёвый вариант. В конце концов получится один или несколько примерно равных вариантов.
Ну, например, если заниматься медиа-, нужжен мощный проц, звуковуха, видеокарта, колонки.
Если играть в игры - то основное видеокарта
Если офисный вариант, то всё по-среднему, всё равно тексты набирать в Ворде.
НО, повторюсь, предлагаемые тобой комплектующие - на сегодняшний день -МУСОР, из которого ничего стоящего собрать нельзя, даже офисный вариант будет слабоват.
Кстати, сейчас, например, LCD-19' стоят всего $100-150. И нужно брать 22-24'', которых у тебя в списке нет.
var s,v,t,a:real;
begin
writeln('Введите скорость, ускорение и время соотвественно');
read(v,a,t);
s:=v*t+(a*sqr(t))/2;
writeln('Расстояние S = ',s);
end.
Задание №2
var a,b,c,d,m,n:integer;
begin
writeln('Введите ширину и высоту комнаты');
read(a,b);
writeln('Введите размеры окна');
read(c,d);
writeln('Введите размеры двери');
read(m,n);
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n);
end.
Задание №3
var a,b:real;
begin
writeln('Введите два числа');
read(a,b);
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b)));
end.
Задание №4
var x:real;
begin
writeln('Введите ребро куба');
read(x);
writeln('Площадь грани = ',sqr(x));
writeln('Площадь полной поверхности = ',6*sqr(x));
writeln('Объем куба = ',power(x,3));
end.
Задание №5
var r1,r2:real;
begin
writeln('Введите внешний и внутренний радиус');
read(r1,r2);
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2));
end.