Помогите словестно-математически описать текст программы!
Назначение и ОДЗ переменных!

Код

procedure TForm1.Button3Click(Sender: TObject); var i,j,k,n,m,max: Integer; begin for i:=1 to StringGrid1.RowCount do for j:=1 to StringGrid1.ColCount do mas[i,j]:=StrToInt(Form1.StringGrid1.Cells[j-1,i-1]); if (StringGrid1.RowCount mod 2)=0 then m:=round(StringGrid1.RowCount/2) else m:=round(StringGrid1.RowCount/2)+1; k:=StringGrid1.RowCount+1; n:=0; max:=StrToInt(StringGrid1.cells[0,0]); for j:=1 to m do begin k:=k-1; n:=n+1; for i:=n to k do if mas[i,j]>max then max:=mas[i,j]; end; k:=0; n:=StringGrid1.RowCount+1; for j:=StringGrid1.RowCount downto m do begin k:=k+1; n:=n-1; for i:=k to n do if mas[i,j]>max then max:=mas[i,j]; end; label4.Caption:=IntToStr(max); end;

Цитата(Ares @ 12.6.2005, 20:53)

Помогите словестно-математически описать текст программы!

это как?

integer - целые переменные
i,j - у тебя в программе для того чтобы можно было сделать цикл
max - для присвоения максимального значения в матрице

Цитата

StringGrid1.RowCount

RowCount - количество столбцов

Цитата

StringGrid1.ColCount

ColCount - кол-во строк

Цитата

(StringGrid1.RowCount mod 2)=

mod - возвращает остаток от деления


Это сообщение отредактировал(а) Негодяй - 12.6.2005, 21:54

То есть, описати полностью от начала до конца как работает программа!

А k,n,m что за элементы

Так ты эту программулину не сам писал, признавайся ? Иначе ты бы знал, для чего вся эта байда предназначена.

Код

procedure TForm1.Button3Click(Sender: TObject); //данная процедура выполняется после щелчка на Button3 var   i, j: Integer; //две переменные, используемые в качестве счетчиков циклов   k, n, m: Integer; //испльзуются для поиска макс. элемента   max: Integer; //макс. элемент   mas: array [1..50, 1..50] of Integer; //у тебя в проге не была объявлена сама матрица. Я делаю ее элементы целыми числами begin      {цикл заполнения массива}   for i := 1 to StringGrid1.RowCount do   for j := 1 to StringGrid1.ColCount do   mas [i,j] := StrToInt (Form1.StringGrid1.Cells [j-1,i-1]);   {здесь вычисляется m, которая будет равна половине количества строк в StringGride}   if (StringGrid1.RowCount mod 2) = 0     then m := round (StringGrid1.RowCount / 2) else m := round (StringGrid1.RowCount / 2) + 1;   max := StrToInt (StringGrid1.cells [0,0]); //в начале будет считаться, что макс. элемент находится в ячейке [0,0] StringGrid'а      k := StringGrid1.RowCount + 1; //переменной k присваивается значение, на 1 большее количества строк StringGrid'а   n := 0;      {начинаем поиск макс. элемента}   {цикл 1}   for j := 1 to m do   begin     k := k - 1;     n := n + 1;     for i := n to k do if mas[i,j] > max then max := mas [i,j];   end;   k := 0;   n := StringGrid1.RowCount + 1;      {цикл 2}   for j := StringGrid1.RowCount downto m do   begin     k := k + 1;     n := n - 1;     for i := k to n do if mas [i,j] > max then max := mas [i,j];   end;   label4.Caption := IntToStr (max); //вывод в label4 значения максимального элемента матрицы end;

Итак, первым в проге происходит заполнение массива. Переменная i считает строки, j - столбцы. После каждой итерации mas [i,j] присваивается значение, записанное в StringGrid1.Cells [j-1, i-1]. j-1 и i-1 потому, что отсчет ячеек StringGrid'а начинается с нуля.
После этого вычисляется m по нехитрой формуле: если количество строк таблицы StringGrid делится на 2 без остатка, то m будет равно половине количества строк, если же нет, то округленному значению количества строк, деленного на 2, плюс единица. Надеюсь, не очень запутанно.
Затем переменной max, которая изображает максимальный элемент массива, присваивается значение, которое записано в верхней левой ячейке StringGrid'а.
Инициализируются переменные n и k, которые будут отвечать за поиск. В циклах поиска их значения будут изменяться таким образом, что в программа будет "сканировать" не все элементы.
Она словно разбивает по диагоналям матрицу, и {цикл 1} сканирует треугольник, образованный диагоналями слева, а {цикл 2} - треугольник, образованный диагоналями справа.
Далее цикл поиска. Счетчик j увеличивается только до m, т.е. где-то до половины строк таблицы. Только вот я так понимаю, что матрица - квадратная, потому что про ColCount там ничего не говорится, то есть считается, что ColCount равно RowCount. Так вот, строки увеличиваются от 1 до m, а столбцы. Меняются так: после первой итерации сканируются столбцы от 1 до RowCount (т.к. n=1, k=RowCount - смотри как они изменяются в цикле), после второй - от 2 до RowCount - 1. Получается, что сканирование проходит такой треугольник, о котором говорилось выше, слева (не знаю, на фиг это в твоей проге, но так она сделана...). В {цикле 2} то же самое, только счет там ведется по нисходящей от RowCount до m. Но так как m здесь играет роль столбцов, то получается, что сканируется треугольник справа.
После этого выводится значение макс. элемента на label4.
Вот, собсно, и все - если возникнут вопросы (я то наверное не совсем понятно объяснил), спрашивай.

Это сообщение отредактировал(а) Payne - 13.6.2005, 10:01

Да ты прав ! На то обстоятельства были За лето надеюсь изучу делфи! Ты сам посуди реально ли учиться на киберфаке без компа
Спасибо тебе