Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Сортировка прямой выбор. Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор. https://www.cyberforum.ru/ turbo-pascal/ thread188776.html	В каждой строке найти сумму элементов расположенных после первого нулевого элемента. Turbo Pascal Ввести матрицу A(n x m) , вывести ее. В каждой строке найти сумму элементов расположенных после первого нулевого элемента. Значения найденных сумм поместить в одномерный массив B(n). Помогите,...
Turbo Pascal написать блок схему https://www.cyberforum.ru/ turbo-pascal/ thread188737.html разработать ГСА собственной программы ..........12 вариант	Turbo Pascal Заполнить массив тремя способами оператор Как заполнять массив? 1. Как константу. 2. Случайные числа. 3. Вручную. https://www.cyberforum.ru/ turbo-pascal/ thread188720.html
Turbo Pascal Реализовать меню без меток Помогите пожалуйста с менюшкой в паскале!!! Я знаю как делать через case с метками но мне нужно без меток подскажите пожалуйста......	Turbo Pascal Используя рекуррентную формулу, вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread188675.html используя рекуррентную формулу,вычислить сумму ряда Y=1+∑_(n=1)^∞▒(x ln⁡〖a ) □n〗/n! (-∞<x<+∞) с точностью : 1)о,о1; 2)0,001.определить количество элементов ряда,включённых в сумму. Помогите...
Turbo Pascal Вычислить вектор Y,компоненты которого образуются следующим образом В инсте задали задачу,не могу написать её на паскале,помогите кто может: Дана матрица A размерности N*N.Вычислить вектор Y,компоненты которого образуются следующим образом: первый равен ZAii от N до... https://www.cyberforum.ru/ turbo-pascal/ thread188670.html	Turbo Pascal Линейный односвязный циклический список с указателем на последний узел Здравствуйте! При объявлении такого типа следует указывать только указатель на следующий элемент: type elptr = ^el; el = record; Data : integer; Next : elptr; ...
Turbo Pascal Найти минимумы и поменять их местами... Дан двумерный массив m*n... найти минимум из положительных чисел выше побочной диагонали и найти минимум из отрицательных чисел ниже побочной диагонали. Вывести их на печать с указанием индексов.... https://www.cyberforum.ru/ turbo-pascal/ thread188638.html	Turbo Pascal Посчитать количество различных фигур https://www.cyberforum.ru/ turbo-pascal/ thread188637.html Назовем фигурой множество клеток,связанных по тсороне.Будем считать фигуры одиннаковые,если их можно совместить поворотами перемещениями.На листе бумаги в клетку нарисовано множество фигур,посчитать...
Turbo Pascal Исправить код табулирования функции Есть программа, готовая и работающая. program lab13; var n,a,b,x,y,h,i:double; label 1; function f1(s:double):double; begin f1:=x*cos(1/x); end; function f2:string; begin	Turbo Pascal Вывести все целые числа, расположенные между данными числами https://www.cyberforum.ru/ turbo-pascal/ thread188619.html Решать только с использованием repeat! Даны два целых числа A и B (A меньше B). Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их убывания, а...

pryda

Неадекват и грубиян

310 / 297 / 301

Регистрация: 22.02.2010

Сообщений: 645

10.11.2010, 00:40

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

10.11.2010, 00:40. Показов 1545. Ответов 2

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

вы что, одноклассники? 10 минут назад тоже самое писал

Pascal

uses crt;
const n=5;
      m=5;
var a:array[1..n,1..m]of integer;
    i,j,k,t,d:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        a[i,j]:=random(11)-5;
        write(a[i,j]:4);
    end;
    writeln;
end;
writeln;
for j:=1 to m do
if odd(j) then
for i:=1 to n-1 do
    begin
        k:=i;
        for d:=i+1 to n do
        if a[k,j]>a[d,j] then k:=d;
        t:=a[i,j];
        a[i,j]:=a[k,j];
        a[k,j]:=t;
    end;
writeln('Результат:');
for i:=1 to n do
begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
end;
readln;
end.

Вернуться к обсуждению:
Отсортировать прямым выбором нечетные столбцы массива по возрастанию Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.11.2010, 00:40

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.11.2010, 00:40

Помогаю со студенческими работами здесь

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

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

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

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

Наверх