Шартты программалау және тармақтаушы операторлар

Экрандағы ақпарат

Сары жазуға назар аударайық. Қалай ойлайсыңдар, компьютер оқушының өзінен 7 жас үлкен екенін қалай «біліп» тұр? ...

Осындай мәселелерді шешу үшін программалық тілде шартты операторлар қолданылады.

Шарт дегеніміз жауабы «иә» немесе «жоқ» болатын ұйғарым (сұрақ). Шарты бар операторларды құрама немесе күрделі дейді.

Толық тармақтау

БС

if <шарт> then 1-оператор else2-оператор;

 шарт сақталса жауабы «иә» болып 1-оператор атқарылады және керісінше.

мыс:

gas:=15;

 ifjas<8thenwrite(‘сенменен’,8-jas,’ кішісің’)

              elsewrite(‘сенменен’,jas-8,’ үлкенсің’);

Жоғарыдағы сұраққа назар салыңдар.

Қысқаша тармақтау

БС

if <шарт> then  оператор;

 шарт сақталса жауабы «иә» болып оператор атқарылады, сақталмаса («жоқ») компьютер келесі операторды орындауға өтеді..

мыс:

gas:=15;

 ifjas<8thenwrite(‘сенменен’,8-jas,’ кішісің’);

Квадрат теңдеуді шешу алгоритмі.

ах² + вх + с = 0

1. Не белгілі?

а, в, с – нақты сандар

2. Не істеу керек?

            Кв.теңдеудің х1, х2 түбірлерін табу керек, түбірі болмаса «түбірі жоқ» деген хабар шығару керек.

3. Қалай жасау керек?

Дискриминант   d=b²-4аc

D<0 түбірі жоқ

D=0 бір түбірі бар   x1=-b/2a

d>0 екі түбірі бар    х1=?, х2=?

,     

program kvtendeu;

var a,b,c:integer;

    x1,x2,d:real;

    label10;

begin

     write('Кв.тенд.коэф. енгіз a,b,c ');

     read(a,b,c);

     d:=sqr(b)-(4*a*c);

     if d<0 thenbegin writeln('түбірі жок ');goto 10;end;

     if d=0 then begin writeln('Бір түбірі бар: ',-b/(2*a));goto 10;end

                 else writeln('Екі түбірі бар: ',-b+sqr(d)/(2*a),' ',-b-sqr(d)/(2*a));

10: end.