Двумерные Массивы(delphi)

Тема в разделе "Pascal and Delphi", создана пользователем Loony, 18 дек 2012.

Статус темы:
Закрыта.
  1. Loony

    Loony Гость

    Помогите вроде и легко но вызывает затруднения..

    Дана действительная матрица размером MxN. Найти сумму наименьших значений ее строк
     
  2. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Действительно, проще некуда... ;)
    Код (Delphi):
    const
    M = 10;
    N = 15;
    MAXRND = 100; // Двойное назначение:
    // 1. Как диапазон для Random;
    // 2. Значение гарантированно больше любого элемента
    var
    Matrix: array [1..M,1..N] of Real;

    procedure TMainForm.Button2Click(Sender: TObject);
    var
    i,j: Integer;
    Min,Summ: Real;
    s,s1: string;
    begin
    s1 := StringOfChar('*', M*4); // это для красоты :-)
    s := s1 + Format(' Матрица %dx%d ',[M,N]) + s1 + #13;

    { заполнение матрицы }
    Randomize;
    for i := 1 to M do
    begin
    for j := 1 to N do
    begin
    { расчет элемента }
    Matrix[i,j] := (Random(MAXRND)+1) / (Random(MAXRND)+1);
    { вывод куда нибудь... например в TStringGrid }
    s := s + Format('%6.2f'#9, [Matrix[i,j]]);
    end;
    s := s + #13;
    end;

    s1 := StringOfChar('*', M*4-4);  // это для красоты :-)
    s := s + s1 + ' Мин. значения в строках '+ s1 + #13;

    { вычисление суммы минимальных значений строк }
    Summ := 0;
    for i := 1 to M do
    begin
    Min := MAXRND; // назначаем значение гарантированно больше любого элемента в строке
    for j := 1 to N do
    begin
    { вычисление минимального значения в строке }
    if (Matrix[i,j] < Min) then
    Min := Matrix[i,j];
    end;
    { вычисление суммы минимальных значений }
    Summ := Summ + Min;
    s := s + Format('с%d =%6.2f; ', [i,Min]);
    end;

    s1 := StringOfChar('*', M*9+5);  // это для красоты :-)
    s := s + #13+s1+#13;

    { вывод результата }
    s := s + Format('Сумма наименьших значений = %6.2f ', [Summ])+ #13;
    ShowMessage(s);

    end;
     
  3. Loony

    Loony Гость

    огромное спасибо)))
     
Загрузка...
Похожие Темы - Двумерные Массивы(delphi)
  1. Rpp
    Ответов:
    1
    Просмотров:
    811
  2. Малгано
    Ответов:
    0
    Просмотров:
    1.291
  3. 203
    Ответов:
    12
    Просмотров:
    2.449
  4. SchwarzeWolfin
    Ответов:
    3
    Просмотров:
    2.502
Статус темы:
Закрыта.

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