Саба?ты? та?ырыбы: Тарма?талу операторы.Шартты к?шу операторлары
ТаKырыбы: ТармаKталу ж
·не таSдау операторы.
Д
·ріс мазмaны:
Тарматалу командасыны@ ыса ж не толы тVріні@ жазылуы.
?рама шарттар, рама операторлар.
Та@дау операторыны@ жалпы тVрі.
Шартты оператор Kандай да бір шартты тексеріп, оныS н
·тижесіне байланысты белгілі бір
·рекетті орындауды ж_зеге асырады.
ОныS жазылу _лгісі:
IF шарт THEN 1-оператор ELSE 2-оператор;
IF шарт THEN оператор;
1-жаCдай шартты оператордыS жазылуыныS толы т_рі, 2-жаCдай ыса т_рі деп аталады.
Мысал 1. Берілген _ш санныS _лкенін табыSдар.
Program max3;
Var a,b,c,max1, max: integer;
begin
Write (3 санды енгіз’); read (a,b,c);
if a>b then max1:=a else max1:=b;
if c>max1 then max:=c else max:=max1; Writeln (3 санныS _лкені=’, max);
end.
Егер then, else Kызметші с™здерінен кейін бір емес, бірнеше оператор жазылса, олар рама оператор деп аталады ж
·не begin, end операторлыK жаKшаCа алынады.
Егер шарттыS саны біреуден артыK болса, онда ол рама шарт деп аталады. Jaрама шарттар арасына and (ж
·не), or (немесе), not (емес) Kызметші с™здері жазылады ж
·не ж
·й шарттар жаKшаCа ( ) алынып жазылады.
0
·5 шарты Паскальда былайша жазылады: (х
·0) and (х
·
·5)
Мысал 2. Екі б_тін санныS _лкені мен кішісін табыSдар.
Var a,b, max, min: integer;
begin
read (a,b);
if a>b then begin max:=a; min:=b end else begin max:=b; min:=a end;
Writeln (max=’, max, min=’, min)
end.
Мысал 3. ЖазыKтыKта берілген н_кте центрі (2,3) н_ктесіндегі, ішкі радиусы 1-ге, сыртKы радиусы 2-ке теS саKинаCа тиісті бола ма?
Program m3;
const r1
·1; r2
·2;
var x,y:real;
begin
Write ('н_кте координаларын енгіз); read(х, у);
if (sqr(х-2)+sqr(у-3)
·
· sqr(r1)) and (sqr(х-2)+sqr(у-3)
·
· sqr(r2)) then Writeln (н_кте саKинаCа тиісті) else writeln (тиісті емес)
end.
ТаSдау операторы арKылы программадаCы м_мкін болатын бірнеше оператордыS біреуі таSдалады. Та@дау параметрі Real ж
·не String типтерінен басKа кез-келген типті Kабылдайды.
ТаSдау операторыныS Kaрылымы:
сase рнек of
1- траты: 1- оператор;
2- траты: 2- оператор;
n- траты: n- оператор
else оператор
end;