Будь умным!


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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 24.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. ГРАНД МИР Крым г
3. тема экологического права Принципы экологического права Источники экологического права- понятие осо
4. Типы в базе данных на диске Х нужно выбрать на ленте командную вкладку создание
5. Тема- ~~Коммерческий банкего роль в экономике страны~ Выполнил- студент Кальмина Л
6. Екатеринбургский торговоэкономический техникум ОТЧЕТ по учебной-производственной практике
7. Они были написаны с самобытностью не на условный лад а на таком основании предмета который каков бы он ни б
8. Теория и практика ~ Норман Уокер Лечение соками От редакции Впервые эта книга доктора Уокера у
9. Сутність менеджменту.html
10. Финансы, финансовые обращения и кредиты
11. 2. Елементи системи оподаткування До елементів системи оподаткування відносяться - суб~єкт платни.html
12. по теме Организация производства работ МДК 01
13. Сущность и содержание бухгалтерского учёта
14. тематизирует теоретические знания и практические навыки полученные им в ходе изучения дисциплин Экономика
15. Тема 3 Административноправовое законодательство в области пожарной безопасности 1
16. ЮЖНОУРАЛЬСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Национальный исследовательский университет -Технологиче
17. Реферат- Методика измерения перемещений при помощи лазерных интерферометров
18. МАЛІБУ
19. докладчики решения-результаты Подписание соглашения между
20. язык худ. лит. не включается в понятие худ