У вас вопросы?
У нас ответы:) 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. тематическое ожидание по выборке если выборка представлена в негруппированном виде Формула выражает-
2. 59141
3. И оправдана премудрость всеми чадами ее
4. Лабораторная работа 4 РАСТВОРЫ Цель работы Изучение физикохимической природы процесса растворения
5.  Релігійне мистецтво в Іспанії XVII ст
6. Контрольная работа- Эмоции у животных
7. Эту верховную и по стоянную власть над гражданами с правом жизни и смерти на род может передать одному и
8. Коммерческие вести Введение Данная научная работа
9. единая системы данных о финансовом положении организации финансовых результатах ее деятельности и изменен
10. ТЕМА 14. ФИНАНСОВЫЕ ПРОБЛЕМЫ НЕСОСТОЯТЕЛЬНОСТИ ПРЕДПРИЯТИЙ 1