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



бет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];


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   ...   35   36   37   38   39   40   41   42   43




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет