Будь умным!


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

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

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

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

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

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

от 25%

Подписываем

договор

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

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

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. Redundnt rry of inexpensive disks избыточный резервный массив недорогих дисков так как они были гораздо дешевле RM
3. ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ М08 Определение момента инерции из крутильных колебаний Исполни
4. методичний посібник для студентів І курсу факультету іноземної філології спеціальності французька м
5. Четыре племени. После драки с Пестрозвёздой я устала
6. тематическая статистика
7. Сцена поступления
8. Педагогические взгляды А.С.Пушкина
9. тематике и с энтропией в физике
10. Запорізький національний технічний університет Міністерства освіти і науки молоді та спорту України
11. Учет товарных запасов
12. чипендейл і мужність деталей стилізованих під єлизаветинську епоху тобто часи Пізнього Відродження прав
13.  Кіріспе
14. ТЕМА- Міграційне право як наука та навчальна дисципліна
15. Судебники 1497 и 1550 годов, сравнительный анализ
16. рефераті мова йде про становище трудящих мас західноукраїнських земель які перебували під владою чужоземн
17. Финансовая политика Республики Казахстан
18. Дипломная работа Правовые формы функционирования политических партий
19. Пабло Пикассо
20. Конституция Российской Федерации Тесты для самообразования