-
Постов
1 037 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Сообщения, опубликованные TiPo
-
-
В какой ВУЗ стоит действительно поступать? Где дают знания?
P.S. Если нужны уточнения по вопросу, то сделать их смогу немного позднее: этот вопрос не для меня.
-
-
bairinc0
НГТУ.
-
Подобрал из Lenovo вот что:
Lenovo IdeaPad Z500. 1-ая версия: http://bit.ly/11iXZ3r
Lenovo IdeaPad Z500. 2-ая версия: http://bit.ly/1c8CdnJ
Lenovo B590: http://bit.ly/139YWfT Здесь дискретная + встроенная графика.
Lenovo V580: http://bit.ly/19meyk4
-
Поступаю на программиста, не могу определиться на какое направление пойти учиться. Подскажите что лучше, и если хотите, расскажите об этих направлениях, то есть чем они отличаются друг от друга.
1. Информатика и вычислительная техника (230100)
2. Прикладная математика и информатика (010400)
Заранее спасибо.
-
До 25 000, но как сказал, если можно, то сэкономить.
-
Буду учиться на программиста, параллельно дополнительное самообразование. Необходимо приобрести ноутбук, желательно не очень дорогой.
Вот составил список необходимых требований к ноутбуку(может вы ёще что подскажите):
[*:cd98cf1b64] Оперативная память не меньше 4 ГБ.
[*:cd98cf1b64] Процессор "от" i5.
[*:cd98cf1b64] Экран не глянцевый, то есть матовый.
[*:cd98cf1b64] Экран в пределах 15 дюймов, лучше если 15"6.
[*:cd98cf1b64] Вес. Чем меньше, тем лучше, но не больше 3 кг.
[*:cd98cf1b64] Автономность от 4 часов. Чем больше, тем лучше.
[*:cd98cf1b64] Удобная клавиатура.
[*:cd98cf1b64] Видеокарта. Хотелось бы и поиграть во что-нибудь новое(хотя я не особо на это налегаю, но всё же).
[*:cd98cf1b64] Не слишком дорого.
Я выбрал несколько моделей. Что вы можете сказать о них:
[*:cd98cf1b64] Lenovo B590. Ссылка:
[*:cd98cf1b64] Lenovo IdeaPad Z580. Ссылка: http://market.yandex.ru/model.xml?CMD=-RR=9,0,0,0-PF=1801946~EQ~sel~1871127-PF=2142398356~EQ~sel~24729751-VIS=70-CAT_ID=432460-EXC=1-PG=10&modelid=8292006&hid=91013
[*:cd98cf1b64] Acer ASPIRE V5-571PG-53336G50Ma. Ссылка: http://market.yandex.ru/model.xml?CMD=-RR=9,0,0,0-PF=1801946~EQ~sel~3598551-PF=2142398356~EQ~sel~x223599465-VIS=70-CAT_ID=432460-EXC=1-PG=10&modelid=9262041&hid=91013
[*:cd98cf1b64] Lenovo G580. Ссылка: http://market.yandex.ru/model.xml?CMD=-RR=9,0,0,0-PF=1801946~EQ~sel~1871127-PF=2142398356~EQ~sel~40604311-VIS=70-CAT_ID=432460-EXC=1-PG=10&modelid=8229995&hid=91013
[*:cd98cf1b64] ASUS PRO ESSENTIAL PU500CA. Ссылка: http://market.yandex.ru/model.xml?CMD=-RR=9,0,0,0-PF=1801946~EQ~sel~1870655-PF=2142398356~EQ~sel~x511455081-VIS=70-CAT_ID=432460-EXC=1-PG=10&modelid=10386474&hid=91013
[*:cd98cf1b64] Lenovo IdeaPad Z500. Ссылка: http://market.yandex.ru/model.xml?CMD=-RR=9,0,0,0-PF=1801946~EQ~sel~1871127-PF=2142398356~EQ~sel~x34924649-VIS=70-CAT_ID=432460-EXC=1-PG=10&modelid=8525025&hid=91013
[*:cd98cf1b64] Lenovo THINKPAD Edge E530. Ссылка: http://market.yandex.ru/model.xml?CMD=-RR=9,0,0,0-PF=1801946~EQ~sel~1871127-PF=2142398356~EQ~sel~9013143-VIS=70-CAT_ID=432460-EXC=1-PG=10&modelid=8353399&hid=91013Заранее спасибо.
-
Слева либо поезд, либо дом, либо забор.
-
Okami
Потому что это АЙ-СИ-КАП! Хыдыщь.
-
Ayumi
Как повезёт, я уже 997 часов наиграл, зато на 60 лвл, экстраординарных АМов с даггером давно не встречал.
-
dimasdash
По-моему в режмие роутера не создать сервер.
-
Занял 3-е место - всё равно ушёл в минус.
-
На быструю руку(pascal):
var
n, i, j:integer;
a:array [1..20, 1..20] of integer;
begin
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
read(a[i,j]);
if i mod 2=0 then a[i,j]:=a[i,j]-a[i-1,j];
end;
writeln;
end;
for i:=n-3 to n do begin
for j:=1 to n do write(a[i,j], ' ');
writeln;
end;
write('Press Enter'); readln;
end.program u4;
n можно объявить как
const n = 20;
тогда
a:array [1..n, 1..n] of integer
-
R.E.D.
Её удалили.
-
-
pam-param
Может вы путаете с оригинальностью текста?
Я когда подрабатывал рерайтом проверял оригинальность через адвего. Без особых усилий 95-100% оригинальности.
Если что, то можно на free-lance.ru или freelansim.ru оставить заказ. Новички, обычно, берут 20р. за 1000збп..
-
Решал лёгкую задачу, решил, но код получился, мне кажется, не очень хорошим. Потом посмотрел решение другого человека, так у него решение оказалось в два раза короче.
Пожалуйста посмотрите решения и укажите на ошибки.
Условие задачи:
В небольшом островном государстве действовали забавные законы относительно
транспортных средств – автобусов, грузовиков, легковушек.
Во-первых, общее количество автомобилей на острове не должно было превышать
256. Автомобилям назначались номера с 0 до 255, при этом соблюдались следующие
правила.
Номера, делившиеся без остатка на 7, назначались автобусам. Те, что делились без
остатка на 5, назначались грузовикам, а все прочие – легковушкам. Так, например, номера
35 и 70 доставались автобусам, а не грузовикам, хоть и делились на 5.
Похожие правила применялись и к окраске автомобилей, а именно.
Если номер авто делился на 4, его красили красным, если на 3 – желтым, если на 2 –
белым, а остальные автомобили красили черным.
· Сформируйте три множества по классам автомобилей – автобусы, грузовики и
легковушки. Вычислите количество машин каждого класса (Ответ: 37, 44, 175).
· Сформируйте четыре множества по цвету автомобилей – красные, желтые, белые и
черные. Определите количество машин каждого цвета (Ответ: 64, 64, 43, 85).
· Столица того государства – деревня Кокосовка – страдала от пробок. Для борьбы с
ними ввели ограничение на въезд транспорта. Так, в один из дней недели в столицу
пускали только красные легковушки, белые грузовики и все автобусы. Найдите
номера всех этих машин. Сколько всего автомобилей могло въехать в столицу в тот
день?
Моё решение:
TSet = set of byte;
var
i:byte;
Bus, Truck, Car, Red, Yellow, White, Black, Sets:TSet;
function ReadType(aI:byte):TSet;
var
n:byte;
begin
ReadType:=[];
for n:=0 to 255 do
if n mod aI=0 then ReadType:=ReadType+[n];
end;
procedure SetOfType(var aBus, aTruck, aCar:TSet);
var
i, j:byte;
begin
i:=7;
repeat
case i of
7:aBus:=ReadType(i);
5:aTruck:=ReadType(i)-aBus;
else for j:=0 to 255 do
if not (j in aBus+aTruck) then aCar:=aCar+[j];
end;
i:=i-2;
until i<3;
end;
function ReadColor(aI:byte):TSet;
var
n:byte;
begin
ReadColor:=[];
for n:=0 to 255 do
if n mod aI=0 then ReadColor:=ReadColor+[n];
end;
procedure SetOfColor(var aRed, aYellow, aWhite, aBlack:TSet);
var
i, j:byte;
begin
i:=4;
repeat
case i of
4:aRed:=ReadColor(i);
3:aYellow:=ReadColor(i)-aRed;
2:aWhite:=ReadColor(i)-(aRed+aYellow);
else for j:=0 to 255 do
if not (j in aRed+aYellow+aWhite) then aBlack:=aBlack+[j];
end;
dec(i);
until i=0;
end;
procedure WriteSets(aSet:TSet);
var
j, k:byte;
begin
k:=0;
for j:=0 to 255 do begin
if j in aSet then inc(k);
end;
write(k, ' ');
end;
begin
//Множества типов автомобилей
Bus:=[]; Truck:=[]; Car:=[];
//Множество цветов
Red:=[]; Yellow:=[]; White:=[]; Black:=[];
SetOfType(Bus, Truck, Car);
SetOfColor(Red, Yellow, White, Black);
for i:=1 to 7 do begin
case i of
1:Sets:=Bus;
2:Sets:=Truck;
3:Sets:=Car;
4:Sets:=Red;
5:Sets:=Yellow;
6:Sets:=White;
7:Sets:=Black;
end;
WriteSets(Sets);
if (i=3) or (i=7) then writeln;
end;
Sets:=(Red*Car)+(White*Truck)+Bus;
WriteSets(Sets);
readln;
end.type
Решение другого человека:
procedure WriteSet(const aSet : TAuto);
var k : integer;
begin
for k:=0 to 255 do if k in aSet then Write(k:4);
Writeln; Writeln('---');
end;
function Count(const aSet : TAuto): integer;
var k, r : integer;
begin
r:=0;
for k:=0 to 255 do if k in aSet then Inc(r);
Result:=r;
end;
var Bus, Truck, Car : TAuto;
Red, Yellow, White, Black : TAuto;
i: integer;
R: TAuto;
begin
Bus:=[]; Truck:=[]; Car:=[];
Red:=[]; Yellow:=[]; White:=[]; Black:=[];
for i := 0 to 255 do begin
if (i mod 7 = 0) then Bus:= Bus+[i]
else
if (i mod 5 = 0) then Truck:= Truck+[i]
else
Car:= Car+[i];
end;
for i := 0 to 255 do begin
if (i mod 4 = 0) then Red:= Red+[i]
else
if (i mod 3 = 0) then Yellow:= Yellow+[i]
else
if (i mod 2 = 0) then White:= White+[i]
else
Black:= Black+[i];
end;
Writeln(Count(Bus)); WriteSet(Bus);
Writeln(Count(Truck)); WriteSet(Truck);
Writeln(Count(Car)); WriteSet(Car);
Readln;
Writeln(Count(Red)); WriteSet(Red);
Writeln(Count(Yellow));WriteSet(Yellow);
Writeln(Count(White)); WriteSet(White);
Writeln(Count(Black)); WriteSet(Black);
Readln;
R:= Red*Car + White*Truck + Bus;
Writeln(Count(R)); WriteSet(R);
Readln;
end.type TAuto = set of byte;
-
Galiboff
бан же почти у всех всех, там никого нету.
-
Компы - зло. Это уже доказано.
А зачем вы ими пользуетесь?
"Проблемы" с компьютерами появляются не из-за самих компьютеров, а из-за самого человека. Если последний не умеет планировать своё времяпровождение с компьютером, не умеет ограничивать себя, то ясень пень он может получить так называемую "компьютерную зависимость". Всё как с алкоголем, кто-то умеет пить немного и культурно, а кто-то валяется под забором.
-
По-моему что-то не так с нечётными числами:
var
n,r,u,Shet:integer;
begin
readln(n, r, u);
Shet:=0;
if n=3 then Shet:=Shet+r
else repeat
n:=n div 2;
if n=3 then Shet:=Shet+r
else Shet:=Shet+u;
until n=1;
writeln(Shet);
readln;
end. -
sipteronik
-
Mac
Слева же ты огражден от плохой информацииЭто ли розовые очки? Лучше знать происходящее вокруг нежели быть слепым котенком.
Тем более я считаю, что счастье не зависит от происходящего в мире и плохой информации, каждый человек сам творит своё счастье не смотря на происходящее вокруг него.
-
Если решили, то проверьте своё решение здесь: http://informatics.mccme.ru/moodle/mod/statements/view3.php?id=4908&chapterid=111223
-
справа люди гораздо больше знают о мире и, в частности, о его неприглядной стороне, и это знание очень сильно мешает быть счастливым. Слева же ты огражден от плохой информации, ты веришь в святость вождей и ни на секунду не сомневаешься в ней.
Жить в розовых очках? Не выход.
World of Warcraft-Флуд только здесь(WoW)!!!
в World of Warcraft
Опубликовано
Пиратки ещё живы?
Небольшой оффтоп: вы ещё живы?