Народ, помогите с паскалем!

Чтобы отправить комментарий — войдите.
  • L
    16 дек 05
    ВАХАХАХ ЖЕСТОКО

    Ты бы темы пораньше чтоли создавал..
    Ответить
  • Z
    15 дек 05
    Ну ты молодца...

    Ты бы ещё на Фортране попросил написать, вот на си — другое дело..

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

    ЗА то время, что ты сканил и печатал, мог-бы пол книги паскалю прочитать, для ламеров, помогло-бы, наверное...

    З.З.Ы.

    *lol*
    Ответить
    • Boomburum
      Boomburum АВТОР
      Zeto 15 дек 05
      Я как только увидел хтмл, сразу все уловил, ксс. А сколько пхп, перл, паскаль итп не учил — нифига не учится :( Разобраться в коде соввсем немножко могу, а написать чтото — траблы :( A по поводу одногрупников..Да, я не отличник и иногда не все сдавал с первого раза..Иногда просил их помочь сделать, кто понимает и уже все здал..Закрывают глаза и говорят — я ничего не знаю. Ненавижу такое, это эгоизм. На экзамене еще ладно — мы его конкуренты, а када уже все вместе учимся — надо держаться вместе. Я вот всем стараюсь помогать...
      Ответить
      • J
        Чем же ты помогаешь, если ты ничего не знаешь? ))) Советами? И моральной поддержкой?

        И еще запомни: в этой жизни тебе никто ничего не должен! И не стоит одногруппников обвинять в том что не хотят помогать, с какого хера им тебе помогать? И с какого хера посетителям данного сайта тебе помогать?
        Ответить
        • M
          У тебя обрезание ? Таких мудаков ненавижу! Ды их никто не любит! Таким лица до крови доводил! Учитель бля! Ты чо за быдла писать в чужом доке "И еще запомни:", лениво — не делай! Я всегда помогал своим одногрупникам в чем мог — в частности по информатике сделал лабы почти всем, благо варианты не особо отличались....
          Ответить
          • Boomburum
            Boomburum АВТОР
            Megazhuk 18 дек 05
            я поступил в универ вместе в с 4 одноклассниками, помог им поступить (рус, физ), они мне (физ, мат). Учимся в одной группе. Если смотрел мой профиль — у меня еще есть один док, типа жж. Я там коечто писал. Да, согласен с Мегажуком, таких товарищей как ты толпы, и если честно я таких людей не люблю Не хочешь помогать — не помогай, а лучше сразу и скажи что не можешь :) Нет ты не обязан мине помогать, просто у меня возникла проблема и хорошие люди-читатейли дока реально помогли, в отличие от некоторых учителей-наставников-проповедников..:)
            Ответить
  • L
    15 дек 05
    Мда... Из софтового портала постепенно превращаемся в песочницу ламеров.

    Компьютер значит тебе родители купили, на сканер тоже денег не пожалели — сиди, сынок, учись.

    А тебе даже пару примитивных программ на простом языке Паскале лень сваять.

    Еще и хочешь чтобы за тебя народ задачки решал. Еще и "срочно, горю!" И на сокурсников наезжаешь, типа не помогли — значит жиды и т.д. Что в семестре делал, пиво пил? Далеко же ты пойдёшь с таким отношением к жизни.

    Тьфу, противно. Недостоин ты обладания компьютером Точка.
    Ответить
    • K
      luda 15 дек 05
      какая вы ужасная люда, вы мне напоминаете начальницу из служебного романа, такае же потивная
      Ответить
    • Boomburum
      Boomburum АВТОР
      luda 16 дек 05
      Люда, дорогая. Начнем с того что на компьютер я заработал сам, на сканер тоже, родители тут ни при чем. Второе — пиво я не пью. По поводу одногруппников — подними голову выше. Я живу по принципу — относись к другому так, как хочешь чтобы относились к тебе. В своей группе я помогаю тем, кто помогает мне. Уже писал про это в другом своем доке, ищи если интересно. Еще — ноунейм уже давно не софтовый портал и никогда им таким не был. Хотябы само название говорит об этом :) а поповоду примитивных задач..да, для когото они примитивные, для когото нет. Я тоже много чего могу сделать, что для меня примитивно, но над чем ты будешь очко рвать...
      Ответить
      • J
        Эти задачи действительно ПРИМИТИВНЫЕ! Ну решат тебе сейчас, а как дальше учиться? Ты ж нихера не сможешь сделать, если не можешь даже такие задачи решить
        Ответить
  • R
    15 дек 05
    "Я как подумаю, какой из меня инженер — боюсь идти лечиться." Анекдот.
    Ответить
    • F
      автоматическое построение блок-схем

      fceditor.nm.ru

      -конвертация из паскаля в блок-схему

      -автоматическое выравнивание по размеру текста
      Ответить
  • T
    15 дек 05
    Парень, а ты не в МАДИ на 1ом курсе?
    Ответить
  • R
    15 дек 05
    мошт помогу ася 754764
    Ответить
  • L
    15 дек 05
    ЛОЛ... ничего не имею против этой "новости"... просто смешно... может мне тоже чего-нить попросить сделать :))
    Ответить
  • F
    15 дек 05
    вот код для первой картинки для матрицы A (для B такая же хрень, только установи m и n равным 3)

    вот код:

    program nnm;

    const n = 2;

    m = 4;

    var i, j, s, z: integer;

    a: array [1..100, 1..100] of integer;

    p: array [1..100] of real;

    min: real;

    begin

    for j := 1 to m do

    for i := 1 to n do begin

    write('a[', i, ', ', j,'] = ');

    readln(a[i, j]);

    end;

    for j := 1 to m do begin

    s := 0;

    for i := 1 to n do begin

    s := s + a[i, j];

    end;

    p[j] := s / n;

    end;

    writeln('Output p: ');

    for j := 1 to m do writeln('p[', j ,'] = ' , p[j]);

    min := p[1];

    z := 1;

    for j := 2 to m do begin

    if p[j] < min then begin

    min := p[j];

    z := j;

    end;

    end;

    writeln('Min value: ', min);

    writeln('Min column: ', z);

    readln();

    end .
    Ответить
  • Boomburum
    Boomburum АВТОР
    15 дек 05
    Друг реши первую задачу, за что ему большое спасибо!

    Program matr;

    var

    a : array [1..5,1..5] of integer;

    b : array [1..5,1..5] of integer;

    i,j,k : integer;

    s,m : real;

    begin

    for i:=1 to 2 do

    for j:=1 to 4 do

    begin

    write('A[',i,',',j,'] = ');

    readln(a[i,j]);

    end;

    writeln;

    for i:=1 to 3 do

    for j:=1 to 3 do

    begin

    write('B[',i,',',j,'] = ');

    readln(b[i,j]);

    end;

    writeln;

    s:=0;

    k:=0;

    m:=0;

    for j:=1 to 4 do

    begin

    for i:=1 to 2 do

    s:=s+a[i,j];

    s:=s/2;

    if (j=1) then

    begin

    k:=1;

    m:=s;

    end;

    if ((j>1) and (s1) and (s
    Ответить
  • F
    15 дек 05
    вот код для первой картинки для матрицы A (для B такая же хрень, только установи m и n равным 3)

    вот код:

    program nnm;

    const n = 2;

    m = 4;

    var i, j, s, z: integer;

    a: array [1..100, 1..100] of integer;

    p: array [1..100] of real;

    min: real;

    begin

    for j := 1 to m do

    for i := 1 to n do begin

    write('a[', i, ', ', j,'] = ');

    readln(a[i, j]);

    end;

    for j := 1 to m do begin

    s := 0;

    for i := 1 to n do begin

    s := s + a[i, j];

    end;

    p[j] := s / n;

    end;

    writeln('Output p: ');

    for j := 1 to m do writeln('p[', j ,'] = ' , p[j]);

    min := p[1];

    z := 1;

    for j := 2 to m do begin

    if p[j] < min then begin

    min := p[j];

    z := j;

    end;

    end;

    writeln('Min value: ', min);

    writeln('Min column: ', z);

    readln();

    end .
    Ответить
    • Boomburum
      Boomburum АВТОР
      FaithlessMan 15 дек 05
      Большое спасибо! Перепишу как вариант, может училка раздобреет :)
      Ответить
full image