Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
PAGE 3
Мета: навчитися застосовувати оператор варіанту при розробці програмного забезпечення
Оператор варіанта Case є узагальненням оператора if та дозволяє зробити вибір з довільного числа варіантів.
Він складається з виразу, який називається селектором, та списку параметрів кожному з яких передує список констант вибору (список може складатися з однієї константи). Як і в операторі if, тут може бути присутній else, який має той самий сенс.
Формат:
Case <вираз-селектор> of
<список 1>: <оператор 1>;
<список 2>: <оператор 2>;
…
<список N>: <оператор N>
else <оператор>
end;
Селектор може мати любий скалярний тип, окрім речового (вещественного). Використання рядкового типу в якості селектора заборонено. Список констант вибору може складатись з довільної кількості значень або діапазонів, відокремлених один від одного комами.
Тип констант в будь-якому випадку повинен співпадати з типом селектора.
Приклад:
1. селектор інтервального типу.
Case i of
1..10: Memo1.Lines.Add (число, I:4, в діапазоні 1-10);
11..20: Memo1.Lines.Add (число, I:4, в діапазоіні 11-20);
21..30: Memo1.Lines.Add (число, I:4, в діапазоні 21-30)
else Memo1.Lines.Add (число, I:4, поза межами контролю) end;
2. селектор цілочисельного типу.
Case I of
1: z:=i+10;
2: z:=i+100;
end;
Задача: Написати програму, яка по введеному числу 1…3 виводить його назву.
Опишимо змінну Var a: integer;
Для події по натисканню кнопки в тілі процедури напишемо:
Begin
a:=(Edit1.text); // ввод числа
case a of
1: Memo1.text:=IntToStr(один);
2: Memo1.text:=IntToStr(два);
3: Memo1.text:=IntToStr(три);
else Memo1.text:=IntToStr(Введіть число 1, 2 або 3);
end;
End;
Завдання для самостійної роботи: