Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 07.03.2008, 11:55   #1
motaro
Форумчанин
 
Регистрация: 10.07.2007
Сообщений: 104
По умолчанию в начале все отрицательные, затем все положительные элементы в матрице

Нужно решить следующую задачу и составить к ней блок-схему (можно в Paint'е):

В матрице A (6,5) элементы 2-го столбца расположить следующим образом: в начале все отрицательные, затем все положительные. Матрицу заполнить целыми случайными числами из диапазона [-3,8].

кто решит, кину на мобильник 200р.

Последний раз редактировалось motaro; 07.03.2008 в 12:06.
motaro вне форума Ответить с цитированием
Старый 07.03.2008, 12:15   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Код:
var A : array [1..6, 1..5] of integer;
    i, j, n, k:integer;
begin
   // Заполнение матрицы
   randomize;
   for i:=1 to 6 do
      for j:=1 to 5 do
          A[i, j] := random(9+3)-3;
   // Random возвращает [0..range[ поэтому добавляем 1

   n := 0; // первый положительный эелемент
   for i:=1 to 5 do begin
     k := A[i, 2];
     // про нули в задании ничего не сказано, считаем их положительными
     if k >= 0 then begin
        // Запоминаем позицию первого положительного элемента 
        if n = 0 then n := i
     end else

     if (k < 0) and (n > 0) then begin
        // меняем местами с первым положительным элементом
        A[i, 2] := A[n, 2];
        A[n, 2] := k;
        inc(n);
     end;
   end;
alexBlack вне форума Ответить с цитированием
Старый 07.03.2008, 19:16   #3
motaro
Форумчанин
 
Регистрация: 10.07.2007
Сообщений: 104
По умолчанию

задача решена! тему можно закрыть
motaro вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на исключение строк в матрице DRAG Помощь студентам 11 20.04.2011 20:31
В чем проблема появления символа & в начале каждого заголовка итема созданного в рунтайте раздела меню? SkAndrew Общие вопросы Delphi 17 10.08.2008 20:44
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49
Как осуществить поиск сначала по всей БД, а затем из найденных таблиц найти по полю Date нужные записи? kayman БД в Delphi 1 21.09.2007 14:56


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS