Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm1 = class(TForm)
- Edit1: TEdit;
- Edit2: TEdit;
- Edit3: TEdit;
- Edit4: TEdit;
- Edit5: TEdit;
- Edit6: TEdit;
- Edit7: TEdit;
- Edit8: TEdit;
- Edit9: TEdit;
- Edit10: TEdit;
- Button1: TButton;
- Button3: TButton;
- Button2: TButton;
- Label1: TLabel;
- procedure Button1Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- A: array[1..10] of Integer;
- i, j, id_min, nk, temp, temp_id, buf: integer;
- min: integer;
- implementation
- {$R *.dfm}
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- A[1]:= StrToInt(Edit1.Text);
- A[2]:= StrToInt(Edit2.Text);
- A[3]:= StrToInt(Edit3.Text);
- A[4]:= StrToInt(Edit4.Text);
- A[5]:= StrToInt(Edit5.Text);
- A[6]:= StrToInt(Edit6.Text);
- A[7]:= StrToInt(Edit7.Text);
- A[8]:= StrToInt(Edit8.Text);
- A[9]:= StrToInt(Edit9.Text);
- A[10]:= StrToInt(Edit10.Text);
- end;
- procedure TForm1.Button3Click(Sender: TObject);
- begin
- nk:=nk+1;
- temp:=A[nk] ;
- temp_id:= nk;
- min:=A[1] ;
- for i:=nk to 9 do
- begin
- min:= A[i];
- id_min:=i;
- for j:=(i+1) to 10 do
- begin
- if A[j] < min then
- begin
- min:= A[j];
- id_min := j;
- end;
- end;
- A[id_min]:= A[i];
- A[i] := min;
- end;
- {min := A[1];
- for i := 1 to 9 do
- begin
- min := A[i];
- id_min := i;
- for j := (i + 1) to 10 do
- begin
- if A[j] < min then
- begin
- min := A[j];
- id_min := j;
- end;
- end;
- A[id_min] := A[i];
- A[i] := min;
- end; }
- case temp_id of
- 1: temp:=StrToint(Edit1.Text);
- 2: temp:=StrToint(Edit2.Text) ;
- 3: temp:=StrToint(Edit3.Text) ;
- 4: temp:=StrToint(Edit4.Text) ;
- 5: temp:=StrToint(Edit5.Text) ;
- 6: temp:=StrToint(Edit6.Text) ;
- 7: temp:=StrToint(Edit7.Text) ;
- 8: temp:=StrToint(Edit8.Text) ;
- 9: temp:=StrToint(Edit9.Text) ;
- 10: temp:=StrToint(Edit10.Text) ;
- end;
- case id_min of
- 2: begin Edit2.Text:= IntToStr(temp); end;
- 3: begin Edit3.Text:= IntToStr(temp); end;
- 4: begin Edit4.Text:= IntToStr(temp); end;
- 5: begin Edit5.Text:= IntToStr(temp); end;
- 6: begin Edit6.Text:= IntToStr(temp); end;
- 7: begin Edit7.Text:= IntToStr(temp); end;
- 8: begin Edit8.Text:= IntToStr(temp); end;
- 9: begin Edit9.Text:= IntToStr(temp); end;
- 10: begin Edit1.Text:= IntToStr(temp); end;
- end;
- case nk of
- 1:begin Edit1.Text:=Inttostr(A[1]); Edit1.Font.Color:=clGreen end;
- 2:begin Edit2.Text:=Inttostr(A[2]); Edit2.Font.Color:=clGreen end;
- 3:begin Edit3.Text:=Inttostr(A[3]); Edit3.Font.Color:=clGreen end;
- 4:begin Edit4.Text:=Inttostr(A[4]); Edit4.Font.Color:=clGreen end;
- 5:begin Edit5.Text:=Inttostr(A[5]); Edit5.Font.Color:=clGreen end;
- 6:begin Edit6.Text:=Inttostr(A[6]); Edit6.Font.Color:=clGreen end;
- 7: begin Edit7.Text:=Inttostr(A[7]); Edit7.Font.Color:=clGreen end;
- 8:begin Edit8.Text:=Inttostr(A[8]); Edit8.Font.Color:=clGreen end;
- 9: begin Edit9.Text:=Inttostr(A[9]); Edit9.Font.Color:=clGreen; end;
- 10:begin Edit10.Text:=Inttostr(A[10]); Edit10.Font.Color:=clGreen end;
- else begin Edit1.ReadOnly :=True ;
- Edit2.ReadOnly :=True ;
- Edit3.ReadOnly :=True ;
- Edit4.ReadOnly :=True ;
- Edit5.ReadOnly :=True ;
- Edit6.ReadOnly :=True ;
- Edit7.ReadOnly :=True ;
- Edit8.ReadOnly :=True ;
- Edit9.ReadOnly :=True ;
- Edit10.ReadOnly :=True ;
- end;
- end;
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- nk:=0;
- Edit1.ReadOnly :=False ;
- Edit1.Text:='';
- Edit1.Font.Color:=clRed ;
- Edit2.ReadOnly :=False ;
- Edit2.Font.Color:=clRed ;
- Edit2.Text:='';
- Edit3.Font.Color:=clRed ;
- Edit3.ReadOnly :=False ;
- Edit4.Font.Color:=clRed ;
- Edit3.Text:='';
- Edit4.ReadOnly :=False ;
- Edit4.Text:='';
- Edit5.Font.Color:=clRed ;
- Edit5.ReadOnly :=False ;
- Edit5.Text:='';
- Edit6.Font.Color:=clRed ;
- Edit6.ReadOnly :=False ;
- Edit6.Text:='';
- Edit7.Font.Color:=clRed ;
- Edit7.ReadOnly :=False ;
- Edit7.Text:='';
- Edit8.Font.Color:=clRed ;
- Edit9.Font.Color:=clRed ;
- Edit8.ReadOnly :=False ;
- Edit10.Font.Color:=clRed ;
- Edit8.Text:='';
- Edit9.ReadOnly :=False ;
- Edit9.Text:='';
- Edit10.ReadOnly :=False ;
- Edit10.Text:='';
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement