Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 26.11.2015, 18:52   #1
_Marchel_
Пользователь
 
Регистрация: 14.11.2015
Сообщений: 17
Репутация: 10
По умолчанию Матрица. Задана матрица X[N,N], где N<=15. В каждом столбце матрицы поменять местами минимальный элемент и элемент главной диагона

Задана матрица X[N,N], где N<=15. В каждом столбце матрицы поменять местами минимальный элемент и элемент главной диагонали. Преобразованную матрицу вывести на экран.

помогите с программой пожалуйста.
_Marchel_ вне форума   Ответить с цитированием
Старый 27.11.2015, 11:38   #2
Dvoishnik
Участник клуба
 
Регистрация: 12.02.2011
Сообщений: 806
Репутация: 295
По умолчанию

что не получается?? в вод матрицы, поиск главной диагонали или поиск минимального??
Dvoishnik вне форума   Ответить с цитированием
Старый 27.11.2015, 11:43   #3
Dvoishnik
Участник клуба
 
Регистрация: 12.02.2011
Сообщений: 806
Репутация: 295
По умолчанию

Тут вроде такая же тема я думаю вам пригодится
Dvoishnik вне форума   Ответить с цитированием
Старый 27.11.2015, 13:37   #4
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,401
Репутация: 874

skype: aleksandr.gryb
По умолчанию

Dvoishnik Вы что?? там ж макс елемент а тут мин!!! ето не смежные задачи, никогда!!! (сарказм)
__________________
Mailto: media.project@ukr.net
Aleksandr H. вне форума   Ответить с цитированием
Старый 27.11.2015, 14:01   #5
Dvoishnik
Участник клуба
 
Регистрация: 12.02.2011
Сообщений: 806
Репутация: 295
По умолчанию

Aleksandr H. и правда как я мог не заметить?? никогда себя не прощу.(очень серьезно)

Последний раз редактировалось Dvoishnik; 27.11.2015 в 14:03.
Dvoishnik вне форума   Ответить с цитированием
Старый 28.11.2015, 17:23   #6
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,687
Репутация: 1522

skype: newerow1989
По умолчанию

Код:

const n=15;
var x:array[1..n,1..n] of integer;
    i,j,min,z:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         x[i,j]:=Random(21);
         Write(x[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   For j:=1 to n do
   begin
      min:=1;
      For i:=2 to n do
         If x[min,j]>x[i,j] then
            min:=i;
      z:=x[min,j];
      x[min,j]:=x[j,j];
      x[j,j]:=z;
   end;
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(x[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В каждом столбце первый элемент поменять с последним элементом. _viktorija_ Паскаль 0 21.02.2014 22:13
Задана матрица Am*n . Найти максимальный по модулю элемент матрицы. Переставить строки и столбцы матрицы (в Delphi) Natashakosmos Помощь студентам 3 12.01.2014 00:28
Дана действительная матрица A размерности. Если минимальный элемент матрицы расположен над главной диагональю, а максимальный эл. Anton94.by Паскаль 15 06.03.2012 23:37
Массив 7х7 целого типа в каждом столбце поменять max элемент и элемент побочной диагонали Sheport Паскаль 1 20.06.2011 23:30
Паскаль! поменять местами максимальный и минимальный элемент матрицы. wrmarw Помощь студентам 4 08.05.2010 13:06


08:31.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru