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

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 26.01.2020, 05:13   #1
андрей1107
Пользователь
 
Регистрация: 01.10.2015
Сообщений: 15
По умолчанию Вещественная матрица. Построение массива

Уважаемые форумчане, хочу попросить у вас помощи в решении непростой для меня задачи.
Дана вещественная матрица A размером п×n. Построить массив B, каждый элемент которого принимает значение true, если в строке матрицы A существует элемент, делящий ее на две части с одинаковой суммой элементов в каждой.
Матрица загружается из текстового файла.
Код:
 
private
    { Private declarations }
  public
    z:integer; //ïåðåìåííàÿ äëÿ õðàíåíèÿ êîëè÷åñòâà ñòðî÷åê è ñòîëáöîâ
 
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
 
 
 
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
  const
    N = 100;
 
var
     A : array[1..N, 1..N] of Extended;
     B : array[1..N] of Boolean;
     SumL, SumR      : Extended;
 
  f1:TextFile;
  I,J,k:integer;
  L, R: Integer;
  SameValue: Boolean;
begin
  Assignfile(f1, 'f1.txt');
  Reset(f1);
  ReadLn(f1, z);
  StringGrid1.ColCount:=z+1;
  StringGrid1.RowCount:=z+1;
  //Перебор строк матрицы А.
    For I:=1 to z do
  
      B[I]:=False;
      For J:=2 to N - 1 do begin
 
      //Подсчёт суммы левой половины строки.
       SumL:=0;
       for L:=1 to J - 1 do begin
        SumL := SumL + A[I,L];
        end;
        //Подсчёт суммы правой половины строки.
        SumR:=0;
        for R:=J + 1 to N do begin
          SumR:=SumR + A[I, R];
          end;
 
 if SumL>=SumR then begin
        B[I] := True;
 
      end;
 
  end;
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  Close;
  end;
end.
Как сделать итерацию цикла по строкам и
Как матрицу снова вывести в StringGrid ???? Будьте так любезны, подскажите пожалуйста!!!!!
Сравнение вроде провел, дальше уже мозги разрывается.... Помогите, если не трудно.
андрей1107 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана вещественная матрица Le1dar Паскаль, Turbo Pascal, PascalABC.NET 2 02.12.2014 11:58
квадратная вещественная матрица Delphi_Monstr Общие вопросы Delphi 0 13.02.2013 22:10
вещественная матрица keks-zheka Паскаль, Turbo Pascal, PascalABC.NET 0 20.12.2012 12:20
Вещественная матрица xamelion Visual C++ 0 27.02.2012 03:09
Вещественная матрица Ольга2012 Помощь студентам 1 28.12.2011 22:48


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