Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2895389 Mon, 16 May 2011 18:56:30 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2895389 lena1992 Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2895368 Mon, 16 May 2011 18:29:28 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2895368 не Турбо-Паскаль, то добавь одно слово:

    const
       n = 10;
    var
       a : array[1 .. n] of integer = (
          1, 2, 3, 4, 5, 6, 7, 8, 9, 10
       );
]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2895365 Mon, 16 May 2011 18:19:25 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2895365 Помогите пжл кто чем сможет, почему не правильно...(

Добавлено
Цитата lena1992 @
препод сказал

Какой препод, блин сам паскаль говорит:
не может присвоить значение константе... O:-)]]> lena1992 Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893832 Fri, 13 May 2011 14:22:47 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893832
Добавлено
Все спасибо всем большое)))]]> lena1992 Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893830 Fri, 13 May 2011 14:21:37 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893830
    const
       n = 10;
       a : array[1 .. n] of integer = (
          1, 2, 3, 4, 5, 6, 7, 8, 9, 10
       );
     
     
    var
       i, j, T : integer;
       b : boolean;
    begin
       writeln('before:');
       for i := 1 to n do
          write(a[i]:4);
       writeln;
     
       for i := 1 to n - 1 do
       begin
          b := odd(a[i]);
          for j := i + 1 to n do
             if (odd(a[j]) = b) and (a[j] < a[i] = b) then
             begin
                T := a[i]; a[i] := a[j]; a[j] := T;
             end;
       end;
     
       writeln('after:');
       for i := 1 to n do
          write(a[i]:4);
       writeln;
    end.


    before:
       1   2   3   4   5   6   7   8   9  10
    after:
       1  10   3   8   5   6   7   4   9   2
Четные (2, 4, 6, 8, 10) отсортированы по убыванию, а нечетные (1, 3, 5, 7, 9) - по возрастанию... Идея - в том, что сравниваться (и обмениваться местами, разумеется) 2 элемента должны только тогда, когда они либо оба четные, либо оба - нечетные... Ну, а уж поменять направление сортировки в зависимости от четности/нечетности элементов - это вообще проще простого...]]> volvo877 Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893756 Fri, 13 May 2011 13:02:22 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893756
    procedure SelectionSort(var arr : array of Real; const N : Integer);
    var
        I   :   Integer;
        J   :   Integer;
        K   :   Integer;
        M   :   Real;
    begin
        for i:=1 to N do
        begin
            m:=Arr[i-1];
            k:=i;
            for j:=i to n do
            begin
                if m>Arr[j-1] then
                begin
                    m:=Arr[j-1];
                    k:=j;
                end;
            end;
            Arr[k-1]:=Arr[i-1];
            Arr[i-1]:=m;
        end;
    end;

мммм а как, т.е куда(место чего) нужно ввести значение not(odd)/odd в этой программе?]]> lena1992 Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893743 Fri, 13 May 2011 12:50:25 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893743 Сортировка -
Как упорядочить массив по возрастанию?]]> Булат Шакиров Pascal https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893729 Fri, 13 May 2011 12:35:18 +0000 Массивы https://forum.sources.ru/index.php?showtopic=331683&view=findpost&p=2893729 Ребят помогите сможете решить эту задачку, понятия не имею, как делать]]> lena1992 Pascal