Перейти к содержанию

TiPo

Пользователи
  • Постов

    1 037
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные TiPo

  1. Поступаю на программиста, не могу определиться на какое направление пойти учиться. Подскажите что лучше, и если хотите, расскажите об этих направлениях, то есть чем они отличаются друг от друга.

    1. Информатика и вычислительная техника (230100)

    2. Прикладная математика и информатика (010400)

    Заранее спасибо.

  2. Буду учиться на программиста, параллельно дополнительное самообразование. Необходимо приобрести ноутбук, желательно не очень дорогой.

    Вот составил список необходимых требований к ноутбуку(может вы ёще что подскажите):


    • [*:cd98cf1b64] Оперативная память не меньше 4 ГБ.
      [*:cd98cf1b64] Процессор "от" i5.
      [*:cd98cf1b64] Экран не глянцевый, то есть матовый.
      [*:cd98cf1b64] Экран в пределах 15 дюймов, лучше если 15"6.
      [*:cd98cf1b64] Вес. Чем меньше, тем лучше, но не больше 3 кг.
      [*:cd98cf1b64] Автономность от 4 часов. Чем больше, тем лучше.
      [*:cd98cf1b64] Удобная клавиатура.
      [*:cd98cf1b64] Видеокарта. Хотелось бы и поиграть во что-нибудь новое(хотя я не особо на это налегаю, но всё же).
      [*:cd98cf1b64] Не слишком дорого.

    Я выбрал несколько моделей. Что вы можете сказать о них:


    • [*:cd98cf1b64] Lenovo B590. Ссылка:
    http://market.yandex.ru/model.xml?modelid=8529014&hid=91013
    [*: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

    Заранее спасибо.

  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

  4. pam-param

    Может вы путаете с оригинальностью текста?

    Я когда подрабатывал рерайтом проверял оригинальность через адвего. Без особых усилий 95-100% оригинальности.

    Если что, то можно на free-lance.ru или freelansim.ru оставить заказ. Новички, обычно, берут 20р. за 1000збп..

  5. Решал лёгкую задачу, решил, но код получился, мне кажется, не очень хорошим. Потом посмотрел решение другого человека, так у него решение оказалось в два раза короче.

    Пожалуйста посмотрите решения и укажите на ошибки.

    Условие задачи:

    В небольшом островном государстве действовали забавные законы относительно

    транспортных средств – автобусов, грузовиков, легковушек.

    Во-первых, общее количество автомобилей на острове не должно было превышать

    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;

  6. Компы - зло. Это уже доказано.

    А зачем вы ими пользуетесь?

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

  7. Mac

    Слева же ты огражден от плохой информации

    Это ли розовые очки? Лучше знать происходящее вокруг нежели быть слепым котенком.

    Тем более я считаю, что счастье не зависит от происходящего в мире и плохой информации, каждый человек сам творит своё счастье не смотря на происходящее вокруг него.

  8. справа люди гораздо больше знают о мире и, в частности, о его неприглядной стороне, и это знание очень сильно мешает быть счастливым. Слева же ты огражден от плохой информации, ты веришь в святость вождей и ни на секунду не сомневаешься в ней.

    Жить в розовых очках? Не выход.

×
×
  • Создать...