Hip-Hop.Ru

Hip-Hop.Ru (https://www.hip-hop.ru/forum/)
-   Компьютеры и Интернет (https://www.hip-hop.ru/forum/kompyutery-i-internet-f186)
-   -   Программисты / Компьютерные техники, которые НИКОГДА не спят! [Беседка] (https://www.hip-hop.ru/forum/programmisty-kompyuternye-tehniki-kotorye-nikogda-ne-spyat-besedka-252443/)

Трэй 4 марта 2011 13:38

Цитата:

Цитата от Hammer (Сообщение 1072582606)
Цитата:

Цитата от Трэй (Сообщение 1072582479)
не могу реальзовать нахождение само.
язык паскаль

Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i]) = false) OR (i = N) then
        begin
          if (num > max) then max:= num;
          num:= 0;
        end
      else
        inc(num);
    end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.


он по ходу последнее число не считывает
тестовый набор: 1 3 5 2 4 1 3 5 1 1
вывод:4

Hammer 4 марта 2011 14:44

Цитата:

Цитата от Трэй (Сообщение 1072583087)

он по ходу последнее число не считывает
тестовый набор: 1 3 5 2 4 1 3 5 1 1
вывод:4

Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i]) = false) OR (i = N) then
        begin
          if (i = N) then inc(num);       
          if (num > max) then max:= num;
          num:= 0;
        end
      else
        inc(num);
    end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.

Можно конечно покрасивее сделать, но нет времени.

Добавлено через 1 час 45 минут 51 секунду
Чего-то перемудрил я. Сейчас исправлю.

Добавлено через 1 час 47 минут 34 секунды
Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i])) then inc(num);
      if (odd(m[i]) = false) OR (i = N) then
        begin     
          if (num > max) then max:= num;
          num:= 0;
        end;
    end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.


Трэй 4 марта 2011 16:33

Цитата:

Цитата от Hammer (Сообщение 1072583781)
Цитата:

Цитата от Трэй (Сообщение 1072583087)

он по ходу последнее число не считывает
тестовый набор: 1 3 5 2 4 1 3 5 1 1
вывод:4

Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i]) = false) OR (i = N) then
        begin
          if (i = N) then inc(num);       
          if (num > max) then max:= num;
          num:= 0;
        end
      else
        inc(num);
    end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.

Можно конечно покрасивее сделать, но нет времени.

Добавлено через 1 час 45 минут 51 секунду
Чего-то перемудрил я. Сейчас исправлю.

Добавлено через 1 час 47 минут 34 секунды
Код:

const N = 10;
var
  m : array[1..N] of integer;
  i, num, max : integer;
begin
  num:= 0; max:= 0;
  writeln('Введите массив:');
  for i:= 1 to N do
    begin
      readln(m[i]);
      if (odd(m[i])) then inc(num);
      if (odd(m[i]) = false) OR (i = N) then
        begin     
          if (num > max) then max:= num;
          num:= 0;
        end;
    end;

  writeln('Максимальная последовательность: ', max);
  readln;
end.


спасибо тебе:horosho:
всегда выручаешь

d-mob 4 марта 2011 20:20

Слава Богу. что Я - эколог.

Hammer 4 марта 2011 20:21

Цитата:

Цитата от d-mob (Сообщение 1072587597)
Слава Богу. что Я - эколог.

Ну и зря!

d-mob 4 марта 2011 20:22

Цитата:

Цитата от Hammer (Сообщение 1072587608)
Цитата:

Цитата от d-mob (Сообщение 1072587597)
Слава Богу. что Я - эколог.

Ну и зря!

Да это ж пиздец вот эти коды:eek:

Hammer 4 марта 2011 20:23

Цитата:

Цитата от d-mob (Сообщение 1072587623)
Цитата:

Цитата от Hammer (Сообщение 1072587608)
Цитата:

Цитата от d-mob (Сообщение 1072587597)
Слава Богу. что Я - эколог.

Ну и зря!

Да это ж пиздец вот эти коды:eek:

Кому-то нравится экология, кому-то коды. :saint:
У кого какой склад ума.

d-mob 4 марта 2011 20:27

Цитата:

Цитата от Hammer (Сообщение 1072587638)
Цитата:

Цитата от d-mob (Сообщение 1072587623)
Цитата:

Цитата от Hammer (Сообщение 1072587608)

Ну и зря!

Да это ж пиздец вот эти коды:eek:

Кому-то нравится экология, кому-то коды. :saint:
У кого какой склад ума.

Нравилась бы мне экология, я бы не пошёл бы экологом. :)
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает .

Hammer 4 марта 2011 20:28

Цитата:

Цитата от d-mob (Сообщение 1072587679)
Цитата:

Цитата от Hammer (Сообщение 1072587638)
Цитата:

Цитата от d-mob (Сообщение 1072587623)

Да это ж пиздец вот эти коды:eek:

Кому-то нравится экология, кому-то коды. :saint:
У кого какой склад ума.

Нравилась бы мне экология, я бы не пошёл бы экологом. :)
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает .

А если не секрет, тут у нас - это где? :rolleyes:

Т.е. ты пошел на эколога, но тебе самому не прельщает данная профессия?

d-mob 4 марта 2011 20:32

Цитата:

Цитата от Hammer (Сообщение 1072587711)
Цитата:

Цитата от d-mob (Сообщение 1072587679)
Цитата:

Цитата от Hammer (Сообщение 1072587638)

Кому-то нравится экология, кому-то коды. :saint:
У кого какой склад ума.

Нравилась бы мне экология, я бы не пошёл бы экологом. :)
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает .

А если не секрет, тут у нас - это где? :rolleyes:

Т.е. ты пошел на эколога, но тебе самому не прельщает данная профессия?

В Казахстане.

Мне пока что нравится быть экологом.

Hammer 4 марта 2011 20:33

Цитата:

Цитата от d-mob (Сообщение 1072587747)

В Казахстане.

Мне пока что нравится быть экологом.

К сожалению, не наслышан. :(

У нас в Питере довольно-неплохо с этим дела обстоят. :dovolen:

Тедди 4 марта 2011 20:34

Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим

Hammer 4 марта 2011 20:36

Цитата:

Цитата от Тедди (Сообщение 1072587768)
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим

И в чем проблема?

Тедди 4 марта 2011 20:39

Цитата:

Цитата от Hammer (Сообщение 1072587796)
Цитата:

Цитата от Тедди (Сообщение 1072587768)
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим

И в чем проблема?

Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется

Hammer 4 марта 2011 20:41

Цитата:

Цитата от Тедди (Сообщение 1072587837)
Цитата:

Цитата от Hammer (Сообщение 1072587796)
Цитата:

Цитата от Тедди (Сообщение 1072587768)
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим

И в чем проблема?

Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется

Есть же уже готовые алгоритмы. Зачем придумывать велосипед? :)

Тедди 4 марта 2011 20:43

Цитата:

Цитата от Hammer (Сообщение 1072587851)
Цитата:

Цитата от Тедди (Сообщение 1072587837)
Цитата:

Цитата от Hammer (Сообщение 1072587796)

И в чем проблема?

Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется

Есть же уже готовые алгоритмы. Зачем придумывать велосипед? :)

Суть информатики в том чтобы раскидывать мозгами , а не лепить стандартные алгоритмы))Но здесь я пожалуй так и сделаю)

Hammer 4 марта 2011 20:46

Цитата:

Цитата от Тедди (Сообщение 1072587882)
Цитата:

Цитата от Hammer (Сообщение 1072587851)
Цитата:

Цитата от Тедди (Сообщение 1072587837)

Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется

Есть же уже готовые алгоритмы. Зачем придумывать велосипед? :)

Суть информатики в том чтобы раскидывать мозгами , а не лепить стандартные алгоритмы))Но здесь я пожалуй так и сделаю)

Ну это для понимания. А если ты поймешь уже готовый алгоритм, то ничего не потеряешь.

Трэй 4 марта 2011 20:46

Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу

ТэМэ 4 марта 2011 20:47

в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста :guinda:

Hammer 4 марта 2011 20:50

Цитата:

Цитата от Трэй (Сообщение 1072587922)
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу

Ты долго пишешь на паскале? :confused: Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
Цитата:

Цитата от TYOMA_тотСамый_TM (Сообщение 1072587925)
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста :guinda:

Если голова варит, то не такой он и тяжелый. ;)

Тедди 4 марта 2011 20:51

Цитата:

Цитата от Трэй (Сообщение 1072587922)
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу

Тут всё) http://www.delphibasics.ru/

Трэй 4 марта 2011 20:52

Цитата:

Цитата от Hammer (Сообщение 1072587958)
Цитата:

Цитата от Трэй (Сообщение 1072587922)
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу

Ты долго пишешь на паскале? :confused: Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
Цитата:

Цитата от TYOMA_тотСамый_TM (Сообщение 1072587925)
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста :guinda:

Если голова варит, то не такой он и тяжелый. ;)

прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию

Hammer 4 марта 2011 20:55

Цитата:

Цитата от Трэй (Сообщение 1072587980)
Цитата:

Цитата от Hammer (Сообщение 1072587958)
Цитата:

Цитата от Трэй (Сообщение 1072587922)
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу

Ты долго пишешь на паскале? :confused: Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
Цитата:

Цитата от TYOMA_тотСамый_TM (Сообщение 1072587925)
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста :guinda:

Если голова варит, то не такой он и тяжелый. ;)

прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию

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

Трэй 4 марта 2011 20:56

Цитата:

Цитата от Hammer (Сообщение 1072588002)
Цитата:

Цитата от Трэй (Сообщение 1072587980)
Цитата:

Цитата от Hammer (Сообщение 1072587958)

Ты долго пишешь на паскале? :confused: Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.


Если голова варит, то не такой он и тяжелый. ;)

прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию

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

у меня обычная средняя образовательная школа(((
у моего учителя скорость набора текста на клавиатуре около 50 символов в минуту методом одного пальца

Hammer 4 марта 2011 21:00

Цитата:

Цитата от Трэй (Сообщение 1072588012)
Цитата:

Цитата от Hammer (Сообщение 1072588002)
Цитата:

Цитата от Трэй (Сообщение 1072587980)

прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию

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

у меня обычная средняя образовательная школа(((
у моего учителя скорость набора текста на клавиатуре около 50 символов в минуту методом одного пальца

Такие учителя обычно хорошо знают материал только учебника по информатики, но зная наши учебники, можно сказать, что они знают информатику на уровне обычного пользователя. :(

Трэй 4 марта 2011 21:03

Цитата:

Цитата от Hammer (Сообщение 1072588041)
Цитата:

Цитата от Трэй (Сообщение 1072588012)
Цитата:

Цитата от Hammer (Сообщение 1072588002)

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

у меня обычная средняя образовательная школа(((
у моего учителя скорость набора текста на клавиатуре около 50 символов в минуту методом одного пальца

Такие учителя обычно хорошо знают материал только учебника по информатики, но зная наши учебники, можно сказать, что они знают информатику на уровне обычного пользователя. :(

бывают попадаются задачки сложноватые подобно этой (для меня, естественно :D)
а так, в основном, всё банально и примитивно(среднее арифметическое, сумма нечётных элементов массива и т.д. и т.п.)
кстати, может ещё поделишься сайтом с задачками, если такой имеется в наличие?

Hammer 4 марта 2011 21:07

Цитата:

Цитата от Трэй (Сообщение 1072588065)
Цитата:

Цитата от Hammer (Сообщение 1072588041)
Цитата:

Цитата от Трэй (Сообщение 1072588012)

у меня обычная средняя образовательная школа(((
у моего учителя скорость набора текста на клавиатуре около 50 символов в минуту методом одного пальца

Такие учителя обычно хорошо знают материал только учебника по информатики, но зная наши учебники, можно сказать, что они знают информатику на уровне обычного пользователя. :(

бывают попадаются задачки сложноватые подобно этой (для меня, естественно :D)
а так, в основном, всё банально и примитивно(среднее арифметическое, сумма нечётных элементов массива и т.д. и т.п.)
кстати, может ещё поделишься сайтом с задачками, если такой имеется в наличие?

acmp.ru - отличный сайт, но здесь большинство задач олимпиадные.
Отсортируй по сложности, порешай. Развивает очень. :horosho:

Трэй 4 марта 2011 21:12

Цитата:

Цитата от Hammer (Сообщение 1072588140)
Цитата:

Цитата от Трэй (Сообщение 1072588065)
Цитата:

Цитата от Hammer (Сообщение 1072588041)
Такие учителя обычно хорошо знают материал только учебника по информатики, но зная наши учебники, можно сказать, что они знают информатику на уровне обычного пользователя. :(

бывают попадаются задачки сложноватые подобно этой (для меня, естественно :D)
а так, в основном, всё банально и примитивно(среднее арифметическое, сумма нечётных элементов массива и т.д. и т.п.)
кстати, может ещё поделишься сайтом с задачками, если такой имеется в наличие?

acmp.ru - отличный сайт, но здесь большинство задач олимпиадные.
Отсортируй по сложности, порешай. Развивает очень. :horosho:

спасибо
порешаем:horosho:

T31 5 марта 2011 17:18

люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Hammer 5 марта 2011 17:29

Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Решить n! - m! ?
Или что?

иксуй! 5 марта 2011 17:32

Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Опасная задачка. Ограничения на N и M какие?

bu_74_4TZ 5 марта 2011 18:40

Тут компьютер собрал... ну как собрал подключил все к материнке и разложил на столе т.к. нет корпуса...
Накатил убунту.... сначала не устанавливалась, потом вспомнил что на убунту надо больше ~300 мб памяти, к 256 добавил еще 128... сразу установилась.
процессор амд +1500 на 462 сокете, на 1,5гГц
Видеокарта меня поразила... на 16 мегабайт, вроде НВидиа, ради интереса зашел на ютуб, и включил видео на 360 и думал вобще не будет показывать или будет показывать но с тормозами, но нет работала даже на полный экран без тормозов:)...

T31 5 марта 2011 20:14

Цитата:

Цитата от иксуй! (Сообщение 1072596169)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Опасная задачка. Ограничения на N и M какие?

да ограничений как бы нет,ну самую такую,не сложную:|

Добавлено через 1 минуту 38 секунд
Цитата:

Цитата от Hammer (Сообщение 1072596136)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Решить n! - m! ?
Или что?

всмысле?сделать прогграмму в консольном приложении которая будет считать факториал н-факториал м:|

Hammer 5 марта 2011 20:26

Цитата:

Цитата от T31 (Сообщение 1072597767)
Цитата:

Цитата от иксуй! (Сообщение 1072596169)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Опасная задачка. Ограничения на N и M какие?

да ограничений как бы нет,ну самую такую,не сложную:|

Добавлено через 1 минуту 38 секунд
Цитата:

Цитата от Hammer (Сообщение 1072596136)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

Решить n! - m! ?
Или что?

всмысле?сделать прогграмму в консольном приложении которая будет считать факториал н-факториал м:|

Так в чем проблема? :) Факториал считать умеешь?

T31 5 марта 2011 20:33

Цитата:

Цитата от Hammer (Сообщение 1072597897)
Цитата:

Цитата от T31 (Сообщение 1072597767)
Цитата:

Цитата от иксуй! (Сообщение 1072596169)
Опасная задачка. Ограничения на N и M какие?

да ограничений как бы нет,ну самую такую,не сложную:|

Добавлено через 1 минуту 38 секунд
Цитата:

Цитата от Hammer (Сообщение 1072596136)

Решить n! - m! ?
Или что?

всмысле?сделать прогграмму в консольном приложении которая будет считать факториал н-факториал м:|

Так в чем проблема? :) Факториал считать умеешь?

да у меня вообще с програмированием трудновато мягко говоря:mad:

Трэй 5 марта 2011 20:52

как округлить переменную real по правилам???

Hammer 5 марта 2011 20:55

Цитата:

Цитата от Трэй (Сообщение 1072598141)
как округлить переменную real по правилам???

Round();

Трэй 5 марта 2011 20:59

Цитата:

Цитата от Hammer (Сообщение 1072598173)
Цитата:

Цитата от Трэй (Сообщение 1072598141)
как округлить переменную real по правилам???

Round();

Цитата:

s:=n/k;
round(s);
ругаецца

Hammer 5 марта 2011 21:03

Цитата:

Цитата от Трэй (Сообщение 1072598200)
Цитата:

Цитата от Hammer (Сообщение 1072598173)
Цитата:

Цитата от Трэй (Сообщение 1072598141)
как округлить переменную real по правилам???

Round();

Цитата:

s:=n/k;
round(s);
ругаецца

Код:

s:= n/k;
s:= round(s);

Тебе до определенного знака округлить надо? Данный код округляет до целых.

Если при выводе округлить, то:
Код:

write(a, b, c);
Где a - переменная, b - кол-во символов, c - кол-во знаков после запятой.

Трэй 5 марта 2011 21:28

Цитата:

Цитата от Hammer (Сообщение 1072598239)
Цитата:

Цитата от Трэй (Сообщение 1072598200)
Цитата:

Цитата от Hammer (Сообщение 1072598173)

Round();

Цитата:

s:=n/k;
round(s);
ругаецца

Код:

s:= n/k;
s:= round(s);

Тебе до определенного знака округлить надо? Данный код округляет до целых.

мне до целых надо просто

Цитата:

дан массив и число.вывести наиболее близкий элемент массива к этому числу
хотя бы намекните какой алгоритм составить сравнения этих чисел.
Показать скрытый текст
мне кажется, надо связать как-то деление и сравнивание с единицей


Добавлено через 2 минуты 54 секунды
[QUOTE=Hammer;1072598239][QUOTE=Трэй;1072598200]
Цитата:

Цитата от Hammer (Сообщение 1072598173)

Если при выводе округлить, то:
Код:

write(a, b, c);
Где a - переменная, b - кол-во символов, c - кол-во знаков после запятой.

а нельзя write(a:b:c)???

Hammer 5 марта 2011 21:56

Цитата:

Цитата от Трэй (Сообщение 1072598458)
дан массив и число.вывести наиболее близкий элемент массива к этому числу

Пусть некоторая переменная num равняется 10000(любое большое число).
Пройдясь по массиву, сравнивай abs(num - n) > abs(num - mas[i]), если больше, то num:= mas[i];
n - это заданное число.

Цитата:

Цитата от Трэй (Сообщение 1072598200)
а нельзя write(a:b:c)???

Если для вывода, то можно.

Трэй 5 марта 2011 22:01

Цитата:

Цитата от Hammer (Сообщение 1072598708)
Цитата:

Цитата от Трэй (Сообщение 1072598458)
дан массив и число.вывести наиболее близкий элемент массива к этому числу

Пусть некоторая переменная num равняется 10000(любое большое число).
Пройдясь по массиву, сравнивай abs(num - n) > abs(num - mas[i]), если больше, то num:= mas[i];
n - это заданное число.

Цитата:

Цитата от Трэй (Сообщение 1072598200)
а нельзя write(a:b:c)???

Если для вывода, то можно.

abs это что?
отриц число в положительное переводит?

Hammer 5 марта 2011 22:04

Цитата:

Цитата от Трэй (Сообщение 1072598742)
Цитата:

Цитата от Hammer (Сообщение 1072598708)
Цитата:

Цитата от Трэй (Сообщение 1072598458)
дан массив и число.вывести наиболее близкий элемент массива к этому числу

Пусть некоторая переменная num равняется 10000(любое большое число).
Пройдясь по массиву, сравнивай abs(num - n) > abs(num - mas[i]), если больше, то num:= mas[i];
n - это заданное число.

Цитата:

Цитата от Трэй (Сообщение 1072598200)
а нельзя write(a:b:c)???

Если для вывода, то можно.

abs это что?
отриц число в положительное переводит?

Да, проще говоря - модуль.
P.S. Я же давал тебе ссылку на справочник по функциям. ;)

Трэй 5 марта 2011 22:18

Цитата:

Цитата от Hammer (Сообщение 1072598763)
Цитата:

Цитата от Трэй (Сообщение 1072598742)
Цитата:

Цитата от Hammer (Сообщение 1072598708)
Пусть некоторая переменная num равняется 10000(любое большое число).
Пройдясь по массиву, сравнивай abs(num - n) > abs(num - mas[i]), если больше, то num:= mas[i];
n - это заданное число.



Если для вывода, то можно.

abs это что?
отриц число в положительное переводит?

Да, проще говоря - модуль.
P.S. Я же давал тебе ссылку на справочник по функциям. ;)

я там сначала посмотрел, а потом у тебя переспросил, на всякий случай

а может знак поставить >=, так как может попасться элемент в массиве равный начальному числу?

Hammer 5 марта 2011 23:45

Цитата:

Цитата от Трэй (Сообщение 1072598877)
Цитата:

Цитата от Hammer (Сообщение 1072598763)
Цитата:

Цитата от Трэй (Сообщение 1072598742)

abs это что?
отриц число в положительное переводит?

Да, проще говоря - модуль.
P.S. Я же давал тебе ссылку на справочник по функциям. ;)

я там сначала посмотрел, а потом у тебя переспросил, на всякий случай

а может знак поставить >=, так как может попасться элемент в массиве равный начальному числу?

Смысл? Ты хоть как будешь в конце выводить начальное число.

T31 6 марта 2011 02:12

Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

че,никто не поможет?:mad:

Трэй 6 марта 2011 08:38

Цитата:

Цитата от Hammer (Сообщение 1072599688)
Цитата:

Цитата от Трэй (Сообщение 1072598877)
Цитата:

Цитата от Hammer (Сообщение 1072598763)

Да, проще говоря - модуль.
P.S. Я же давал тебе ссылку на справочник по функциям. ;)

я там сначала посмотрел, а потом у тебя переспросил, на всякий случай

а может знак поставить >=, так как может попасться элемент в массиве равный начальному числу?

Смысл? Ты хоть как будешь в конце выводить начальное число.

ну у меня задача "дан массив.найти самый близкий элемент к среднему арифметическому его элементов"
если массив будет, например:"1,2,3,4,5,6,7,8,9",то среднее арифметическое 5, и ближайший элемент 5

Добавлено через 3 часа 54 минуты 25 секунд
показывает, что ты меня процитировал, а цитаты нету :(

Hammer 6 марта 2011 16:16

Цитата:

Цитата от Трэй (Сообщение 1072601392)
Цитата:

Цитата от Hammer (Сообщение 1072599688)
Цитата:

Цитата от Трэй (Сообщение 1072598877)

я там сначала посмотрел, а потом у тебя переспросил, на всякий случай

а может знак поставить >=, так как может попасться элемент в массиве равный начальному числу?

Смысл? Ты хоть как будешь в конце выводить начальное число.

ну у меня задача "дан массив.найти самый близкий элемент к среднему арифметическому его элементов"
если массив будет, например:"1,2,3,4,5,6,7,8,9",то среднее арифметическое 5, и ближайший элемент 5

Добавлено через 3 часа 54 минуты 25 секунд
показывает, что ты меня процитировал, а цитаты нету :(

Можешь сделать просто проверку:
Код:

if abs(num - n) = abs(num - mas[i]) then
  begin
    num:= mas[i];
    break;
  end;

Цитата:

Цитата от T31 (Сообщение 1072600512)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

че,никто не поможет?:mad:

Свои попытки решения имеются?
Ведь если всё время за тебя решать, то ты так ничему и не научишься.

Трэй 6 марта 2011 16:37

Цитата:

Цитата от Hammer (Сообщение 1072605184)
Цитата:

Цитата от Трэй (Сообщение 1072601392)
Цитата:

Цитата от Hammer (Сообщение 1072599688)

Смысл? Ты хоть как будешь в конце выводить начальное число.

ну у меня задача "дан массив.найти самый близкий элемент к среднему арифметическому его элементов"
если массив будет, например:"1,2,3,4,5,6,7,8,9",то среднее арифметическое 5, и ближайший элемент 5

Добавлено через 3 часа 54 минуты 25 секунд
показывает, что ты меня процитировал, а цитаты нету :(

Можешь сделать просто проверку:
Код:

if abs(num - n) = abs(num - mas[i]) then
  begin
    num:= mas[i];
    break;
  end;

Цитата:

Цитата от T31 (Сообщение 1072600512)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

че,никто не поможет?:mad:

Свои попытки решения имеются?
Ведь если всё время за тебя решать, то ты так ничему и не научишься.

логично)
спасибо в который раз:horosho:

T31 7 марта 2011 05:44

Цитата:

Цитата от Hammer (Сообщение 1072605184)
Цитата:

Цитата от Трэй (Сообщение 1072601392)
Цитата:

Цитата от Hammer (Сообщение 1072599688)

Смысл? Ты хоть как будешь в конце выводить начальное число.

ну у меня задача "дан массив.найти самый близкий элемент к среднему арифметическому его элементов"
если массив будет, например:"1,2,3,4,5,6,7,8,9",то среднее арифметическое 5, и ближайший элемент 5

Добавлено через 3 часа 54 минуты 25 секунд
показывает, что ты меня процитировал, а цитаты нету :(

Можешь сделать просто проверку:
Код:

if abs(num - n) = abs(num - mas[i]) then
  begin
    num:= mas[i];
    break;
  end;

Цитата:

Цитата от T31 (Сообщение 1072600512)
Цитата:

Цитата от T31 (Сообщение 1072596016)
люди,надо помоч решить задачку:|N!-m!:|C++:tomato:

че,никто не поможет?:mad:

Свои попытки решения имеются?
Ведь если всё время за тебя решать, то ты так ничему и не научишься.

да были:|давай чуть позже свою выложу,подправишь там;)акей?


Часовой пояс GMT +3, время: 08:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.

vBulletin Optimisation provided by vB Optimise (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.