Hip-Hop.Ru - Центральный сайт о Хип Хоп культуре в Рунете

Компьютеры и Интернет
  Hip-Hop.Ru Форум Пользователи Социальные группы Сообщения за день Баня Поиск Сообщения за день Все разделы прочитаны
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 14:38
LastFm
  #1051 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
не могу реальзовать нахождение само.
язык паскаль
Код:
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

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 15:44
  #1052 (ПС)
-Цитата от Трэй Посмотреть сообщение

он по ходу последнее число не считывает
тестовый набор: 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.

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 17:33
LastFm
  #1053 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

он по ходу последнее число не считывает
тестовый набор: 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.
спасибо тебе
всегда выручаешь

offline
Ответить с цитированием
отошёл
Аватар для d-mob
Сообщения: 15,725
Регистрация: 13.06.2009
Откуда: Алматы
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:20
Домашняя страница ВКонтакте Facebook Instagram Live Journal MySpace LastFm Отправить сообщение через twitter для d-mob
  #1054 (ПС)
Слава Богу. что Я - эколог.

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:21
  #1055 (ПС)
-Цитата от d-mob Посмотреть сообщение
Слава Богу. что Я - эколог.
Ну и зря!

offline
Ответить с цитированием
отошёл
Аватар для d-mob
Сообщения: 15,725
Регистрация: 13.06.2009
Откуда: Алматы
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:22
Домашняя страница ВКонтакте Facebook Instagram Live Journal MySpace LastFm Отправить сообщение через twitter для d-mob
  #1056 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от d-mob Посмотреть сообщение
Слава Богу. что Я - эколог.
Ну и зря!
Да это ж пиздец вот эти коды

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:23
  #1057 (ПС)
-Цитата от d-mob Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от d-mob Посмотреть сообщение
Слава Богу. что Я - эколог.
Ну и зря!
Да это ж пиздец вот эти коды
Кому-то нравится экология, кому-то коды.
У кого какой склад ума.

offline
Ответить с цитированием
отошёл
Аватар для d-mob
Сообщения: 15,725
Регистрация: 13.06.2009
Откуда: Алматы
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:27
Домашняя страница ВКонтакте Facebook Instagram Live Journal MySpace LastFm Отправить сообщение через twitter для d-mob
  #1058 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от d-mob Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

Ну и зря!
Да это ж пиздец вот эти коды
Кому-то нравится экология, кому-то коды.
У кого какой склад ума.
Нравилась бы мне экология, я бы не пошёл бы экологом.
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает .

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:28
  #1059 (ПС)
-Цитата от d-mob Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от d-mob Посмотреть сообщение

Да это ж пиздец вот эти коды
Кому-то нравится экология, кому-то коды.
У кого какой склад ума.
Нравилась бы мне экология, я бы не пошёл бы экологом.
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает .
А если не секрет, тут у нас - это где?

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

offline
Ответить с цитированием
отошёл
Аватар для d-mob
Сообщения: 15,725
Регистрация: 13.06.2009
Откуда: Алматы
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:32
Домашняя страница ВКонтакте Facebook Instagram Live Journal MySpace LastFm Отправить сообщение через twitter для d-mob
  #1060 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от d-mob Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

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

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

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

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:33
  #1061 (ПС)
-Цитата от d-mob Посмотреть сообщение

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

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

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

offline
Ответить с цитированием
[Camomile Union]
Аватар для Тедди
Сообщения: 1,641
Регистрация: 11.09.2008
Откуда: -то
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:34
ВКонтакте
  #1062 (ПС)
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:36
  #1063 (ПС)
-Цитата от Тедди Посмотреть сообщение
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим
И в чем проблема?

offline
Ответить с цитированием
[Camomile Union]
Аватар для Тедди
Сообщения: 1,641
Регистрация: 11.09.2008
Откуда: -то
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:39
ВКонтакте
  #1064 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Тедди Посмотреть сообщение
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим
И в чем проблема?
Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:41
  #1065 (ПС)
-Цитата от Тедди Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Тедди Посмотреть сообщение
Вот вам темка, пасаны
Программа , считающая определитель любого порядка.
Думаю над этим
И в чем проблема?
Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется
Есть же уже готовые алгоритмы. Зачем придумывать велосипед?

offline
Ответить с цитированием
[Camomile Union]
Аватар для Тедди
Сообщения: 1,641
Регистрация: 11.09.2008
Откуда: -то
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:43
ВКонтакте
  #1066 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Тедди Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

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

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:46
  #1067 (ПС)
-Цитата от Тедди Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Тедди Посмотреть сообщение

Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется
Есть же уже готовые алгоритмы. Зачем придумывать велосипед?
Суть информатики в том чтобы раскидывать мозгами , а не лепить стандартные алгоритмы))Но здесь я пожалуй так и сделаю)
Ну это для понимания. А если ты поймешь уже готовый алгоритм, то ничего не потеряешь.

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:46
LastFm
  #1068 (ПС)
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу

offline
Ответить с цитированием
.....
Аватар для ТэМэ
Сообщения: 2,906
Регистрация: 14.04.2009
Откуда: Антрацит!
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:47
ВКонтакте Отправить сообщение через twitter для ТэМэ
  #1069 (ПС)
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:50
  #1070 (ПС)
-Цитата от Трэй Посмотреть сообщение
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу
Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
-Цитата от TYOMA_тотСамый_TM Посмотреть сообщение
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста
Если голова варит, то не такой он и тяжелый.

offline
Ответить с цитированием
[Camomile Union]
Аватар для Тедди
Сообщения: 1,641
Регистрация: 11.09.2008
Откуда: -то
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:51
ВКонтакте
  #1071 (ПС)
-Цитата от Трэй Посмотреть сообщение
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу
Тут всё) http://www.delphibasics.ru/

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:52
LastFm
  #1072 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу
Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
-Цитата от TYOMA_тотСамый_TM Посмотреть сообщение
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста
Если голова варит, то не такой он и тяжелый.
прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:55
  #1073 (ПС)
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу
Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
-Цитата от TYOMA_тотСамый_TM Посмотреть сообщение
в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста
Если голова варит, то не такой он и тяжелый.
прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию
Да сейчас часто такое случается, что учителя знают хуже свой предмет, чем ученик.
Речь не идет о лицеях, там вроде бы всё в порядке.

offline
Ответить с цитированием
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 21:56
LastFm
  #1074 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение

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


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

offline
Ответить с цитированием
48 61 6D
Аватар для Hammer
Сообщения: 3,305
Регистрация: 05.10.2006
Откуда: Нижневартовск
Старый пост, нажмите что бы добавить к себе блог 4 марта 2011, 22:00
  #1075 (ПС)
-Цитата от Трэй Посмотреть сообщение
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

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

offline
Ответить с цитированием
Ответ
Тэги темы: information, java, php, technology, программирование, Программисты, тусуются, учебники
Здесь присутствуют: 1 (пользователей - 0 , гостей - 1)
 
Опции темы
Похожие темы на: Программисты / Компьютерные техники, которые НИКОГДА не спят! [Беседка]
Тема Автор Раздел Ответов Последнее сообщение
Альбомы, которые вы никогда не удалите из плеера Kr0N Rap, MCing (зарубежный) 212 24 мая 2012
смайлы которые вы никогда не ставили Потняк Безбашенное общение 50 19 февраля 2011
Программисты CMS SLAED запустили профессиональную цмску phemrhigh Интернет-релизы: альбомы, микстейпы, сборники 0 11 февраля 2009
программисты, помогите! girl_from_Russia! Разговоры 29 20 июня 2007
Темы, которые вы никогда не посещаете. Шумный Разговоры 21 24 ноября 2006
Часовой пояс GMT +3, время: 13:57.