Дістемелік кешені
жүктеу/скачать 1,39 Mb.
|
| Лабораториялық жұмыс №9
Бір өлшемді массивтерді өңдеу программалары. ComboBox компоненті. Тапсырма А(10) массивінде максимумды және минимумді элементтерін, олардың орын ауыстыруын табу. ComboBox компонентін ListBox компоненті арқылы тапсырманы орындау.
Төменде программа коды көрсетілген: unitCBox; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type 59 TForm1 = class(TForm) Button1: TButton; Button2: TButton; ComboBox1: TComboBox; ComboBox2: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ComboBox1KeyDown(Sender: TObject;var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end;
Form1: TForm1; a:array[1..10]of integer; i, min,max,imax,imin:integer;
procedure TForm1.Button1Click(Sender: TObject); begin ComboBox1.Items.Add(ComboBox1.Text); i:=i+1;
a[i]:=StrToInt(ComboBox1.Text); ComboBox1.SetFocus; end;
i:=0;
ComboBox1.Clear; ComboBox2.Clear; ComboBox1.TabOrder := 0; end; procedure TForm1.Button2Click(Sender: TObject); var k:integer; begin
max := a[1]; imax := 1; min := a[1]; imin := 1; for k := 2 to 10 do begin if max< a[k] then begin max:= a[k]; 60 imax:= k end; if min> a[k] then begin min:= a[k]; imin:= k end; end; a[imax]:= min; a[imin]:= max; for k:= 1 to 10 do ComboBox2.Items.Add(IntToStr(a[k])); ComboBox2.DroppedDown:= true; end; procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin
if key = 13 then Button1.SetFocus end; end.
жүктеу/скачать 1,39 Mb. Достарыңызбен бөлісу:
| ||||||||||||||||||||||||||||||||||||||||