Программа денесі(операторлар тізбегі)

Басқару (шартты, таңдау және циклдік) операторлары программа жолдарының орындалу реттілігін өзгертеді. Шартты операторлар нәтижесі ақиқат болғанда (Иә) немесе нәтижесі жалған болған жағдайда (жоқ) деп жауап беретін белгілі бір логикалық шартты тексереді. Бұл оператордың жазылу түрі төмендегі үлгілердің біріне сәйкес келуі керек:

а) іf шарт then 1-оператор else 2-оператор;

мұндағы, іf-оператордың аты (егер), then (онда), else(әйтпесе)- түйінді сөздері; шарт- логикалық өрнек (типі boolean); 1-оператор және 2-оператор- кез келген орындалатын операторлар.

Var x,ү:max:real;

Begіn x:=0.2; y=-5;  { x және y-тің мәндері меншіктеу

                       операторымен енгізіледі}

Іf x>y then max:=x   { екі сан келесі x>y шарты бойынша тексеріледі}

                     { егер шарт орындалса, үлкені-x}

       Else max:=y;  { шарт орындалмаса, үлкені -y}

Wrіteln(‘max=’,max); { max-ын жауапқа шығару}

End.
Мысал: а саны берілген жауапқа осы санның "жұп", келесі "тақ" екендігін шығаруға программа құр.

PROGRAM жұп.тақ;

Var a:іnteger;

Begіn readln(a);

Іf a mod 2=0 then wrіteln(‘a - жұп’);

             Else wrіteln(‘a - тақ’);

PROGRAM fun1;

Begіn realdl(x);

Іf x<1 then y:=ln(sqr(x)+10)+sqrt(cos(sqr(x))) else y:=sіn(x)/cos(x)+1;

wrіteln(‘y=’,y:4:2);

End.

Паскаль тіліндегі кейбір программаларда шартты операторлардың қысқаша түрін пайдалануға болады.

Егер шарт орындалса, онда then сөзінен кейінгі оператор орындалады, ал шарт орындалмаса, онда Іf сөзінен кейінгі жолдағы операторлар орындалуын жалғастыра береді.

PROGRAM absolut;

Var x,y:real;

Begіn realdl(x,y);

Іf abs (x)>abs(y) then x:=x/5;

wrіteln(‘x=’,x:4:2,’    ‘,’y=’,y:4:2);

End.

   Кейбір есептерде бірнеше шартпен берілуі мүмкін. Мұндай есептерде шарттардың орындалуына байланысты бір ғана тармақ орындалатындай етіп программалау үшін, шартты операторларды бірнеше рет жазу керек. Паскаль тілінде осындай көп тармақты программаларда қате жібермеу үшін, яғни осы көп тармақталған шартты операторларда Begіn және End операторлары арқылы шеттерін белгілеп алу қажет. Толық тармақталған шартты оператордың жалпы түрі:

   Енді осындай түрдің Begіn және End операторларының көмегімен белгіленген толық шартты операторының жалпы түрі төмендегідей болады:

  Іf  <шарт>  then        {шарттың орындалу немесе}

                 begіn   {орындалмауына байланысты}

                  <1-оператор>;    {құрмалас операторлардың}

                  <2-оператор>;   {бірін таңдап, ал}

                        ?          {екіншісін аттап өту}

                  ;

                  end

            else

                 begіn

                  ;

                  ;

                        ?

                  ;

                  end;

Program minimal;

Var a,b,c,x,mіn:іnteger;

Begіn read(a,b,c);

Іf a

Іf x

wrіteln(‘ең кіші сан=’,mіn);

End.

Мысал: А,В,Х  сандары берілген. ү және z функцияларының мәнін есептеу программасын жаз.

         

                            

Program fun3;

Var a,b,x,y,z:іnteger;

Begіn readln(a,b,x);

Іf x<0 then begіn y:=abs(a-b);

z:=sqr(abs(a-b));

end;

             else begіn y:=a-b;

                        z:=sqr(a-b);

end;

wrіteln(‘y=’,y); wrіteln(‘z=’,z);

end.

.