исправьте блок схему(

[Tolian92]

procedure TForm3.Button4Click(Sender: TObject);
var
a,d:string;
b,x,y,f:integer;
 i,c,c1:integer;
 label m1;
begin

  Form2.Table5.First;
  while not Form2.Table5.Eof do begin
          Form2.table5.EDIT;
        x:=Form2.Table5.FieldByName('Watch').VALUE;

         f:=x div 2 ;
          Form2.Table5.FieldByName('Pole2').VALUE:=  f;
         Form2.Table5.Next;
 end;
Form2.Table1.First;
while not Form2.Table1.Eof do begin
    a:=Form2.Table1.FieldByName('Name_gr').VALUE;
    b:=Form2.Table1.FieldByName('Sm1').VALUE;
    Form2.Table5.First;
    while not Form2.Table5.Eof do begin
              Form2.table5.EDIT;
             If Form2.Table5.FieldByName('Name_gr').VALUE=a then  BEGIN
                        y:=Form2.Table5.FieldByName('Pole2').VALUE div b;
                        Form2.Table5.FieldByName('Para').VALUE:=y;
                        END;
              Form2.Table5.Next;
              END;
      Form2.Table1.Next;
      END;



Form2.Table1.First;
while not Form2.Table1.Eof do begin
    a:=Form2.Table1.FieldByName('Name_gr').VALUE;

    Form2.Table5.First;
    c:=0;
    while not Form2.Table5.Eof do begin
              Form2.table5.EDIT;
              If Form2.Table5.FieldByName('Name_gr').VALUE=a then
                    c:=c+Form2.Table5.FieldByName('Para').VALUE;
                Form2.Table5.Next;
                end;
             str(c,d);   form3.edit1.Text:=d;
     IF C=18  then goto m1;
      Form2.Table5.First;
      FOR i:=1 to 18-c do begin
                   Form2.table5.EDIT;
                  if Form2.Table5.FieldByName('Name_gr').VALUE=a then
                   Form2.Table5.FieldByName('Para').VALUE:=
                            Form2.Table5.FieldByName('Para').VALUE+1;
                   Form2.Table5.Next; 
                   end;
    
       m1:   Form2.Table1.Next;
        end;


 Form2.Table4.First;
  while not Form2.Table4.Eof do begin
              Form2.table4.EDIT;
 Form2.Table4.FieldByName('K_par').VALUE:=0;
  Form2.Table4.Next;
                    end;

   Form2.Table4.First;
while not Form2.Table4.Eof do begin
    a:=Form2.Table4.FieldByName('FIO_prep').VALUE;

    Form2.Table5.First;
    c:=0;
    while not Form2.Table5.Eof do begin
              Form2.table5.EDIT;
              If Form2.Table5.FieldByName('FIO_prep').VALUE=a then
                    c:=c+Form2.Table5.FieldByName('Para').VALUE;
                Form2.Table5.Next;
                end;
   
     Form2.table4.EDIT;
      Form2.Table4.FieldByName('K_par').VALUE:=c;
       Form2.Table4.Next;
        end;   


END;

[rrrFer]

Да а че тут править?
Надо все удалить и рисовать заново.
И рисуй в визио или yed, на бумаге ты зачеркивать запаришься.

[Tolian92]

это понятно,что не правильно ничего,мне для сначало на листочке сделать,это вообще для диплома

[rrrFer]

Ну а чем помочь то?

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

Ну а в этой... Блок который F2T5 висит в воздухе (из него стрелок не выходит). Такого не бывает. Дальше не смотрел.