Өзбекстан республикасы жоқары ҳӘм орта арнаўлы билимлендириў министрлиги


Procedure TfmExample.BbRunClick (Sender: Tobject )


Download 1.38 Mb.
bet15/24
Sana01.03.2023
Hajmi1.38 Mb.
#1239711
1   ...   11   12   13   14   15   16   17   18   ...   24
Bog'liq
Д И С С Е Р Т А Ц И Я Шхиев

Procedure TfmExample.BbRunClick (Sender: Tobject );
Var i,N,Sum: integer;
Begin
If edInput.Text = ‘ ‘ then Exit;
N:= StrToInt(edInput.text);
edInput.Text :=’ ‘;
edInput.SetFocus;
Sum:=0;
For i:=1 to N do
Sum:= Sum +i;
MmOutput.Lines.Add(‘Сумма всех целых чисел’; ‘в диапазоне 1..’+IntToStr(Sum));
LbOutput.Caption := IntToStr(Sum);
End;
Цикл операторының екинши түри

While <шәрт > do < оператор >;
Бул жерде While,do хызмет сөзлери. Егер шәрт мәниси “рас” болса онда оператор орынланады, жалған болса цикл тоқтайды.Мысал келтиремиз. Epsilon оқыў программасы.
Procedure TfmExample.BbRunClick (Sender: Tobject );
Var Epsilon : real;
Begin
Epsilon := 1;
While 1+Epsilon/2 > 1 do
Epsilon := Epsilon/2;
LbOutput.Caption := ‘Машина эпсилоны = ‘+FloatToStr(Epsilon);
MmOutput.Lines.Add(‘Машина эпсилоны = ‘+FloatToStr(Epsilon)
End;
Цикл операторының үшинши түри. Бул цикл операторында цикл бир мәрте ҳәмме ўақытта орынланады ҳәм оның көриниси төмендегише
Repeat < цикл денеси > until < шәрт >;

ДЕЛЬФИ ТИЛИНДЕ МАССИВЛЕР МЕНЕН ЖУМЫС ИСЛЕЎ


Дельфи тилинде дара объектлер- санлар, символлар, жоллар ҳ.т.б. менен биргеликте бир түрдеги элементлерден турыўшы көпликлер де қаралады. Оларға массивлер деп аталыўшы бир типтеги объектлердиң формал бирлеспесин жатқарсақ болады. Мәселен , жыл даўамында ҳаўаның температурасын көп мәрте өлшеў нәтийжесинде алынған ҳақыйқый санлар көплигин массив деп алсақ болады. Массив төмендегише тәрийпленеди
<тип аты > = array [ <индек.типлер дизими> ] of <тип>;
Бул жерде < тип аты > - идентификатор; array, of – хызмет сөзлери {массив, из); <.индекслик.типлер дизими > - үтир менен ажыратылған бир ямаса бирнеше индекслик типлер дизими ; <тип> - Object Pascal дың қәлеген типтеги өзгериўшилери.
Массивлерди тәрийплеўде ондағы элементлердиң улыўма санын ҳәм типлерин көрсетиў керек болады. Мысал ушын:

Download 1.38 Mb.

Do'stlaringiz bilan baham:
1   ...   11   12   13   14   15   16   17   18   ...   24




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling