Kasb ta’limi fakultеti

2.15.-rasm.

2. 6. - listing

unit pi_; interface uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm) Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

pi:real; // PI sonining hisoblangan qiymati t:real; // hisoblashdagi aniqlik

n:integer; // qator xadining raqami elem:real; // qator xadining qiymati

begin

pi:=0;

n:=1;
t:=StrToFloat(edit1.text);

elem:=1; // takrorlanishni boshlash uchun

while elem >= t do begin

elem:=1/(2*n-1);

if n MOD 2 = 0

then pi:=pi-elem

else pi:=pi+elem; n:=n+1;

end;

pi:=pi*4;

label1.caption:= 'PI '+ FloatToStr(pi) + ' ga teng'+ #13

+ 'Qator xadlarining soni '+IntTostr(n);

end; end.

Repeat buyrug’i

Repeat buyrug’i huddi While buyrug’i kabi ishlaydi. Ya’ni takrorlanishlar soni oldindan belgilanmaydi, aksincha dastur ishi davomida aniqlanadi.

Repeat buyrug’ining umumiy ko’rinishi quyidagicha:

repeat

// Buyruqlar

until Shart

bu erda shart - mantiqiy tipdagi ifoda bo’lib, takrorlanishning tugash shartini aniqlaydi.

Repeat buyrug’i quyidagicha ishlaydi:

1. 
   Dastlab repeat va until orasidagi buyruqlar bajariladi.
   
2. 
   Keyin shartning qiymati aniqlanadi. Agar shart yolg’on bo’lsa (False), u holda takrorlanishning tanasi yana bir marta bajariladi.
   
3. 
   Agar shart rost bo’lsa (True), u holda takrorlanish yakunlanadi.
   

Sunday qilib, repeat va until orasida joylashgan buyruqlar, shart rost qiymat qabul qilguncha bajarilaveradi.

Repeat buyrug’iga mos keluvchi algoritm 2.16-rasmda keltirilgan.