Программирование На Паскале

Тема в разделе "Pascal and Delphi", создана пользователем elnurgoo, 2 ноя 2013.

  1. elnurgoo

    elnurgoo New Member

    Регистрация:
    2 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице нет двух одинаковых столбцов и есть не менее 3 простых чисел, упорядочить строки матрицы по неубыванию суммы модулей элементов. Использовать процедуры и функции!

    застрял на поиске одинаковых столбцов)))

    просто напишите простую программу


    а для профи то что ниже--->

    если можно то в главной программе должно быть только три обращения к подпрограммам
    Структура программы:
    <pre><code class="delphi"></code></pre>
    {процедуры и функции}
    ...;
    {главная программа}
    Assign(..);
    Reset(..);
    Assign(..);
    Rewrite(..);
    ...
    ...
    ...
    end.

    в крайнем случае просто напишите пожалуйста_))))
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Код (Delphi):
    k:=1; //индекс сравниваемого столбца
    while k<n do
    begin
    for j:=k+1 to n do //индекс второго сравниваемого столбца
    begin
    sum:=0; //счетчик одинаковых чисел
    for i:=1 to n do //бежим по строкам столбца
    begin
    if a[i,k]=a[i,j] then sum:=sum+1;
    end;
    if sum=n then break;
    end;
    if sum=n then break
    else k:=k+1;
    end;
    таким образом получим:
    k, j - одинаковые столбцы
    если к=j=n тогда одинаковых столбцов нет

    код не проверял, накатал на вскидку, идея обязательно должна быть такой (правда, к "break" некоторым преподавателям не нравятся)
     
  3. elnurgoo

    elnurgoo New Member

    Регистрация:
    2 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    Senset, спасибо помог с идейкой))))
     
  4. elnurgoo

    elnurgoo New Member

    Регистрация:
    2 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    забейте сам написал)))
     
Загрузка...

Поделиться этой страницей