Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти сумму чисел двумерных массивов Найти сумму чисел двумерных массивов https://www.cyberforum.ru/ turbo-pascal/ thread200358.html Написать функцию,которая находит либо разность,либо сумму элементов Turbo Pascal
Написать функцию,которая находит либо разность,либо сумму элементов
Turbo Pascal Вычислить значение выражения и составить блок-схему https://www.cyberforum.ru/ turbo-pascal/ thread200249.html
надо написать бок схему и программу по 12 варианту...помогите?(
Turbo Pascal матрица многоразрядных целых чисел https://www.cyberforum.ru/ turbo-pascal/ thread200219.html
Дана матрица A(5*5) многоразрядных целых чисел. Найти номер строки и номер столбца, на пересечении которых находится элемент матрицы, в значении которого больше всего расположено разрядов ...
Чётность- нечётность Turbo Pascal
Написать программу на определение каких цифр больше, чётных или нечётных? Пишем с помощью if или while
Turbo Pascal Дано натуральное число 1) найти сумму цифр которые больше 5 2) сколько раз данная цифра встречается в числе помогите плиз:) Добавлено через 19 часов 40 минут Никто не поможет?:( https://www.cyberforum.ru/ turbo-pascal/ thread200196.html
Turbo Pascal Определите, есть ли в последовательности чисел два подряд идущих нулевых числа https://www.cyberforum.ru/ turbo-pascal/ thread200181.html
с клавиатуры водятся числа до тех пор пока не введено 100. определите, есть ли в последовательности чисел два подряд идущих нулевых числа!!
Turbo Pascal Двумерный массив
Ввести двумерный массив A N×M . Каждый второй элемент в массиве с нечётной суммой индексов, чьё значение лежит в диапазоне заменить единицей. Массив вывести до и после преобразования.
Turbo Pascal не могу записать текст с файла .txt в переменную string игнорируя конец строки в текстовом файле. https://www.cyberforum.ru/ turbo-pascal/ thread200153.html
не могу записать текст с файла .txt в переменную string игнорируя конец строки в текстовом файле. Задание Определить сколько в тексте гласных и согласных букв. program SSO6; const glasn=; ...
Turbo Pascal Операторы присваивания, ввод и вывод информации Сколько процентов от А + В – С приходится на A? На В? На С? Напишите будте добры программу, а то некак немогу ее одалеть. Добавлено через 3 часа 50 минут Тема актуальна Добавлено через 20... https://www.cyberforum.ru/ turbo-pascal/ thread200132.html
Turbo Pascal паскаль
указать натуральное число из заданного интервала, в двоичном представлении которого больше всего единиц. процесс должен быть проиллюстрирован анимацией на экране.результат записан в файл.
Turbo Pascal Почему не продолжается ввод данных? помогите пожалуйста! Почему не продолжается ввод данных? когда на запрос введите количество товаров ставишь 1 то работает, а когда 5....6...7... и тд.не продолжается ввод данных! https://www.cyberforum.ru/ turbo-pascal/ thread200124.html
26 / 26 / 13
Регистрация: 23.11.2010
Сообщений: 58
30.11.2010, 00:08 0

Отсортировать нечетные столбцы массива по возрастанию - Turbo Pascal - Ответ 1154558

30.11.2010, 00:08. Показов 679. Ответов 1
Метки (Все метки)

Ответ

Delphi
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
  const n=5;
  var a:array [1..n,1..n] of integer;
  i,j,t,k:integer;
 
begin
 
 
       for i:=1 to n do
       begin
       for j:=1 to n do
         begin
         a[i,j]:=random(n)+1;
         write(a[i,j]:3);
         end;
         writeln;
         end;
 
 
        {sort perestanovka}
 
        j:=1;
          while j<=n do
          begin
 
          for i:=1 to n-1 do
            begin
            for k:=i+1 to n do
             begin
                   if a[k,j]<a[i,j] then   begin
                                           t:=a[i,j];
                                           a[i,j]:=a[k,j];
                                           a[k,j]:=t;
                                           end;
              end;
            end;
 
 
 
          j:=j+2;
            end;
 
 
       writeln('*****Sorted*****');
           for i:=1 to n do
       begin
       for j:=1 to n do
         begin
 
         write(a[i,j]:3);
         end;
         writeln;
         end;
 
 
        readln;
 
end.


Вернуться к обсуждению:
Отсортировать нечетные столбцы массива по возрастанию Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2010, 00:08
Готовые ответы и решения:

Отсортировать нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор. Добавлено через...

Отсортировать нечетные столбцы массива по возрастанию
3. Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

Отсортировать прямым выбором нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением
Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением. ! ребята помогите...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2010, 00:08
Помогаю со студенческими работами здесь

Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением
10. Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением. вот примерный...

Отсортировать столбцы массива целых чисел по возрастанию
Отсортировать столбцы массива целых чисел по возрастанию. Сортировка включением. Помогите...

Отсортировать нечетные столбцы матрицы по убыванию
отсортировать нечетные столбцы матрицы по убыванию

Отсортировать нечетные строки по возрастанию
Отсортировать нечетные строки по возрастанию p.s не рандомные числа

Отсортировать строки матрицы по возрастанию, а столбцы по убыванию
Парни прошу помощь в ласт раз. 1. дан 2у мерный массив(матрица) произвольной величины....

Отсортировать нечетные столбцы двумерного массива по возрастанию
Отсортировать нечетные столбцы двумерного массива по возрастанию.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru