Здравствуйте, помогите сделать Блок-Схему программы

[podjik]

вообщем вот код программы, никогда не делал, сделайте мне пожалуйсто, буду благодарен:

procedure TForm1.Button1Click(Sender: TObject);
 const m=6;
      n=9;
var
  Form1: TForm1;
  a:array[1..m,1..n] of real;
  i,j:integer;
begin
randomize;
for i:=1 to m do
for j:=1 to n do
 begin
  a[i,j]:=20*random;           //вещественные числа (0,0..20,0)
 StringGrid1.Cells[j-1,i-1]:=floattostrf(a[i,j],ffFixed,0,2);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,imn,imx:integer;
    mn,mx,t:real;
begin
mn:=a[1,1];    //пока минимальный и масимальны первый элемент
imn:=1;
mx:=a[1,1];
imx:=1;
for i:=1 to m do
for j:=1 to n do
 begin                  //ищем минимальный
  if a[i,j]<mn then             //номер строки
   begin
    mn:=a[i,j];
    imn:=i
   end;
  if a[i,j]>mx then   //ищем максимальный
   begin
    mx:=a[i,j];
    imx:=i        //номер строки
   end;
 end;
Edit1.Text:='Минимальный элемент='+floattostrf(mn,ffFixed,0,2)+
            ' в строке '+inttostr(imn);
Edit2.Text:='Максимальный элемент='+floattostrf(mx,ffFixed,0,2)+
            ' в столбце '+inttostr(imx);
if imn=imx then ShowMessage('Минимальный и максимальный в одной строке, обмена нет')
else
 begin
  for j:=1 to n do
   begin                   //все элементы строк  imn,imx обмениваем местами
    t:=a[imn,j];
    a[imn,j]:=a[imx,j];
    a[imx,j]:=t;
   end;
  for i:=1 to m do
  for j:=1 to n do
  StringGrid1.Cells[j-1,i-1]:=floattostrf(a[i,j],ffFixed,0,2);
 end;
end;
end.

[Artsiom]

Сделать или объяснить как это делается?

[min@y™]

сделайте мне пожалуйсто

коллективно?

[podjik]

Ну хотя бы объясните как делать, я сам сделаю)

[Utkin]

Скачиваешь программку, аналогичную DiamFC и она тебе строит решение. Его нужно перерисовать в соответствии с требованиями, так как я еще ни одной не встречал, которая бы соблюдала ГОСТы. Сам код конечно жесть. В обработчиках кнопок нужно ставить в основном код, отвечающий за работу с юзером, все обсчеты должны выполняться в отдельных, независимых от формы функциях/процедурах.

[Artsiom]

Сообщение от Utkin

нужно ставить в основном код, отвечающий за работу с юзером, все обсчеты должны выполняться в отдельных, независимых от формы функциях/процедурах.

Почему?
Какая разница или код будет такой:

procedure ButtonClick();
begin
 //Тут куча кода
end;

Или такой:

function ResultBC(....) ....;
begin
 //Тут куча кода
end;

procedure ButtonClick();
begin
 ResultBC(....); :)
end;

[p51x]

Потому что интерфейс надо отделять от реализации. А если завтра вы на другую кнопку захотите перенести, а если по прерыванию таймера обрабатывать соберетесь? Копи-паста кусками?

[Alex11223]

Потому что не надо смешивать UI и бизнес-логику.

А если не только на кнопке он понадобится?
Или тесты?
Ну и вообще сложнее так разбираться в коде если это не хеллоу ворд на 5 строк.

И если "куча кода", то вероятно это неправильная функция и надо отрефакторить и выделить из нее что-то в отдельные функции/классы и т.д.

[Artsiom]

А если код при этом увеличится, эдак раза в 1,5?

[Alex11223]

Ну, пиши так тогда. И заодно пустые строки нигде не оставляй, и все блоки циклов и if-ов старайся ужать в одну строку, и переменным давай максимально короткие имена, лучше однобуквенные, и старайся не плодить переменные, переиспользуй одну и ту же переменную везде, где требуется переменная такого типа.