Еlse begin

S2

еnd;

Блокқа енгізілген оператор тек біреу болса, операторлық жақшаларға алу міндетті емес. If (егер) командасының орналасуы стандартты Паскальдағы сияқты: егер шарт орындалса, онда then түйінді сөзінен соң жазылған оператор, шарт орындалмаса else түйінді сөзінен соң жазылған оператор орындалады.

Мысал:

Delphi программалау тілінде тармақталған құрылымды программа жазу арқылы Y(x) функциясының мәнін табу керек:

егер x>2

Y(x) = егер x<2

егер x=2

Y(x) функциясының мәнін анықтау үшін:

1. Жаңа жоба ашу;

2. Формаға қажетті компоненттерді орнатып, қасиеттеріне мәндер меншіктеу:

3. Формада Button1 батырмасын екі рет шертіп, оның onClick оқиғасының өңдеуіш процедурасын құру

4. Құрылған процедураға қарастырып отырған мысалымыздың программасын төмендегідей етіп жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;

Begin

x:=StrToFloat(Edit1.Text);

if x>2 then y:=sin(x)-1/2*sqrt(sqr(x)+3);

Label2.Caption:='Y='+FloatToStr(Y);

if x<2 then y:=x*sin(x)-1/2*sqrt(sqr(x)+3) else begin y:=sqrt(sqr(x)+3);

Label2.Caption:='Y='+FloatToStr(Y);

end;

end;

End.

5. Жобаны сақтап, іске қосу командасын беру.

6. Программаны компиляциялау командасын беру (F9) немесе Run;

Программа компиляцияланып шыққан соң, жүйе нүктесіз форманы экранға шығарады;

7. Курсорды Edit1 өрісіне орналастырып оған х –тің нақты кез келген мәнін енгізу;

8. Форманың “ Іске қосу ” батырмасын шерту. Label2 өрісіне функция нәтижесі жазылып қойылады (15.7-сурет).

15.7-сурет. Нәтиже шығарылған Форма терезесі