Mavzu: 1 ­­– dars. Masalalarni kompyuterda yechish bosqichlari Darsning maqsadi

1 – misol. Quyidagi funksiyaning qiymatini hisoblash dasturini tuzing.


Yechish.

Begin

Write(‘x= ‘); ReadLn(x);

If (x>0) And (x<=1) Then y:=Sqr(x) Else y:=x;

WriteLn(‘y= ‘,y):

End.

Bu yerda x>0 va x<=1 shartlarning har ikkalasi ham bajarilganda, ya’ni x ning qiymati (0,1] oraliqqa tegishli bo‘lsa, y:=Sqr(x) operatori, aks holda, ya’ni x ning qiymati (0,1] oraliqqa tegishli bo‘lmaganda, y:=x operatori bajariladi.

Endi tarmoqlanishga oid misollar ko‘ramiz:

1) If (A>B) And (B>C) Then S:=B+7 ELSE S:=A*B-1;

Agar A>B va B>C bo‘lsa, u holda S:=B+7 operator bajariladi, aks holda S:=A*B-1 operatori bajariladi.

2) If 5*S=M*M Then Goto 200 ELSE Goto 400;

Agar 5*S=M*M bo‘lsa, u holda boshqaruv “200” nishonli operatorga, aks holda “400” nishonli operatorga o‘tadi.

3) If R1<=R2 Then begin WriteLn(S); R:=R1+R2 end

Else begin WriteLn(S*R1); R1:=R2; R2:=0; end;

Agar R1<=R2 bo‘lsa, u holda WriteLn(S) va R:=R1+R2 operatorlari bajariladi, aks holda WriteLn(S*R1), R1:=R2 va R2:=0 operatorlari bajariladi.

4) If SR =‘YASHIL‘ Then WriteLn(‘O‘tish mumkin‘) Else WriteLn(‘O‘tish mumkin emas‘)

Agar SR (svetofor rangi) ning qiymati “YASHIL” bo‘lsa WriteLn(‘O‘tish mumkin’) operatori, aks holda WriteLn(‘O‘tish mumkin emas’) operatori bajariladi.

Ko‘rinib turibdiki, agar berilgan shart o‘rinli bo‘lsa, u holda THEN xizmatchi so‘zidan keyin yozilgan ko‘rsatmalar bajariladi, aks holda ELSE xizmatchi so‘zidan keyin yozilgan ko‘rsatmalar bajariladi. Bu yerda uchinchi holat bo‘lmasligini puxta tushunib olish lozim.

4.