У вас вопросы?
У нас ответы:) SamZan.net

варіанту Виключення

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

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

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

PAGE  3

Практична робота №6.

Оператор варіанту. Виключення.

Мета: навчитися застосовувати оператор варіанту при розробці програмного забезпечення

Оператор варіанта 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;

Завдання для самостійної роботи:

  1.  Створити програму, яка по заданому числу (1-12) виводить назву відповідного місяця.
  2.  Написати програму, яка по введеному номеру пори року видавала відповідні цій порі року місяці та число днів в кожному місяці.
  3.  Створити програму, яка для любого натурального числа 1-1000 друкує кількість цифр в записі цього числа.
  4.  Для цілого числа k від 1 до 99 надрукувати вираз «я прочел k книг», узгодивши закінчення слова «книга» з числом k.




1. I Поступления приток денежных средств А
2. Microsoft Excel
3. Королевский путь путь по которому на протяжении многих столетий проезжали польские короли- место сплетен
4. Гражданско-правовой договор найма жилого помещения
5. Охта ТА Перекресток Расположение- База отдыха Охта расположена в ку.
6. География США- рельеф, климат, раститеьный и животный мир
7. тема как специализированная форма гуморальной регуляции Формы гуморальной регуляции- местная аутокри
8. Понятие о потенциальном течении.
9. Многофункциональный контроллер ВЗУ
10. а Ну вот. Родители уехали девочка Жужа дома одна как вольная птица ~ а еда кончается Нет конечно мам