Бамп тянучкой.
Бамп котиком.
Бамп сисечками. Ну помогите, пожалуйста.
Я бы помог, но я уже в пижаме.
Отчаянный бамп.
Еще пару раз бампну и пойду плакать.
Дрочишь на них?
Восхищаюсь. Так ты поможешь или нет?
> паскаль
ПТУшное животное не палится. Сажи тупому уебку.
ПТУшное животное не палится. Сажи тупому уебку.
Ты шо даун? Иди спать. Новый год скоро, а ты как сыч за компьютером сидишь.
Первый курс БГУИРа, так что не надо тут.
Праграммисты - пидараси!
Я тебе помогу, но только не так как ты хочешь, но моя помощь будет более настоящей. Так вот. Бросай учебу которая тебе не нравится.
Я согласен если меня назовут пидорасом, лишь бы 300к дали в секунду
>по невозрастанию
Уебать бы тебе лопатой по голове.
Кинешь сотку на киви сделаю
ТЫ ЧЁ ЕБАТЬ! НУ ЗАДАЧА ТАКАЯ! КОНЬ ТЫ ЕБАНЫЙ!
Ну че уже сам сделол?
Нет еще, жду помощи.
да, если они при этом еще и аниме смотрят
Твой код - говно;
Ты - говно;
И тот кто написал такое задание используя "по невозрастанию" - тоже говно.
Гугли сортировку массива. Это так сложно?
А как правильно ?
По убыванию
Что именно тебе непонятно? Сортировка элементов столбцов или сортировка самих столбцов?
И да, нах ты заменяешь все нулевые элементы единицами? Это обговорено в задании? Если да, можно же просто задавать их random(9)+1
И да, нах ты заменяешь все нулевые элементы единицами? Это обговорено в задании? Если да, можно же просто задавать их random(9)+1
Тут ты не прав. Есть убывание, а есть невозрастание.
Есть другой красивый способ убрать нули из массива?
>Тут ты не прав. Есть убывание, а есть невозрастание.
Какая нафиг разница? Порядок одинаковых элементов по-любому значения не имеет, поскольку они одинаковые. И вообще, есть ascending, есть descending - точка.
x[i,j]:=random(9)+1;
Будут инты от 1 до 10.
Неубывание допускает равенство элементов последовательности, возрастание - нет.
Если последовательность 1,2,3,3,5 возрастающая, значит 3<3. Если неубывающая, то все ок.
Спасибо, анон. А что скажешь насчет сортировки?
Если размеры не слишком большие, пузырек - наше все (ну или любой другой несложный метод).
Какой смысл различать возрастающие и не убывающие последовательности? Алгоритмы сортировки работают одинаково в обоих случаях.
С точки зрения математической терминологии - разные понятия.
Что-то получилось, но всё равно не так.
стрелочку поверни
3-я строка: m-r, а не m-1
>С точки зрения математической терминологии - разные понятия.
Посмотрел - так и есть. Но с точки зрения программирования это одно и тоже. Сортировка, как я уже сказал, хорошо работает в обоих случаях. Есть повторяющиеся элементы или нет - ни на что не влияет.
А еще количество строк и столбцов не так, не знаешь, как исправить?
> с точки зрения программирования - одно и то же
Я и не говорю, что это не так, просто лучше, как мне кажется, использовать корректные термины.
Поменяй значения M и N.
>как мне кажется, использовать корректные термины
Конечно лучше. Но мне, как прикладному программисту (или как это там называется), это делать лень.
Спасибо тебе, анонче. Спас меня от неминуемой гибели. руку пожал
Ты доделал, что ли?
Нет еще, а ты поможешь сделать до конца? Там совсем чуть-чуть осталось, с произведением разобарться бы.
Самая сложная часть твоего заданияСовсем чуть-чуть
Есть одна интересная фишка (костыль) : нужна еще нулевая строка матрицы. В нее записываешь при заполнении произведение элементов каждого столбца. По этой строке уже сортируешь.
Произведение элементов столбцов я нашел, а как их отсортировать в порядке возрастания?
Для меня всё сложно, пока что, хехе.
Вот как-то так.
-->
Переставляешь не только элементы нулевой строки, но и элементы всех остальных строк вместе с ними.
Переставляешь не только элементы нулевой строки, но и элементы всех остальных строк вместе с ними.
А можно попроще немного, а то в 4.30 тяжко соображается.
procedure MatrixInput(var x:matrix);
var
i,j:integer;
begin
for i:=1 to M do
for j:=1 to N do
begin
x[i,j]:=random(9)+1;
x[0,j]:=x[0,j]*x[i,j]
end
end;
Это процедура заполнения матриц. При этом массив надо задать как array[0..M,1..N] of integer;
Соре, проебался, забыл, что незначащие пробелы стираются.
Чет всё поломалось.
А нет, поменял местами M и N, и всё заработало. Но как дальше их отсортировать?
Можешь код скинуть?
//Заполняем матрицу
For i:=1 to M do
For j:=1 to N do
begin
x[i,j]:=random(9)+1;
x[0,j]:=x[0,j]x[i,j];
end;
//Вывод матрицы
For i:=1 to N do
Begin
For j:=1 to M do
Write (' ',x[i,j]:2);
Writeln;
end;
Writeln;
For j:=1 to M do
Begin
p:=1;
for i:=1 to N do
p:=px[i,j];
end;
writeln;
For j:=1 to N do
For r:=1 to M do
For i := 1 to m - r do
If x[i,j]<x[i+1,j] then
Begin
t:=x[i,j];
x[i,j]:=x[i+1,j];
x[i+1,j]:=t;
end;
For i:=1 to N do
Begin
For j:=1 to M do
write(' ', x[i,j]:2);
writeln;
End;
For i:=1 to M do
For j:=1 to N do
begin
x[i,j]:=random(9)+1;
x[0,j]:=x[0,j]x[i,j];
end;
//Вывод матрицы
For i:=1 to N do
Begin
For j:=1 to M do
Write (' ',x[i,j]:2);
Writeln;
end;
Writeln;
For j:=1 to M do
Begin
p:=1;
for i:=1 to N do
p:=px[i,j];
end;
writeln;
For j:=1 to N do
For r:=1 to M do
For i := 1 to m - r do
If x[i,j]<x[i+1,j] then
Begin
t:=x[i,j];
x[i,j]:=x[i+1,j];
x[i+1,j]:=t;
end;
For i:=1 to N do
Begin
For j:=1 to M do
write(' ', x[i,j]:2);
writeln;
End;
Наверное убиваю всё веселье и оказываю "медвежью услугу" вот тут кароче всё работает https://pastebin.com/dANZ4wwR
Трикс от анона с нулевой строкой реально годный, если не западло можешь поменять, заодно и разберёшься чё к чему. А то я для это приплёл ещё один массив.
Так же, как ты сортировал элементы столбцов, но теперь тебе нужы: два внешних цикла (собственно, сортировка; они такие же как и в сортировке столбцов) и внутренний, в котором ты проходишь по двум столбцам и меняешь элементы.
Могу написать и вкинуть, если надо.
Было бы очень кстати. Представить себе не можешь, как я тебе благодарен. с:
Вот, написал. Вроде должно работать.
Ну ты голова, анон. Я даже не знаю, как тебе сказать спасибо, ведь ты потратил на меня столько времени, хех. Просто знай, что где-то далеко, челик не вылетит с универа и продолжит учебу. И всё благодаря тебе. Если у тебя ночь, то иди уже дремай, а я пойду разбираться, как это всё работает. Спасибо. с:
Оно заработало? Просто мне только что показалось, что я проебался, и там вместо x[k+1,j] должно быть x[k,j+1].
Ой, постой. Тут немного неправильно, я подсчитал вручную, и не в том порядке.
В выводе матрицы M поменяй с N.
Тогда неправильное кол-во столбцов и строк, получается 6 ст. и 8 строк, а надо наоборот. :/
Даже элементы столбцов не те. :с
Молодой человек, продублирую ссылку на пастебин и сваливаю в закат. https://pastebin.com/dANZ4wwR
Спасибо, гляну сейчас.
Таак, падажжи ебана...
В разделе констант надо M с N поменять.
И как у тебя вообще работает вот это? Ты не вылетаешь за границы массива? Ведь строк - M, а столбцов - N:
For i:=1 to N do
Begin
For j:=1 to M do
write(' ', x[i,j]:2);
writeln;
End;
Надо ведь так, по идее:
For i:=1 to N do
Begin
For j:=1 to M do
write(' ', x[i,j]:2);
writeln;
End;
Должно быть N строк и M столбцов. Может, мы не так поняли друг друга.
Блэт. Можешь целиком код вкинуть тогда?
Const
N=6;
M=8;
Var
X:array [0..M,1..N] of integer;
i, j, p, t, r, k, tmp:integer;
Begin
setconsoleCP(1251);
setconsoleoutputCP(1251);
randomize;
Writeln('Ìàòðèöà:');
Writeln;
//Zapolnenie matrici
For i:=1 to M do
For j:=1 to N do
begin
x[i,j]:=random(9)+1;
x[0,j]:=x[0,j]*x[i,j];
end;
//Vivod matrici
For i:=1 to N do
Begin
For j:=1 to M do
Write (' ',x[i,j]:2);
Writeln;
end;
Writeln;
For j:=1 to N do
For r:=1 to M do
For i := 1 to m - r do
If x[i,j]<x[i+1,j] then
Begin
t:=x[i,j];
x[i,j]:=x[i+1,j];
x[i+1,j]:=t;
end;
For i:=1 to N do
begin
for j:=1 to N-i do
if x[0,j+1]>x[0,j] then
for k:=0 to M do
begin
tmp:=x[k+1,j];
x[k,j+1]:=x[k,j];
x[k,j]:=tmp;
end;
end;
For i:=1 to N do
Begin
For j:=1 to M do
write(' ', x[i,j]:2);
writeln;
End;
readln
end.
Какая то вот такая штука получается.
Сажи тупому уебку.
Вежливо попрошу тебя съебать отсюда.
Const
N=6;
M=8;
Var
X:array [0..N,1..M] of integer;
i, j, p, t, r, k, tmp:integer;
Begin
setconsoleCP(1251);
setconsoleoutputCP(1251);
randomize;
Writeln('Ìàòðèöà:');
Writeln;
//Zapolnenie matrici
For i:=1 to N do
For j:=1 to M do
begin
x[i,j]:=random(9)+1;
x[0,j]:=x[0,j]*x[i,j];
end;
//Vivod matrici
For i:=1 to N do
Begin
For j:=1 to M do
Write (' ',x[i,j]:2);
Writeln;
end;
Writeln;
For j:=1 to M do
For r:=1 to N do
For i := 1 to N - r do
If x[i,j]<x[i+1,j] then
Begin
t:=x[i,j];
x[i,j]:=x[i+1,j];
x[i+1,j]:=t;
end;
For i:=1 to M do
begin
for j:=1 to M-i do
if x[0,j+1]>x[0,j] then
for k:=0 to N do
begin
tmp:=x[k,j+1];
x[k,j+1]:=x[k,j];
x[k,j]:=tmp;
end;
end;
For i:=1 to N do
Begin
For j:=1 to M do
write(' ', x[i,j]:2);
writeln;
End;
readln
end.
Подправил.
Вроде норм, но теперь нету сортировки самих столбцов. (я тебя уже задолбал, наверное)
Третий блок кода, начиная с заполнения же.
Я думаю он про сортировку столбцов по возрастанию произведения, ты ж заполнение нулевой строки зафакапил.
>x[0,j] не инициализируется
>x[0,j]:=x[0,j]*x[i,j];
Эти цифры - это произведение элементов столбцов по порядку. И, как видишь, они не в ом порядке расставлены. :/
Бляяяя, точняк! FreePascal, да и ABC тоже, заполняет эти строки нулями по умолчанию. Надо в самом начале вот это прописать:
for j:=1 to M do
x[0,j]:=1;
Спасибо, анон.
Хехе, заработало, теперь уже точно. Спасибо, ананасик. Желаю тебе всего самого доброго и хорошего. :) Доброй ночи/доброго утра всем, тред закрыт.
Дана матрица X[6,8]. Упорядочить элементы столбцов матрицы по невозрастанию, а сами столбцы по возрастанию произведения элементов столбцов.
Пикрелейтед то, что есть. Заранее благодарствую.