Программа құруға ең қажетті Windows-ке арналған стандартты интерфейстік элементтерден тұратын компоненттер палитрасы орналасқан

жүктеу/скачать 0,58 Mb.

бет	9/11
Дата	13.05.2020
өлшемі	0,58 Mb.
	#67603
түрі	Программа

1 2 3 4 5 6 7 8 9 10 11

Байланысты:
C Builder
Сандық адис 15 апта Булбул, Документ Microsoft Office Word

Әзір циклі

2.4 ҚАЙТАЛАНУ КОМАНДАСЫ

Object Pascal тілінде қайталанатын программа фрагментін 3 оператордың көмегімен жүзеге асыруға болады.

1. Параметрлі цикл. Оның құрылымы:

For <қайталау параметрі>:=<бастапқы мән> To <соңғы мән> Do

<оператор>;

2. Әзір циклі. Оның құрылымы:

While <шарт> do

<оператор>;

3. Дейін циклі. Оның құрылымы:

Repeat

<цикл денесі>

Until <шарт>;

Мысал14. 1-ден 25-ке дейінгі берілген натурал санның факториалын табыңдар. (32- сурет)

Сурет 32. Факториал табу жобасы

Шешуі:

var k,i,p:integer;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

k:=strtoint(edit1.Text);

for i:=1 to k do

p:=p*i;

edit2.Text:=inttostr(p);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

p:=1;

end; end.

Мысал15. Кездейсоқ берілген екі натурал санның ең үлкен ортақ бөлгішін (ЕҮОБ) және ең кіші ортақ еселігін (ЕКОЕ) табатын қосымша жасаңдар. (33- сурет)

Сурет 33. Екі санның ЕҮОБ және ЕКОЕ табу жобасы

Шешуі:

var k,m,n:integer;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

randomize;

Edit1.Text:=inttostr(random(50));

Edit2.Text:=inttostr(random(50));

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

k:=strtoint(edit1.Text);

m:=strtoint(edit2.Text);

n:=k*m;

while k<>m do

if k>m then k:=k-m else m:=m-k;

edit3.Text:=inttostr(k);

edit4.Text:=inttostr(trunc(n/k));

end; end.

Мысал16. Берілген аралықта , берілген n үшін h=1 қадаммен y=x^n функциясының мәндерін есептеңдер. х және у- тің мәндерін 2 Listbox компонентіне екі баған түрінде шығарыңдар. (34- сурет)

Сурет 34. Жоба интерфейсі

Қосымша коды:

var n,a,b,x,y:integer;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

n:=strtoint(edit1.text);

a:=strtoint(edit2.text);

b:=strtoint(edit3.text);

for x:=a to b do begin

y:=trunc(exp(n*ln(x)));

listbox1.Items.add(inttostr(x));

listbox2.Items.add(inttostr(y));

end;

end;

end.

жүктеу/скачать 0,58 Mb.

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

1 2 3 4 5 6 7 8 9 10 11