Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2007, 21:56   #21
Time
Пользователь
 
Регистрация: 09.02.2007
Сообщений: 32
По умолчанию

AVer, зачем так сложно да ещё только под положительные числа?

Imperceptible, есть одна шутка-првило Шуры-Буры:
1) В каждой программе есть хотя бы одна ошибка
2) Если ошибок нет, то не верен алгоритм
3) Если нет ошибок и верен алгоритм, то такая программа никому не нужна!
Это я так к слову...
Посмотри, мой алгоритм более быстрый и оптимальный.
Time have not meaning, mind - this is main...
Time вне форума Ответить с цитированием
Старый 11.02.2007, 22:04   #22
Imperceptible
Пользователь
 
Регистрация: 10.02.2007
Сообщений: 14
По умолчанию

На самом деле всеравно сортировку потом в процедуру забивать придётся. Но у меня сама сортировка для начала не выходила.
Imperceptible вне форума Ответить с цитированием
Старый 12.02.2007, 23:51   #23
Imperceptible
Пользователь
 
Регистрация: 10.02.2007
Сообщений: 14
По умолчанию

Уряя, я доделал всё! Функция даже получилась (это из второго задания) Ещё раз спасибо AVer'у и Time'у! vbmenu_register("postmenu_10903", true);
vbmenu_register("postmenu_10903", true);
Imperceptible вне форума Ответить с цитированием
Старый 02.03.2007, 15:39   #24
VoRTeX
Пользователь
 
Аватар для VoRTeX
 
Регистрация: 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.
VoRTeX вне форума Ответить с цитированием
Старый 02.03.2007, 15:39   #25
VoRTeX
Пользователь
 
Аватар для VoRTeX
 
Регистрация: 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, 20:00   #26
Imperceptible
Пользователь
 
Регистрация: 10.02.2007
Сообщений: 14
По умолчанию

Спасибо, что поломал голову. Мы тут настряпали кое-что, и даже через процедуру.
Imperceptible вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерный Массив 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