End
Else
Begin
<1-оператор>;
<2-оператор>;
........................
<п-оператор>;
End.
Есептің күрделенуіне байланысты IF операторы құрамына екінші бір IF операторын кірістіруге болады. Шартты көшу операторын мұндай түрде пайдаланудың төмендегідей нұсқалары бар.
1 - нұсқасы.
If <1-шарт> Then
If <2-шарт> Then <1-оператор> Else <2-оператор>
Else <3-оператор>;
2 - нұсқасы.
If <1-шарт> Then <1-оператор> Else If <2-шарт> Then <2-оператор> Else <3-оператор>;
3 - нұсқасы.
If <1-шарт> Then If <2-шарт> Then <1-оператор>
Else <2-оператор>;
If операторының жоғарыдағы жазылу нұсқаларын программада қолданғанда 1-шарт және 2-шартты жазуда белгілі бір реттілік болуы керек. Яғни, мәні ақиқат (true) болатын шарт бірінші тексеріліп, жалған (false) мәнге жақын шарт екінші жазылғаны программаның жылдам орындалуын қамтамасыз етеді.
if операторының кірістіріліп жазылуының 2-нұсқасы бойынша мысал келтірілген.
Мұнда берілген үш санның көбейтіндісін және қосындысын есептеп қайсысы үлкен екендігін табу керек. Яғни, x,y,z нақты сандар берілген. Max (x*y*z, x+y+z) eceптey.
Program esep4;
Uses crt;
Var x, y, z, S, P: double;
Begin
Clrscr;
Writeln ('x, y, z - енгіз');
Readln (x, y, z); S: = x+y+z;
P: = x*y*z;
If S>P then write ('қосынды үлкен', S>', P)
else
If S
('көбейтінді үлкен', S>', P)
else write ('көбейтінді үлкен', S, '>', P) Readln;
End.
Таңдау операторы
Берілген өрнектің мәніне тәуелді бір немесе бірнеше оператор
орындалған жағдайда таңдау операторы пайдаланылады.
Жазылу түрі:
таңдау CASE өрнек OF CASE - жағдай
жағдай 1-шарт: 1- серия 1-тұрақты: 1-оператор; OF-солар
жағдай 2-шарт: 2- серия 2-тұрақты: 2-оператор; төмендегілер.
…………………………
жағдай n-шарт: n-серия n-тұрақты: n- оператор
бітті END
Таңдау операторы өрнектің мәні берілген тұрақтының қайсысына тең болса, бақару таңдау операторының соңындағы операторға беріленді. Өрнектің мәні және тұрақтылар әрқашанда бүтін сан, тұрақты типі мен өрнек типі бірдеі боу керек.
CASE D+5 OF
15: y: = sqr (x)
Тармақталу алгоритмдерін программалау.
Достарыңызбен бөлісу: |