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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 6.4.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. ~р ба~ананы~ та~ырыбы болуы керек 2 КП Excelде с~рыптау ж~ргізуге болады 1 бір ба~ан бойынша ~су не кему б
2. Применение аккредитивной формы расчетов во внутреннем и международном оборотах
3. Психологическая помощь при психических расстройствах
4. Индуизм - религия самого долгого пути
5. Объектно-ориентированное программирование на Borland C
6. На тему Образ Божий и Его подобие в человеке Дисциплина- Религиозная антропология Преподаватель- Че
7. Тема 18 Законность правопорядок и общественный порядок Понятие и основные принципы законности; Гара
8. . Permnent ction. 2. Generl truth
9. Создание и продвижение брэндов на российском рынке позволяет сделать как минимум два вывода
10. і. Із цією метою роботодавець забезпечує функціонування системи управління охороною праці а саме- ство