|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.02.2007, 21:56 | #21 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 32
|
AVer, зачем так сложно да ещё только под положительные числа?
Imperceptible, есть одна шутка-првило Шуры-Буры: 1) В каждой программе есть хотя бы одна ошибка 2) Если ошибок нет, то не верен алгоритм 3) Если нет ошибок и верен алгоритм, то такая программа никому не нужна! Это я так к слову... Посмотри, мой алгоритм более быстрый и оптимальный.
Time have not meaning, mind - this is main...
|
11.02.2007, 22:04 | #22 |
Пользователь
Регистрация: 10.02.2007
Сообщений: 14
|
На самом деле всеравно сортировку потом в процедуру забивать придётся. Но у меня сама сортировка для начала не выходила.
|
12.02.2007, 23:51 | #23 |
Пользователь
Регистрация: 10.02.2007
Сообщений: 14
|
Уряя, я доделал всё! Функция даже получилась (это из второго задания) Ещё раз спасибо AVer'у и Time'у! vbmenu_register("postmenu_10903", true);
vbmenu_register("postmenu_10903", true); |
02.03.2007, 15:39 | #24 |
Пользователь
Регистрация: 07.02.2007
Сообщений: 21
|
program matrix;
var H:integer;{вспомогательная переменная для смены значений} K, L, J:integer;{счетчики циклов} M:array[1..Nmax, 1..Nmax] of integer;{на месте Nmaxx вводишь длину массива(я так понял, что массив должен быть квадратный} begin for K:=1 to Nmax do for L:=1 to Nmax do begin Writeln('Введите значение элемента ' K, ', ', L'); Readln(M[K, L]); end; for K:=1 to Nmax do for L:=1 to Nmax do for J:=2 to Nmax do begin if M[L,K]>M[J, K] then H:=M[J, K]; M[J,K]:=M[L, K]; M[L,K]:=H; end; for L:=1 to Nmax do M[L, 1]:=M[L, L]; for L:=1 to Nmax do Writeln('Элемент ', L, ', ', L, 'равен', M[L, L]); end. Последний раз редактировалось VoRTeX; 02.03.2007 в 15:42. |
02.03.2007, 15:39 | #25 |
Пользователь
Регистрация: 07.02.2007
Сообщений: 21
|
program matrix;
var H:integer;{вспомогательная переменная для смены значений} K, L, J:integer;{счетчики циклов} M:array[1..Nmax, 1..Nmax] of integer;{на месте Nmaxx вводишь длину массива(я так понял, что массив должен быть квадратный} begin for K:=1 to Nmax do for L:=1 to Nmax do begin Writeln('Введите значение элемента ' K, ', ', L'); Readln(M[K, L]); end; for K:=1 to Nmax do for L:=1 to Nmax do for J:=2 to Nmax do begin if M[L,K]>M[J, K] then H:=M[J, K]; M[J,K]:=M[L, K]; M[L,K]:=H; end; for L:=1 to Nmax do M[L, 1]:=M[L, L]; for L:=1 to Nmax do Writeln('Элемент ', L, ', ', L, 'равен', M[L, L]); end. |
02.03.2007, 20:00 | #26 |
Пользователь
Регистрация: 10.02.2007
Сообщений: 14
|
Спасибо, что поломал голову. Мы тут настряпали кое-что, и даже через процедуру.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Двумерный Массив | n01R | Помощь студентам | 9 | 19.12.2009 16:41 |
Двумерный массив... | slim5 | Помощь студентам | 2 | 20.06.2008 23:16 |
Двумерный массив в С++ | Draid | Помощь студентам | 2 | 07.03.2008 22:06 |
Двумерный массив | Jodu | Помощь студентам | 18 | 05.12.2007 22:44 |