TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

1. 7. 2.  Оператор выбора

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

                                                            

                      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. 

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz