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

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

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

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 03.11.2012, 14:36   #1
shbn
 
Регистрация: 05.10.2012
Сообщений: 4
По умолчанию метод линейного выбора сортировки массива

Дана действительная матрица A размерности n*n . Если максимальный элемент среди элементов, расположенных выше главной диагонали, больше максимального из эле-ментов, расположенных ниже главной диагонали, то упорядочить элементы каждой строки матрицы по убыванию методом линейного выбора. В противном случае матрицу оставить без изменения.


Program lab2_3;
uses
crt;
var
A : array[1..100, 1..100] of integer;
n, i, j, max_1,max_2, : integer;
begin
clrscr;
write ( 'размерность* N=' );
readln (N);
writeln ( 'введите элементы*' );
for i := 1 to n do
for j := 1 to n do
begin
write ( 'A[' , i, j, ']=' );
readln ( A[ i, j] );
end;

clrscr;
writeln ( 'массив A: ' );
for i := 1 to n do
begin
for j:= 1 to n do
write ( A[ i, j ] : 5 );
writeln;
end;
max_1:=A[1,n];
for i:=2 to n do
for j:=1 to n do
if (A[i,j]>max_1) and (i <= j)
then max_1:=A[i,j];
max_2:=A[1,n];
for i:=2 to n do
for j:=1 to n do
if (A[i,j]>max_2) and (i >= j)
then max_2:=a[i,j];
if max_1>max_2 then

что дальше?
shbn вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Симплекс метод для решения задач линейного программирования zarinac Помощь студентам 3 16.03.2012 16:02
Реализовать метод линейного двунаправленного списка alexz29 Общие вопросы C/C++ 0 27.12.2010 01:41
Метод линейного программирования, желательно в делфи Марат1510 Помощь студентам 0 08.12.2010 17:59
Сортировки на идее выбора andis Помощь студентам 4 06.03.2010 23:58
Паскаль. процедура сортировки числового массива методом выбора Оксаночка:) Помощь студентам 2 24.08.2009 11:41


05:00.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.