Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Матрицы, min и max. |
| nadia |
 
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 7 Пол: Женский Реальное имя: Надежда Репутация:  0   |
Очень нужно решить контрольную в универ по турбо паскалю. Я его учила 2 года назад, но почти ничего не помню. Помоги пожалуйста. Буду очень презнательна.
Вот задачка: Задана матрица А[M/M] действительных чисел. Поменять местами максимальный и минимальный элементы главной диагонали. Вывести преобразованную матрицу. |
   |
 
|
  |
| YnickYM |
Сообщение
#2
|
 Новичок  Группа: Пользователи Сообщений: 18 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
или можно без ввода доп. переменной:
a[max;max]:=a[max+min;max+min] a[min;min]:=a[max-min;max-min] a[max;max]:=a[max-min;max-min] Цитата(nadia @ 29.11.2006 21:48)  Пыталась найти минимальный и максимальный, вроде написала, но ничего не получается. Не могу собрать все в кучу. Матрица не вводиться. Пишет введите 'n' а дальше данные вводятся в столбик. И все. Что мне делать???  for i:=1 to M do for j:=1 to M do readln(a[i,j]); Сообщение отредактировано: YnickYM - -------------------- Ignoscito saepe alteri, nunquam tibi.
|
|
|
|
nadia Матрицы 29.11.2006 21:44
мисс_граффити 1. найти минимум и максимум, запомнить их индексы.… 29.11.2006 23:30
nadia Минимум и максимум вроде нашла, а вот как поменять… 29.11.2006 23:49
nadia
Теперь коечто изменила и получилось, что минималь… 30.11.2006 2:48 мисс_граффити DopPerem:=a[mini,mini];
a[mini,mini]:=a[maxi,maxi]… 29.11.2006 23:55 nadia Пыталась найти минимальный и максимальный, вроде н… 30.11.2006 1:48 nadia Написала вот такую программу:
Program xxx;
Uses … 30.11.2006 2:29 volvo
или можно без ввода доп. переменной:
a[max;max]:… 30.11.2006 15:43 nadia Program xxx;
Uses crt;
Var a:array of integer;
… 30.11.2006 2:57 мисс_граффити nadia, во-первых, правила форума к тебе тоже относ… 30.11.2006 3:56 lapp Я причесал твою прогу, чтоб читалась нормально.
… 30.11.2006 8:16 nadia Огромное Вам человеческое спасибо!!! :… 30.11.2006 15:53 мисс_граффити lapp, а ничего, что в соседней теме мы решаем ЭТУ … 30.11.2006 14:36 YnickYM Извиняюсь, чушь написал.
Вот мой вариант програм… 1.12.2006 0:43 мисс_граффити замечательная программка.
скажи мне честно, ты ее … 1.12.2006 1:29 YnickYM
замечательная программка.
скажи мне честно, ты ее… 1.12.2006 2:04 мисс_граффити так... вывод массива ты вообще убрал - ну правильн… 1.12.2006 2:45 YnickYM
for i:=1 to n do for j:=1 to n do
begin
Read(a[i… 1.12.2006 3:02 |
|
Текстовая версия | 28.04.2025 14:49 |
