Главная | Случайная
Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Case NUMBER mod 2 of




0 : writeln (NUMBER, ‘- число четное‘)

else : writeln (NUMBER, ‘- число нечетное‘);

end;

Если один оператор выполняется при нескольких значениях, то их можно перечислить через запятую.

Case MONTH of

1, 2, 3 : writeln (‘Первый квартал‘);

4, 5, 6 : writeln (‘Второй квартал‘);

7, 8, 9 : writeln (‘Третий квартал‘);

10, 11, 12 : writeln (‘Четвёртый квартал‘);

end;

Оператором может являться не только простой оператор, но также составной и пустой операторы.

Case CODE of

1 : for i := 1 to 5 do

writeln (‘*******‘);

2 : begin{составной оператор}

x:=sqr(y-1);

writeln (x);

end;

3 : {пустой оператор}

end;

Любому заданному значению селектора соответствует лишь один вход в списке операторов. Константы должны принадлежать тому же типу, что и селектор. Если селектор принимает значение, которому не соответствует ни один вход, то будет выполняться оператор, следующий за словом else. Если же этого оператора нет, то никакие альтернативы не будут выполняться.

Если оператор должен выполняться при нескольких значениях селектора следующих друг за другом, образуя некоторый промежуток, то это можно записать в более сжатой форме. Например,

Case Chislo of

0..9 : write (‘Это число является цифрой‘);

Посмотрите, в каких вариантах еще можно использовать оператор выбора при решении задачи.

Задача. Написать программу преобразования цифр в слова.

Program Number1;

Var

a, b, c : integer;

Begin

writeln(‘Введите цифру ‘);

readln(a);

if (a<0) or (a>9)

Then

writeln (‘Это число не является цифрой‘)

Else

Case a of

0 : writeln (‘ноль‘);

1 : writeln (‘один‘);

2 : writeln (‘два‘);

3 : writeln (‘три‘);

4 : writeln (‘четыре‘);

5 : writeln (‘пять‘);

6 : writeln (‘шесть‘);

7 : writeln (‘семь‘);

8 : writeln (‘восемь‘);

9 : writeln (‘девять‘);

end;

readln;

End.

 

Program Number2;

Var

a, b, c : integer;

Begin

writeln(‘Введите цифру ‘);

readln(a);

Case a of

0 : writeln (‘ноль‘);

1 : writeln (‘один‘);

2 : writeln (‘два‘);

3 : writeln (‘три‘);

4 : writeln (‘четыре‘);

5 : writeln (‘пять‘);

6 : writeln (‘шесть‘);

7 : writeln (‘семь‘);

8 : writeln (‘восемь‘);

9 : writeln (‘девять‘)

elsewriteln (‘Это число не является цифрой‘);

end;

readln;

End.




Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2019 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных