Таңдау операторы
Таңдау операторы арқылы программадағы мүмкін болатын бірнеше оператордың біреуі таңдалады. Real және String типтерінен басқа кез-келген типті қабылдайтын айнымалы немесе өрнек таңдау параметрі болып табылады. Ол сұрыптаушы деп аталады.
Таңдау операторының құрылымы:
Case сұрыптаушы of таңдау тізімі else оператор end;
немесе
сase өрнек of
1- тұрақты: 1- оператор;
2- тұрақты: 2- оператор;
…
n- тұрақты: n- оператор
else оператор
end;
сase-жағдай, of-бойынша қызметші сөздері.
Бұл оператор былайша жұмыс істейді:
Алдымен өрнектің мәні есептеледі, сонан соң өрнектің мәніне тең тұрақты ізделінеді. Сәйкесінше сол тұрақтыдан кейін жазылған оператор орындалады да, таңдау операторының жұмысы аяқталады. Егер тізімде есептелген мәнге тең тұрақты табылмаса, басқару else сөзінен кейін тұрған операторға беріледі.
Мысал13. Апта күндерінің нөміріне байланысты оның атауын экранға шығаратын программа.
Program m1;
var n: byte;
begin
write (1-ден 7-ге дейінгі санды енгіз);
read (n);
сase n of
1: Writeln (Дүйсенбі);
2: Writeln (Сейсенбі);
3: Writeln (Сәрсенбі);
4: Writeln (Бейсенбі);
5: Writeln (Жұма);
6: Writeln (Сенбі);
7: Writeln (Жексенбі)
else writeln (Дұрыс емес)
end; таңдау операторының соңы
end. программаның соңы
Мысал 14. Y немесе y символы енгізілсе экранға «иә» сөзі,
N немесе n символы енгізілсе «жоқ» сөзі шығатын программа.
var c: char;
begin
readln (с);
сase с of
`n`, `N`: writeln (`жоқ );
`y`, `Y`: writeln (`иә);
end
end.
Мысал15. Енгізілген ай нөміріне байланысты (1-ден 12-ге дейінгі бүтін сан) жыл мезгілін экранға шығаратын программа.
var k: byte;
begin
write (`Ай нөмірін енгіз:1-12); read (к);
сase к of
1..2,12:Writeln (Қыс);
3..5: Writeln (Көктем);
6..8: Writeln (Жаз);
9..11: Writeln (Күз);
else Writeln (қате);
end
end.
Мысал16. Берілген 0 мен 12 арасындағы натурал санға сәйкес шығыс күнтізбесіне сәйкес жыл атауын шығаратын программа:
Program m1;
var n: byte;
begin
write (Жыл нөмірін енгіз); read (n);
сase n of
0: Writeln ( Мешін жылы);
1: Writeln ( Тауық жылы);
2: Writeln (Ит жылы );
3: Writeln (Доңыз жылы);
4: Writeln (Тышқан жылы);
5: Writeln (Сиыр жылы);
6: Writeln (Барыс жылы);
7: Writeln (Қоян жылы);
8: Writeln ( Айдаһар жылы);
9: Writeln (Жылан жылы);
10: Writeln (Жылқы жылы);
11: Writeln (Қой жылы);
else writeln (Дұрыс емес)
end; {таңдау операторының соңы}
end. {программаның соңы}
Достарыңызбен бөлісу: |