_________________________________________________________________________
Оператор case.
Рассмотренный выше оператор IF позволяет осуществить выбор одной из двух
альтернатив. Но что если нужно иметь большее число вариантов? Например, если
требуется, согласно номерам дней недели, отображать на экране их названия?
Многие начинающие программисты для решения подобной задачи предпочтут воспользоваться
последоватальностью следующих операторов IF.
if x = 1 then write('Понедельник');
if x = 2 then write('Вторник');
if x = 3 then write('Среда');
if x = 4 then write('Четверг');
if x = 5 then write('Пятница');
if x = 6 then write('Суббота');
if x = 7 then write('Воскресение');
воспользовавшись оператором case решить предыдущую задачу можно наглядней и компактней.
case x of
1:write('понедельник');
2:write('вторник');
3:write('среда');
4:write('четверг);
5:write('пятница');
6:write('суббота');
7:write('воскресение');
end;
Общий вид:
case выражение of
метка 1: инструкция 1;
метка 2: инструкция 2;
метка n: инструкция 3;
else
инструкция
end;
Пример 2:
Case I + Y of
0 : y := sin(x);
1 : y := cos(x);
2 : y := Ln (x);
3 : y := sqr(x);
else
Y := 0;
end;
Пример 3:
Case C of
'a', 'l', 'c' : writeln('Это буквы');
'0' .. '9' : writeln ('Это цифры');
' . ' , ' , ' : writeln ('Знаки препинания');
end;
___________________________________________________________________
Авторские права © 2000, Hunter'у
Переработано 22.12.02
Ваши отклики и пожелания пишите мне
