Тапсырма №4

Real — типті сандардың іштей бейнеленуі 1019 -не жуық мү мкін болатын разрядтар комбинациясын беруі мү мкін, оғ ан 8 байт орын бө лінеді. Ә рине, бұ л ө те ү лкен сан, бірақ ол шексіз нақ ты сандар жиынтығ ымен салыстырылмайды.

Шексіз ү здіксіз нақ ты сандар жиынтығ ының аппроксимациясы ішкі машиналық бейнелеунудің соң ғ ы жиынтығ ы, ол машиналық эпсилонның пайда болуына ә келеді.

Жаң а қ осымша ү шін bbrunClick оқ иғ а ө ң деушісін қ ұ райық. Ол ү шін File/ New/ Application командаларын орындаймыз.

Procedure TfmExample.BbrunClick(Sender: TObject);

Var

Epsilon: Real;

begin

While 1+epsilon/2> 1 do

Epsilon: = Epsilon/2;

LbOutput.Caption: ='машиналық эпсилон'= + FloatToStr(Epsilon)

end;

Программағ а тү сініктеме

Нақ ты сандар ү шін бө лу операциясын пайдалануғ а болады (бө лшек бө лігін қ алдырмай-ақ). Осы амалды қ олдағ аннан кейін нә тиже барлық уақ ытта нақ ты тип болады, сондық тан тө мендегідей программа фрагменті қ ате болып есептеледі:

var

X: integer;

Begin

X: =4/2; // қ ате! Нақ ты нә тижені бү тін айнымалығ а меншіктеуге болмайды

End;

FloatToStr стандартты функциясы нақ ты сандар жолдар символына тү рлендіреді.

«Дейін» қ айталау командасы

Repeat...Until операторы

«Дейін» қ айталану командасының жазылу форматы:

Repeat

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

Until < шарт>;

Мұ ндағ ы Repeat, until қ ызметші сө здер (қ айтала [соғ ан дейін], ә зір [шарт орындалғ анша]); < цикл денесі> - Object Pascal кез келген операторлар тізбегі; < шарт> логикалық ө рнек.

< цикл денесі> операторлар кем дегенде бір рет орындалады, егер < шарт> жалғ ан болса, яғ ни логикалық ө рнек мә ні False болса, онда Repeat, until операторы жұ мысын тоқ татып, басқ аруды келесі операторғ а береді, кері жағ дайда шарт орындалудан қ алғ анша < цикл денесі> қ айталана береді.

< Repeat- until> begin... end операторлық жақ шасына ұ қ сас, сондық тан until сө зінің алдына нү ктелі ү тір (;) қ ою міндет емес.

Циклдан дұ рыс шығ уды ұ йымдастыру ү шін цикл шарты цикл денесін қ ұ райтын операторлардың ішінде ө згеріп отыруы тиіс. Тө мендегі цикл «табиғ и» жолмен ешқ ашан аяқ талмайды.

While < true> do

Begin

...

end;

жә не

repeat

...

until < false>

for, while, repeat циклдық операторларын басқ аруды жең ілдету ү шін Object Pascal тілінің қ ұ рамына параметрсіз екі процедура енгізілген:

Break- циклдан тікелей шығ уды жү зеге асырады; процедураның қ ызметін басқ аруды циклдық оператордан кейінгі операторғ а беру болып табылады.

Continue- циклдың кезекті қ айталануын алдын ала аяқ тауды қ амтамасыз етеді; басқ аруды цикл операторының соң ына берумен бара-бар.

Бұ л процедуралар шартсыз кө шіру GoTo операторын пайдалану қ ажеттілігінен босатады.