Delphi заготовки

Пример  Пузырьковой  сортировки
Пузырьковая сортировка

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
     a: array of integer;
     L:integer;
     s2,s:string;
     b,k,min:integer;
begin
  l:=0;
  s:=form1.edit1.text;
  // ==================================
  // занести массив из поля Edit1.text
  for X:=1 to length(s) do
    if (s[x]=',') or (length(s)=x) then begin
    if length(s)=x then if s[x]<>',' then s2:=s2+s[x];
    l:=l+1;
    setlength(a,l);
    trystrtoint(s2,a[l-1]);
    s2:='';
    end
    else s2:=s2+s[x];
  // занести массив из поля Edit1.text и через запятую
  // ==================================
  // -----  сортировк ... Читать дальше »

Функция перерисовки звездочки

исходник на Pascal / Delphi

procedure Tform1.StarLine(xO,yO,r: integer; Canvas: TCanvas);
 var p: array [0..11] of TPoint;
a,i: integer;
begin
a := 18;
for i:=0 to 11 do begin
if (i mod 2 = 0 ) then begin

p[i].x:=xO+round((r/2)*cos(a*pi/180));
p[i].y:=yO+Round((r/2)*sin(a*pi/180));


end
else begin
p[i].x:=xO+Round(r*cos(a*pi/180));
p[i].y:=yO+Round(r*sin(a*pi/180)) ;
end;
a:=a+36;
end;

Canvas.Polyline(p);

end;

программа



http://ne ... Читать дальше »