Texnologiyalari

I : = l ;
Repeat Summ:=Summ+(l/I);


1 = 1+ 1;
Until I>N;
Label2.Caption:='Summa= ’+FloatToStr(Summ); end.
While takrorlash (sikl) operatori. Ahamiyat bergan bo‘lsangiz, repeat operatorida siklning tana qismi kamida bir marta hisoblanadi. Lekin ayrim paytlarda shu bir marta hisoblash ham yechilayotgan masalaning mohiyatini buzib yuborishi mumkin. Bunday hollarda quyidagi shaklga yoziluvchi while sikl operatoridan foydalanish maqsadga muvofiqdir:
while В do S;
bu yerda while (hozir), do (bajarmoq) — xizmatchi so‘zlar; В — sikldan chiqishni ifodalovchi mantiqiy ifoda;
S — siklning tanasini tashkil etuvchi operator.
V Bu operatorda awal V sharti tekshiriladi, agar u false (yolg‘on) qiymatli natijaga erishsagina sikl o‘z ishini tugatadi, aks holda siklning tana qismi qayta-qayta hisoblanaveradi.
While operatoriga misol sifatida yana yuqorida berilgan yig‘indini hisoblashni ko‘rib chiqaylik. Bu yerda ham shakl o‘zgarmaydi, lekin TForml.Button 1Click protsedurasiga o'zgartirish kiritiladi.
procedure TForml.ButtonlClick(Sender: TObject); Var
S: String; i,n: Integer; Sumnr.Real;
begin
S:=InputBox('Kiritish darchasi’/N ni kiriting',"); N:=StrToInt(S);
Summ:=0;
1 = 1;
While I<=N do Begin
Summ:=Summ+( 1/N);
I:=I+1;
End;
Label2.Caption:=' Summa= '+ FloatToStr(Summ); end.
Variant tanlash operatori. Ayrim algoritmlarning hisoblash jara­ yonlari ko‘p tarmoqliligi bilan ajralib turadi. Umuman olganda, tarmoqli jarayonlarni hisoblash uchun shartli operatordan foydala-


nish yetarli. Lekin tarmoqlar soni ko‘p bo'lsa, shartli operatordan foydalanish algoritmning ko'rinishini qo'pollashtirib yuboradi. Bun­ day hollarda shartli operatorning umumlashmasi boMgan variant tan­ lash operatoridan foydalanish maqsadga muvofiqdir.
Variant tanlash operatorini sintaktik aniqlanmasi quyidagicha:
:= case