Форум программистов [Powered by Invision Power Board]

Код

 procedure Count_Koefficients;
  var i,j:integer;
    ks1,ks2,ks3:string;
  begin
      k1 := 0;
      k2 := 0;
      k3 := 0;

          for i := Border1.Min to Border1.Max do
               k1 := k1 + F_Massive[i];

          for i := Border2.Min to Border2.Max do
               k2 := k2 + F_Massive[i];

          for i := border1.Min to Border2.Max do
               k3 := k3 + F_Massive[i];

      k1 := k1/((N+Mass_Osnast)*(Border1.Max - Border1.Min)*(U/Mass_Tar_gr));
      k2 := k2/((N+Mass_Osnast)*(Border2.Max - Border2.Min)*(U/Mass_Tar_gr));
      k3 := k3/((N+Mass_Osnast)*(Border2.Max - Border1.Min)*(U/Mass_Tar_gr));

      writeln (File_lst,inttostr(Cur_H_Period div 2)+' '+floattostr(k1)+' '+floattostr(k2)+' '+floattostr(k3));
      ks1 := floattostr(k1);
      ks2 := floattostr(k2);
      ks3 := floattostr(k3);
        for j := 3 to length (ks1) do
          delete(ks1,j,1);
        for j := 3 to length (ks2) do
          delete(ks2,j,1);
        for j := 3 to length (ks3) do
          delete(ks3,j,1);
      pole.Lines.Add(' ¹ '+inttostr(Cur_H_Period div 2)+' | '+ks1+' | '+ks2+' | '+ks3);
      
      inc(x_point);
      y_point := trunc(k3*100);
      field.canvas.moveto (x_point,0);  
      field.canvas.lineto(x_point,y_point);

      if (Cur_H_Period div 2)  mod Per_meter = 0 then begin
                                                   assignfile (File_grf,filename+'.grf');
                                                   reset(File_grf);
                                                   seek(file_grf,filesize(file_grf));
                                                   write (file_grf,F_Massive);
                                                   closefile(file_grf);
                                                  end;
  end;