stify"> · Супровід програмного продукту - це безпосередньо здача викладачеві проекту і внесення змін, з урахуванням додаткових побажань викладача.
На етапі супроводу основна увага приділяється внесенню змін в програмний продукт. Ці зміни можуть бути пов'язані з усуненням помилок, додатковими побажаннями замовника, що з'явилися в результаті роботи з програмним продуктом.
.3 Текст програми з коментарями
unit Unit1;
interface
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, XPMan, Menus, ComCtrls;
=Array [0..25] of Integer;=Array [0..25] of Byte;=class (TForm): TImage ;: TButton ;: TLabel;
Button2: TButton ;: TXPManifest ;: TButton;
MainMenu1: TMainMenu ;: TMenuItem ;: TTrackBar;
Label2: TLabel ;: TLabel ;: TLabel;
Label5: TLabel ;: TRadioGroup ;: TRadioGroup ;: TLabel ;: TLabel; Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject); Pause (const Dela: Integer); Ris (); Clearing (); Zero (); Sort11 ();// Бульбашкова спаданням
procedure Sort12 ();// Бульбашкова за зростанням
procedure N1Click (Sender: TObject); TrackBar1Change (Sender: TObject); Sort21 (var A: TArray; min, max: Integer);// Процедура швидкого сортування спаданням
procedure Sort22 (var A: TArray; min, max: Integer);// Процедура швидкого сортування за зростанням
procedure Sort31 (var a: TArray);// Шелла по убиваніюSort32 (var a: TArray);// Шелла по возрастаніюSort41 (Var ar: TArray; n: Integer);// Вибір спаданням
procedure Sort42 (Var ar: TArray; n: Integer);// Вибір за зростанням
private
{Private declarations}, my: TArray ;, gg, bb: TAColor;
{Public declarations}
end; n=25 ;: TForm1 ;, t2: TDateTime ;, sh, x1, x2, y1, y2, i, x, h: integer;
BitM: TImage ;, Sbuf: TBitMap ;: Byte;
{$ R * .dfm}
TForm1. Sort21 (var A: TArray; min, max: Integer);// Процедура швидкого сортування за зростанням
var i, j, supp, tmp: Integer;
begin:=Now;:=A [max - ((max-min) div 2)];
i:=min; j:=max; i lt; j do
beginA [i] lt; supp do i:=i + 1; A [j] gt; supp do j:=j - 1; i lt;=j then:=A [i]; A [i]:=A [j]; A [j]:=tmp;
:=rr [i]; [i]:=rr [j]; [j]:=buf;
buf:=gg [i]; [i]:=gg [j]; [j]:=buf;:=bb [i];
bb [i]:=bb [j]; [j]:=buf;
i:=i + 1; j:=j - 1 ;; Ris ;;
end; min lt; j then Sort21 (A, min, j); i lt; max then Sort21 (A, i, max);:=Now ;. Caption:=FloatToStrF ((t2-t1) * 1000, ffFixed, 1,10) ;;
TForm1. Sort22 (var A: TArray; min, max: Integer);// Процедура швидкого сортування за зростанням
var i, j, supp, tmp: Integer;
begin:=Now;:=A [max - ((max-min) div 2)];
i:=min; j:=max; i lt; j do
beginA [i] gt; supp do i:=i + 1; A [j] lt; supp do j:=j - 1; i lt;=j then:=A [i]; A [i]:=A [j]; A [j]:=tmp;
:=rr [i]; [i]:=rr [j]; [j]:=buf;
buf:=gg [i]; [i]:=gg [j]; [j]:=buf;:=bb [i];
bb [i]:=bb [j]; [j]:=buf;
i:=i + 1; j:=j - 1 ;; Ris ;;
end; min lt; i then Sort22 (A, min, j); i lt; max then Sort22 (A, i, max);:=Now ;. Caption:=FloatToStrF ((t2-t1) * 1000, ffFixed, 1,10) ;;
TForm1. Sort31 (var a: TArray);// Процедура Шелла убуванням
Var d, i, t: integer ;: boolean; {пpизнак пеpестановкі}:=Now;
d:=N div 2; {початкове значення інтервалу}
d gt; 0 do begin {цикл з yменьшеніем інтервалу до 1}
{пyзиpьковая сортуванні з інтеpвалом d}:=true; k do begin {цикл, поки є пеpестановкі}
k:=false; i:=1; i:=1 to N-d do begin
{сpавнения ел-тів на інтеpвале d}
if a [i] gt; a [i + d] then begin:=a [i]; a [i]:=a [i + d]; a [i + d]:=t; {пеpестановка}
:=rr [i]; [i]:=rr [i + d];
rr [i + d]:=buf;:=gg [i]; [i]:=gg [i + d]; [i + d]:=buf;:=bb [ i]; [i]:=bb [i + d]; [i + d]:=buf;
:=true; {пpизнак пеpестановкі}
...
