Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Оператор выбора

Читайте также:
  1. Q: Оператор (statement) присваивания, который используется для присваивания результата выражения переменной имеет
  2. Анализ мнения экспертов в отношении выбора компаний-кандидатов
  3. Анализ потребительского выбора (бюджетное ограничение, кривые безразличия, оптимум, эффекты)
  4. Богатство выбора дает вам больше возможностей преуспеть
  5. Брак это дело выбора
  6. В) Обоснование выбора конкретного препарата.
  7. Вероятностная постановка задачи обучения распознаванию двух классов объектов посредством выбора разделяющей гиперплоскости

 

 

Оператор служит для выбора одного из помеченных вариантов действия (операторов), в зависимости от значения "параметра". Оператор имеет вид:

 

Case "параметр" Of

"список помеченных операторов"

Else "оператор" End;

 

Здесь "параметр" - выражение или переменная порядкового типа.

Из "списка помеченных операторов" выполняется оператор с меткой, включающей значение "параметра", иначе оператор после слова Else. Конструкция Else "оператор" может отсутствовать.

Напомним, что "оператор" может иметь вид: Begin "операторы" end;

 

 

Пример операторов для определения порядка целого числа N от 0 до 999:

Case N of

0..9: writeln('однозначное');

10..99: writeln('двузначное');

100..999: writeln('трехзначное')

else writeln('Число "N" не входит в указанный диапазон') end;

Приведем пример программы случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях - вы "неудачник".

 

PROGRAM FUTURE;

var N: word;

Begin

writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');

Randomize; N:=Random(20)+1; { N - случайное число от 1 до 20 }

writeln; write('Вас ожидает _');

Case N of

1: writeln('счастье'); 6: writeln('здоровье');

2: writeln('пятерка'); 7: writeln('деньги');

3: writeln('дорога'); 8: writeln('любовь');

4: writeln('двойка'); 9: writeln('встреча');

5: writeln('болезнь'); 10: writeln('дети')

else writeln('неудача') end;

writeln('Нажми Enter'); readln;

END.

 

Здесь функция Random(x) генерирует случайное число, с равномерной плотностью распределения на заданном интервале. Для инициализации распределения в начале программы необходимо вызвать процедуру Randomize.

 

Практическое задание N 1. 4

 

1. Назначить дежурного в классе из списка 10 учеников с вероятностью 1/15, в остальных случаях дежурит учитель.

2. Выбрать место отдыха в отпуске из списка 10 мест, предлагаемых туристическим агентством с вероятностью 1/30, в остальных случаях вы отдыхаете дома.

3. Вывести на экран сообщение в зависимости от введенного значения оценки (по десятибалльной системе), например: 1.. 2: плохо, 3.. 5: удовлетворительно, и т. д., иначе - неправильный ввод данных.

4. Вывести на экран сообщение в зависимости от введенного значения температуры воздуха (от -50 до +50 0 С), например: -50.. -20: очень холодно,

-19.. -10: холодно, и т. д., иначе - неправильный ввод данных.

 


Дата добавления: 2015-10-29; просмотров: 93 | Нарушение авторских прав


Читайте в этой же книге: Среда Турбо-Паскаль | Window - работа с окнами. | Типы переменных | Символьный тип | СПЕЦИФИЧЕСКИЕ ОПЕРАЦИИ | Оператор цикла с параметром | Операторы цикла с условием | Практическое задание N 1. 15 | Break; - прерывание цикла. | Составление диалоговых программ |
<== предыдущая страница | следующая страница ==>
Практическое задание N 1. 2| Условный оператор

mybiblioteka.su - 2015-2024 год. (0.006 сек.)