1 / 1 / 0
Регистрация: 08.01.2016
Сообщений: 78
1

Min элемент таблицы

01.05.2017, 00:57. Показов 278. Ответов 3
Метки нет (Все метки)

Почему не ищет минимальный элемент ? Все должно быть правильно или меня плавит. Подскажите. Спасибо.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s1,s2,max1,max2,min: integer;
begin
s1:=0;
s2:=0;
max1:=-1000;
max2:=-1000;
min:=-1000;
 for i := 1 to 6 do begin
   for j:=4 to 4 do  begin    //peredvig last stolb
    stringgrid1.Cells[j,i]:=inttostr(strtoint(stringgrid1.cells[2,i])+strtoint(stringgrid1.cells[1,i])-strtoint(stringgrid1.cells[3,i]));
    s1:=strtoint(stringgrid1.Cells[j,i])+s1;
    if strtoint(stringgrid1.Cells[j,i])>max2 then max2:=strtoint(stringgrid1.Cells[j,i]);
    if strtoint(stringgrid1.Cells[j,i])<min then min:=strtoint(stringgrid1.Cells[j,i]);
   end;
   for j := 3 to 3 do
    s2:=strtoint(stringgrid1.Cells[j,i])+s2;     //sum
 
 end;
stringgrid1.cells[4,7]:='сумма: '+inttostr(s1);
stringgrid1.cells[4,8]:='max: '+inttostr(max2);
stringgrid1.cells[4,9]:='min: '+inttostr(min);
stringgrid1.cells[3,7]:='сумма: '+inttostr(s2);
 
end;
 
procedure TForm1.button2Click(Sender: TObject);
var
i,j: integer;
begin
  for i := 1 to 6 do begin
    for j := 1 to 1 do
    stringgrid1.cells[j,i]:=inttostr(random(1000)+1000);
    for j := 3 to 3 do
    stringgrid1.cells[j,i]:=inttostr(random(250)+500);
    for j := 2 to 2 do
    stringgrid1.cells[j,i]:=inttostr(random(100)+100);
  end;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  stringgrid1.Cells[0,0]:='наименование товара';
  stringgrid1.Cells[0,1]:='Сыр';
  stringgrid1.Cells[0,2]:='Хлеб';
  stringgrid1.Cells[0,3]:='Рис';
  stringgrid1.Cells[0,4]:='Картошка';
  stringgrid1.Cells[0,5]:='Сахар';
  stringgrid1.Cells[0,6]:='Свекла';
  stringgrid1.Cells[1,0]:='Остаток от предыдущей смены';
  stringgrid1.Cells[2,0]:='Выработка за смену';
  stringgrid1.Cells[3,0]:='Сдано на склад';
  stringgrid1.Cells[4,0]:='Осталось на следующую смену';
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.05.2017, 00:57
Ответы с готовыми решениями:

Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В
Ребят помогите пожалуйста с задачей, не понимаю как ее решить, завтра за нее голову отрубят.. ...

Даны действительные числа а и b. Получить U= min (a,b), V= min (ab, a+b), min (U+V^2, 3.14) при помощи функций
Даны действительные числа а и b. Получить U= min (a,b), V= min (ab, a+b), min (U+V^2, 3.14). ...

Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a), Y2=min(Y12+Y
Даны действительные числа a, b. Рассчитать Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a)),...

Вычислить Z=(X[max]-Y[min])/2, где Х[max] - максимальный элемент массива Х(50), Y[min] - минимальный элемент массива Y(40)
помогите пожалуйста: Вычислить Z=(X-Y)/2, где Х - максимальный элемент массива Х(50), Y -...

3
23 / 23 / 11
Регистрация: 12.01.2013
Сообщений: 223
01.05.2017, 03:47 2
может я не все в голову засунул но почему Вы решили что в Ваш код должен найти минимальный элемент таблицы?
сначала определитесь с областью поиска, а потом с алгоритмом.
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
01.05.2017, 08:51 3
Delphi
1
2
max:=-maxint-1;
min:=maxint;
Добавлено через 2 минуты
Цитата Сообщение от Kolapsis Посмотреть сообщение
Почему не ищет минимальный элемент ?
Потому что
min:=-1000;
а в зоне поиска таблицы нет элементов <-1000
1
Модератор
7270 / 4753 / 1996
Регистрация: 21.01.2014
Сообщений: 20,205
Записей в блоге: 3
01.05.2017, 08:56 4
Delphi
1
2
max := Low(integer);
min := High(integer);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2017, 08:56

Массив: Получить min(a1;a2;a3)+min(a4;a5;a6)+min(a7;a8;a9)+min(a10;a11;a12) .
Заполнить массив а1,а2,а3...а12 случайными числами от 0 до 20. Получить ...

Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.
Можете глянуть две задачки на pascale ? 1)Определить сумму элементов, массива целых чисел...

Вывести max элемент главной, а затем min элемент побочной диагонали
Доброго времени суток, ребята ! Подскажите пожалуйста, как грамотно составить условие... ? Чёто...

Вычислить max элемент каждой строки матрицы и min элемент из них
Дана матрица размерностью MxN. Вычислить максимальный элемент каждой строки матрицы и минимальный...


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

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

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