Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от 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 | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Трэй
он по ходу последнее число не считывает
тестовый набор: 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.
| | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от 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.
спасибо тебе
всегда выручаешь | | | | отошёл
Сообщения: 15,725
Регистрация: 13.06.2009 Откуда: Алматы | Слава Богу. что Я - эколог. | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от d-mob Слава Богу. что Я - эколог. Ну и зря! | | | | отошёл
Сообщения: 15,725
Регистрация: 13.06.2009 Откуда: Алматы | -Цитата от Hammer -Цитата от d-mob Слава Богу. что Я - эколог. Ну и зря! Да это ж пиздец вот эти коды | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от d-mob -Цитата от Hammer -Цитата от d-mob Слава Богу. что Я - эколог. Ну и зря! Да это ж пиздец вот эти коды Кому-то нравится экология, кому-то коды.
У кого какой склад ума. | | | | отошёл
Сообщения: 15,725
Регистрация: 13.06.2009 Откуда: Алматы | -Цитата от Hammer -Цитата от d-mob -Цитата от Hammer
Ну и зря! Да это ж пиздец вот эти коды Кому-то нравится экология, кому-то коды.
У кого какой склад ума. Нравилась бы мне экология, я бы не пошёл бы экологом.
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает . | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от d-mob -Цитата от Hammer -Цитата от d-mob
Да это ж пиздец вот эти коды Кому-то нравится экология, кому-то коды.
У кого какой склад ума. Нравилась бы мне экология, я бы не пошёл бы экологом.
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает . А если не секрет, тут у нас - это где?
Т.е. ты пошел на эколога, но тебе самому не прельщает данная профессия? | | | | отошёл
Сообщения: 15,725
Регистрация: 13.06.2009 Откуда: Алматы | -Цитата от Hammer -Цитата от d-mob -Цитата от Hammer
Кому-то нравится экология, кому-то коды.
У кого какой склад ума. Нравилась бы мне экология, я бы не пошёл бы экологом.
А вообще я учусь там, где тут у нас чуть ли не лучших в стране программистов делают, я охуеваю от того, что они делают. Сколько им в голову влезает . А если не секрет, тут у нас - это где?
Т.е. ты пошел на эколога, но тебе самому не прельщает данная профессия? В Казахстане.
Мне пока что нравится быть экологом. | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от d-mob
В Казахстане.
Мне пока что нравится быть экологом. К сожалению, не наслышан.
У нас в Питере довольно-неплохо с этим дела обстоят. | | | | [Camomile Union]
Сообщения: 1,641
Регистрация: 11.09.2008 Откуда: -то | Вот вам темка, пасаны Программа , считающая определитель любого порядка.
Думаю над этим | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Тедди Вот вам темка, пасаны Программа , считающая определитель любого порядка.
Думаю над этим И в чем проблема? | | | | [Camomile Union]
Сообщения: 1,641
Регистрация: 11.09.2008 Откуда: -то | -Цитата от Hammer -Цитата от Тедди Вот вам темка, пасаны Программа , считающая определитель любого порядка.
Думаю над этим И в чем проблема? Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Тедди -Цитата от Hammer -Цитата от Тедди Вот вам темка, пасаны Программа , считающая определитель любого порядка.
Думаю над этим И в чем проблема? Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется Есть же уже готовые алгоритмы. Зачем придумывать велосипед? | | | | [Camomile Union]
Сообщения: 1,641
Регистрация: 11.09.2008 Откуда: -то | -Цитата от Hammer -Цитата от Тедди -Цитата от Hammer
И в чем проблема? Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется Есть же уже готовые алгоритмы. Зачем придумывать велосипед? Суть информатики в том чтобы раскидывать мозгами , а не лепить стандартные алгоритмы))Но здесь я пожалуй так и сделаю) | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Тедди -Цитата от Hammer -Цитата от Тедди
Не могу сформулировать алгоритм. Ну , то есть понятно, что по одной строке считаем и домножаем на миноры. Минуоры считаем так же, потом миноры миноров и т.д. Но как то в голове алгоритм сам не рисуется Есть же уже готовые алгоритмы. Зачем придумывать велосипед? Суть информатики в том чтобы раскидывать мозгами , а не лепить стандартные алгоритмы))Но здесь я пожалуй так и сделаю) Ну это для понимания. А если ты поймешь уже готовый алгоритм, то ничего не потеряешь. | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу | | | | .....
Сообщения: 2,906
Регистрация: 14.04.2009 Откуда: Антрацит! | в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Трэй Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это. -Цитата от TYOMA_тотСамый_TM в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста Если голова варит, то не такой он и тяжелый. | | | | [Camomile Union]
Сообщения: 1,641
Регистрация: 11.09.2008 Откуда: -то | -Цитата от Трэй Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу Тут всё) http://www.delphibasics.ru/ | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от Hammer -Цитата от Трэй Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это. -Цитата от TYOMA_тотСамый_TM в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста Если голова варит, то не такой он и тяжелый. прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Трэй -Цитата от Hammer -Цитата от Трэй Hammer
а можешь подкинуть сайтец или файлик с операторами для паскаля?а то я оператор "odd" или "inc" впервые слышу Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это. -Цитата от TYOMA_тотСамый_TM в своей жизни я выбрал нелёгкий путь и пошёл в техникум на программиста Если голова варит, то не такой он и тяжелый. прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию Да сейчас часто такое случается, что учителя знают хуже свой предмет, чем ученик.
Речь не идет о лицеях, там вроде бы всё в порядке. | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 | -Цитата от Hammer -Цитата от Трэй -Цитата от Hammer
Ты долго пишешь на паскале? Просто это в самом начале даже проходят.
Сам редко чем пользуюсь, кроме стандартной справки паскаля, да и вообще на паскале долго время уже не пишу.
Но если тебе на русском надо, посмотри это.
Если голова варит, то не такой он и тяжелый. прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию Да сейчас часто такое случается, что учителя знают хуже свой предмет, чем ученик.
Речь не идет о лицеях, там вроде бы всё в порядке. у меня обычная средняя образовательная школа(((
у моего учителя скорость набора текста на клавиатуре около 50 символов в минуту методом одного пальца | | | | 48 61 6D
Сообщения: 3,305
Регистрация: 05.10.2006 Откуда: Нижневартовск | -Цитата от Трэй -Цитата от Hammer -Цитата от Трэй
прост учитель не даёт ничего)
вот и пытаюсь сам задачи решать и учить терминологию Да сейчас часто такое случается, что учителя знают хуже свой предмет, чем ученик.
Речь не идет о лицеях, там вроде бы всё в порядке. у меня обычная средняя образовательная школа(((
у моего учителя скорость набора текста на клавиатуре около 50 символов в минуту методом одного пальца Такие учителя обычно хорошо знают материал только учебника по информатики, но зная наши учебники, можно сказать, что они знают информатику на уровне обычного пользователя. | | | | |