Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
Роман Зенков
0 / 0 / 0
Регистрация: 08.01.2013
Сообщений: 19
1

Сортировка элементов главной диагонали по возрастанию

08.01.2013, 15:35. Просмотров 2774. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста. Мне надо написать программу сортирующую элементы главной диагонали по возрастанию используя два цикла с фиксиро-ванным числом повторений. Я никак под это условие не могу переделать вот эту программу:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
sort:=false
  while (sort=false) do
    begin
      sort:=true;
        for i:=1 to n-1 do
          begin
            if (a[i,i]>a[i+1,i+1]) then
              begin
                buf:=a[i,i];
                a[i,i]:=a[i+1,i+1];
                a[i+1,i+1]:=buf;
                sort:=false;
          end;  
    end;
Я никак не могу понять как цикл while переделать в for. Помогите пожалуйста.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2013, 15:35
Ответы с готовыми решениями:

В двумерных массивах рассортировать числа по возрастанию в каждой диагонали, параллельной главной диагонали
Помогите плз! В двумерных массивах A и В рассортировать числа по возрастанию в...

Верно ли, что наибольшее из значений элементов главной диагонали матрицы больше, чем наименьшее из значении элементов побочной диагонали
Дана квадратная матрица А(4,4) Выяснить верно ли, что наибольшее из значений...

Найти сумму элементов главной диагонали матрицы и произведение элементов побочной диагонали
дан массив a. Найти сумму элементов его главной диагонали и произведение...

Упорядочить по возрастанию элементы, расположенные на главной диагонали
Дан двумерный массив размера NxN. Упорядочить по возрастанию элементы,...

Если элемент матрицы на главной диагонали > 0, то строку рассортировать по возрастанию
Создать матрицы А и В. Если элемент матрицы на главной диагонали > 0, то эту...

1
Puporev
Модератор
55469 / 42574 / 29424
Регистрация: 18.05.2008
Сообщений: 100,719
08.01.2013, 17:05 2
По условию.
Этот цикл под него не подходит.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var a: array [1..20,1..20] of integer;
    n,i,j,buf:integer;
begin
randomize;
write('n=');
readln(n);
Writeln('Исходный массив: ');
For i:=1 to n do
 begin
  For j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i,i]>a[j,j]) then
 begin
  buf:=a[i,i];
  a[i,i]:=a[j,j];
  a[j,j]:=buf;
 end;
writeln('Сортировка главной диагонали:');
For i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2013, 17:05

Выяснить, верно ли, что наибольшее из значений элементов главной диагонали больше,чем наименьшее из значений элементов побочной диагонали
Выяснить, верно ли, что наибольшее из значений элементов главной диагонали...

Отсортировать элементы строк матрицы, находящихся выше главной диагонали, по возрастанию
в матрице 10на 10 отсортировать элементы строк находящихся выше главной...

Если элемент матрицы на главной диагонали > 0, то эту строку рассортировать по возрастанию
Создать матрицы А и В. Если элемент матрицы на главной диагонали > 0, то эту...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru