Дістемелік кешені

жүктеу/скачать 1,39 Mb.

бет	39/43
Дата	07.01.2022
өлшемі	1,39 Mb.
	#17102
түрі	Программа

1 ... 35 36 37 38 39 40 41 42 43

Байланысты:
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)

Лабораториялық жұмыс №9

Бір өлшемді массивтерді өңдеу программалары. ComboBox компоненті. Тапсырма
А(10) массивінде максимумды және минимумді элементтерін, олардың орын ауыстыруын табу.

ComboBox компонентін ListBox компоненті арқылы тапсырманы орындау.

Шешімі
1.	Standard бетінен	Form1	формаға	келесі компонентерді
орналастырамыз. Олар:Button 1, Button 2, Combo Box1 және Combo Box2
2.	DropDownCount қасиетіне Combo Box1 және				Combo Box2 үшін тең
етіп 10 қоямыз.

Төменде программа коды көрсетілген: 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;
var

Form1: TForm1; a:array[1..10]of integer;

i, min,max,imax,imin:integer;
implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); begin

ComboBox1.Items.Add(ComboBox1.Text);

i:=i+1;

a[i]:=StrToInt(ComboBox1.Text);

ComboBox1.SetFocus;

end;
procedure TForm1.FormCreate(Sender: TObject); begin

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];

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.

Достарыңызбен бөлісу:

1 ... 35 36 37 38 39 40 41 42 43