С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
miracle24
0 / 0 / 0
Регистрация: 01.04.2016
Сообщений: 76
1

Игра с природой. Метод Вальда

12.03.2018, 15:17. Просмотров 117. Ответов 1
Метки нет (Все метки)

дана двумерная матрица заданная в компоненте StringGrid1. нужно посчитать сначала минимум по строке, а потом максимум из столбца. все это делается. не могу сделать только чтобы в поле Memo выводилось номер правильной строки, ставлю IntToStr(i); но выводит всегда в последней клеточке и ставит номер последней строки. подскажите пожалуйста


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
for i:=1 to n do
        for j:=1 to m do
            mas[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
            buf1:=0;
            buf2:=0;
for i:=1 to n do
    begin
    min:=mas[i,1];
    for j:=1 to m do
        begin
         if mas[i,j]<=min then
           min:=mas[i,j];
         buf1:=j;
        end;
    mas[i,m+1]:=min;
    StringGrid1.Cells[StringGrid1.colCount-1,i]:=floattostr(min);
    end;
 
  StringGrid1.colCount:=StringGrid1.colCount+1;
  StringGrid1.Cells[StringGrid1.colCount-1,0]:='max(minA)';
  for i:=1 to n do
          for j:=1 to m+1 do
              mas1[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
  for j:=1 to m+1 do
    begin
   max:=mas1[1,j];
   p:=1;
        for i:=1 to n do
            begin
            if mas1[i,j]>max then
            max:=mas1[i,j];
            p:=i;
       end;
       mas1[n+1,j]:=max;
 
       StringGrid1.Cells[StringGrid1.colCount-1,i]:=floattostr(max);
       end;
  Memo1.Text:='Max(MinA)='+IntToStr(max)+'.'+
  '   Оптимальной(наилучшей) стратегией является стратегия A'
  +IntToStr(i);
   end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2018, 15:17
Ответы с готовыми решениями:

В ближайшие 5-6 часов нужна прога)Игры с природой(теория игр)
Здравствуйте, нужно реализовать на delphi Игры с природой (теория игр)...

Метод хорд, метод касательных, метод половинного деления
Ребят помогите пожалуйста. Задали тему курсовой &quot;Решение нелинейных уравнений...

Игры с Природой
Сразу говорю, код не мой, но фишка в том что он вообще перестал работать. В...

Критерии Вальда, Сэвиджа, Гурвица
Найти наилучшие стратегии по критериям Вальда, Сэвиджа (коэффициент пессимизма...

Как найти критерии Вальда, Сэвиджа, Гурвица
Если есть матрица и коэффициент пессимизма или оптимизма

1
Puporev
Модератор
55495 / 42589 / 29436
Регистрация: 18.05.2008
Сообщений: 100,744
12.03.2018, 15:42 2
По моему Вы неверно поняли суть задачи, напишите ее точное и полное условие.

Добавлено через 8 минут
Вам наверное нужно найти максимальный из минимальных элементов строк и номер этой строки?

Добавлено через 6 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
max:=0; //максимум из минимальных
imx:=0; //номер искомой строки
for i:=1 to n do
 begin
  min:=mas[i,1];
  for j:=2 to m do
  if mas[i,j]<=min then min:=mas[i,j];
  if min>max then
   begin
    max:=min;
    imx:=i; //нашли номер оптимальной стратегии по критерию Вальда
   end;
  end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2018, 15:42

Не могу понять как написать макрос в Excel по критерию Вальда
Здравствуйте. Не могу сдвинуться с мертвой точки. Нужно написать макрос,...

Игра Жизнь пиксельный метод. SetPixel,GetPixel тормозит
Добрый день, Форумчани. С друзьями решили реализовать &quot;игра жизнь&quot;(смотреть на...

Объясните для чего предназначен каждый метод(игра Snake)
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;windows.h&gt; #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru