Кто поможет оптимизировать прогу, а то я уже оптимизировал как мог :)

[Droid]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Gauges, math, ComCtrls, Grids, ExtCtrls;


type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  const
  lambdo=14;
  T=0.06;
  N=1000000;

var
  Form1: TForm1;
  U_i, V_j, Q: array[1..N] of real;
  H: array[0..N] of integer;
  i,j, col_H: integer;
  q_anal, q_prog: real;
implementation

{$R *.DFM}

function Okr_six(n:real):string;
begin
 Okr_six:=floattostrf(n,ffFixed,length(floattostr(n)),6);
end;

function Okr_two(n:real):string;
begin
 Okr_two:=floattostrf(n,ffFixed,length(floattostr(n)),2);
end;

procedure line(x1,y1,x2,y2: integer);
begin
 Form1.Canvas.MoveTo(x1,y1);
 Form1.Canvas.LineTo(x2,y2);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
a, x, y: integer;
c, sum: real;
begin
 Form1.Canvas.Brush.Color:=clBtnFace;
 j:=1; i:=1; sum:=0; H[0]:=1; col_H:=1;
 q_anal:=1/(1+T*lambdo);
 c:=1/lambdo;
 Randomize;

//********************Генерируем входной и выходной потоки**********************

 for a:=1 to N do
   begin
     U_i[a]:=-c*log10(random);
     V_j[a]:=-t*log10(random);
   end;

//***********************Симулируем работу БВЗ**********************************

 for i:=1 to N do
   begin
     sum:=sum+U_i[i];
     if V_j[j]<sum then
       begin
         H[i]:=1;
         sum:=0;
         inc(j);
         inc(col_H);
       end else H[i]:=0;
     q[i]:=col_H/i;
   end;

//**********************Строим оси графика**************************************

 Line(20,60,20,280);
 Line(20,280,350,280);
 Line(20,80,24,80);
 Line(285,276,285,280);
 Line(64,276,64,280);
 Line(108,276,108,280);
 Line(152,276,152,280);
 Line(196,276,196,280);
 Line(240,276,240,280);
 Form1.Canvas.TextOut(8,75,'1');
 Form1.Canvas.TextOut(8,282,'0');
 Form1.Canvas.TextOut(61,282,'1');
 Form1.Canvas.TextOut(104,282,'2');
 Form1.Canvas.TextOut(148,282,'3');
 Form1.Canvas.TextOut(193,282,'4');
 Form1.Canvas.TextOut(237,282,'5');
 Form1.Canvas.TextOut(282,282,'6');
 Form1.Canvas.TextOut(7,55,'Q');
 Form1.Canvas.TextOut(335,282,'Ln(x)');
 Line(15,280-round(q_anal*200),350,280-round(q_anal*200));
 Label1.Caption:='Q аналитическое: '+Okr_six(q_anal);

//**********************Выводим точки графика**************************************
 for a:=1 to N do
   begin
     x:=round(log10(a)*50+20);
     y:=280-round(q[a]*200);
     Form1.Canvas.Pixels[x, y]:=clBlue;
   end;

 Label2.Caption:='Q программное: '+floattostr(q[1000000]);
 Form1.StringGrid1.Cells[1,1]:='  '+Okr_two((abs(q[10]-q_anal)/q_anal)*100)+'%';
 Form1.StringGrid1.Cells[1,2]:='  '+Okr_two((abs(q[100]-q_anal)/q_anal)*100)+'%';
 Form1.StringGrid1.Cells[1,3]:='  '+Okr_two((abs(q[1000]-q_anal)/q_anal)*100)+'%';
 Form1.StringGrid1.Cells[1,4]:='  '+Okr_two((abs(q[10000]-q_anal)/q_anal)*100)+'%';
 Form1.StringGrid1.Cells[1,5]:='  '+Okr_two((abs(q[100000]-q_anal)/q_anal)*100)+'%';
 Form1.StringGrid1.Cells[1,6]:='  '+Okr_two((abs(q[1000000]-q_anal)/q_anal)*100)+'%';
end;

procedure TForm1.FormCreate(Sender: TObject);
var
count :integer;
begin
 Form1.StringGrid1.Cells[0,0]:='Ln(N)';
 Form1.StringGrid1.Cells[1,0]:='Погрешность';
 for count:=1 to 6 do Form1.StringGrid1.Cells[0,count]:='  '+inttostr(count);
end;

end.

нам просто в колледже дают код программы к примеру ) и его надо по существующим правилам оптимизировать ) как еще можно, уже мыслев не хватает

[А. Долматов]

Line(20,60,20,280);
Line(20,280,350,280);
Line(20,80,24,80);
Line(285,276,285,280);
Line(64,276,64,280);
Line(108,276,108,280);
Line(152,276,152,280);
Line(196,276,196,280);
Line(240,276,240,280);
Form1.Canvas.TextOut(8,75,'1');
Form1.Canvas.TextOut(8,282,'0');
Form1.Canvas.TextOut(61,282,'1');
Form1.Canvas.TextOut(104,282,'2');
Form1.Canvas.TextOut(148,282,'3');
Form1.Canvas.TextOut(193,282,'4');
Form1.Canvas.TextOut(237,282,'5');
Form1.Canvas.TextOut(282,282,'6');
Form1.Canvas.TextOut(7,55,'Q');
Form1.Canvas.TextOut(335,282,'Ln(x) ');
Line(15,280-round(q_anal*200),350,280-round(q_anal*200));
Label1.Caption:='Q аналитическое: '+Okr_six(q_anal);

это можно в функцию записать. и вызывать ее когда надо.

[Droid]

хм... это можно в while Form1.Canvas do загнать, а еще что можно сделать ?

[alexBlack]

Okr_six, Okr_two лучше сделать одной функцией. siz, two - явно напрашивается в параметр.

Form1.StringGrid1.Cells[1,2]:='  '+Okr_two((abs(q[100]-q_anal)/q_anal)*100)+'%';   
 Form1.StringGrid1.Cells[1,3]:='  '+Okr_two((abs(q[1000]-q_anal)/q_anal)*100)+'%';   
 Form1.StringGrid1.Cells[1,4]:='  '+Okr_two((abs(q[10000]-q_anal)/q_anal)*100)+'%';   
 Form1.StringGrid1.Cells[1,5]:='  '+Okr_two((abs(q[100000]-q_anal)/q_anal)*100)+'%';   
 Form1.StringGrid1.Cells[1,6]:='  '+Okr_two((abs(q[1000000]-q_anal)/q_anal)*100)+'%';

- цикл

  const  
  lambdo=14;   
  T=0.06;   
  N=1000000;   
  
var  
  Form1: TForm1;   
  U_i, V_j, Q: array[1..N] of real;   
  H: array[0..N] of integer;   
  i,j, col_H: integer;   
  q_anal, q_prog: real;

Зачем локальные данные и константы вынесены в interface ?.

[Дикий]

такая же просьба, только с куском кода!!! Если сможете.
в моей теме. рядом.

[alexBlack]

Дикий, зачем Вы задаете вопрос в чужой теме ? Создайте свою.
А еще лучше в той, которая уже есть. Вопрос ведь продолжение предыдущего про or, да ? Повторите вопрос там и опишите смысл этих операций. Наверняка это можно сделать проще.

[Дикий]

alexBlack, потому что просьба одна и та же... оптимизировать.

хотя, в чем то я и не прав. согласен

исправляю

[Droid]

Ок сенкс попробую )