34655

Условный оператор. Оператор выбора

Реферат

Информатика, кибернетика и программирование

Например вычисление квадратного корня из числа проводится при условии =0 операторами: IF =0 Then b := Sqrt Else begin WriteLn' 0'; Redln; Hlt end; Оператор Hlt прекращает выполнение программы. PROGRM VES; { определение весовой категории спортсмена } Условная схема программы CONST 1='легкая категория'; 2='средняя категория'; 3='тяжелая категория';...

Русский

2013-09-08

50.5 KB

0 чел.

исциплина «Основы алгоритмизации и программирование»  Условный оператор. Оператор выбора

Условный оператор. Оператор выбора

Условный оператор IF

Условный оператор включает в себя операторы, которые выполняются или не выполняются в зависимости от записанного в операторе условия. Оператор имеет вид:

  IF  "условие"  Then  "оператор1"  Else  "оператор2";

где "условие" - выражение логического типа;

"оператор1" выполняется, если условие верно ( True ),

"оператор2" выполняется, если условие не верно ( False ).

Например, вычисление квадратного корня из числа "a" проводится при условии a>=0, операторами:

 IF a>=0 Then b := Sqrt(a)

 Else

   begin

     WriteLn('a<0');

     Readln;

     Halt

   end;

Оператор Halt прекращает выполнение программы.

Схема выполнения условного оператора имеет вид:


В условном операторе может отсутствовать блок
Else оператор2; т. е. условный оператор может иметь вид:

IF "условие" Then "опертор1";

например:
IFa<0 Then a:= abs(a); 

Приведем пример программы определения весовой категории в зависимости от веса спортсмена.

PROGRAM VES;                        { определение весовой категории спортсмена }

                                    Условная схема программы

CONST A1='легкая категория';

     A2='средняя категория';

     A3='тяжелая категория';

     A4='сверхтяжелая категория';

var

 V : integer;

BEGIN

 Write('введите вес спортсмена V = '); ReadLn(v);

 if V<62 then WriteLn(A1)           {вложенный условный оператор }

 else if V<75 then WriteLn(A2)

      else if V<88 then WriteLn(A3)

           else WriteLn(A4)

 writeln('Нажмите Enter');

 readln;

END.

Для разложения целого числа на цифры удобно применять операции: MOD и DIV. Например, если дано трехзначное число "N" ( "N" соответствует "X1X2X3" ), то цифры: X1X2X3, составляющие это число определяются блоком операторов:

 X3:= N mod 10;

 N:= N div 10;

 X2:= N mod 10;

 N:= N div 10;

 X1:= N;

Если требуется определить, делится ли вещественное число "A" нацело на число "B", то можно применять функции Frac(x); и Int(x); например:

 x := A/B;    

 if Frac(x) = 0  then writeln('Число "A" делится нацело на число "B"');

 if Int(x) = x   then writeln('Число "A" делится нацело на число "B"');

Условный оператор может применяться для идентификации (распознавания) объекта по определенным признакам составляющих его элементов. Например, если объектом является треугольник, то элементами объекта могут быть: 1) три его угла (a, b, c); 2) три его стороны (a1, b1, c1); и т. д.

Признаками являются значения элементов по которым производится идентификация, например, для углов: 1) один угол > 90 - (один признак); 2) три угла < 90 - (три признака); и т. д.

В результате идентификации объект получает имя. Например, треугольник - остроугольный, либо тупоугольный и т. д.

Если идентификация проводится по одному признаку для нескольких элементов, то несколько условий связываются служебным словом "or", например:

 If (a > 90) or (b > 90) or (c > 90) then writeln ( 'Треугольник - тупоугольный' );

Если идентификация проводится по нескольким признакам, число которых равно числу элементов, то несколько условий связываются служебным словом "and", например:

 If (a < 90) and (b < 90) and (c < 90) then

   writeln('Треугольник - остроугольный');

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

 If (a < 90)and (b < 90) and(c < 90) then

   If (a=b) or (b=c) or (a=c) then

     writeln('Треугольник - остроугольный и равнобедренный')  

   else writeln('Треугольник - остроугольный');

Напомним, что условный оператор можно применять для контроля правильности вводимых данных, например:

 If (a+b+c)<>180 then

   begin

     writeln('Суммауглов <> 180');

     Halt  

   end;

Если для идентификации объекта достаточно меньшего числа признаков, чем число элементов, то условия, связанные "and" группируются, а группы соединяются служебным словом "or". Например, четырехугольник имеет элементами четыре стороны ( a, b, c, d ), а его имя устанавливается по двум признакам (равенство двух пар сторон), тогда можно использовать операторы:

 If ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then

   writeln('Параллелограмм');

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

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

  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('счастье');

    2 : writeln('пятерка');

    3 : writeln('дорога');

    4 : writeln('двойка');

    5 : writeln('болезнь');

    6 : writeln('здоровье');

    7 : writeln('деньги');

    8 : writeln('любовь');

    9 : writeln('встреча');

    10 : writeln('дети')

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

 end;

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

 readln;  

END.

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


 

А также другие работы, которые могут Вас заинтересовать

41539. Ведение в коммерческую деятельность. Место и роль фирмы (организации) в обществе 167.5 KB
  Место и роль фирмы организации в обществе Роль фирмы организации в современном обществе. Понятие фирмы. Производственный процесс – основа деятельности фирмы.
41540. Производственная структура коммерческого предприятия его инфраструктура 122 KB
  Организационное взаимодействие это формальные отношения между отдельными позициями управления в рамках структуры. Организационная структура – это состав перечень отделов служб и подразделений в аппарате управления системная их организация характер соподчиненности и подотчетности друг другу и высшему органу управления фирмы а также набор координационных и информационных связей порядок распределения функций управления по различным уровням и подразделениям управленческой иерархии. Базой для построения организационной структуры управления...
41541. Финансовые ресурсы предприятия. Доходы и расходы предприятия 267.5 KB
  Себестоимость промышленной продукции. Сущность состав и структура цены продукции предприятия. Как же этого достичь Общий принцип выбора следующий: фирма должна использовать такой процесс производства который при одном и том же уровне выпуска продукции позволял бы применять наименьшее количество вводимых факторов производства т. Поэтому фирма должна использовать такой производственный процесс при котором один и тот же объем готовой продукции обеспечивается с наименьшими затратами на вводимые факторы производства.
41542. Рынок облигаций в России 1.22 MB
  Рынок облигаций в России Первичный и вторичный рынок облигаций Закономерности изменения доходности облигаций Недаром в последние десятилетия во всем мире наблюдается тенденция к росту рынка облигаций тенденция к секьюритизации долгов.
41543. Понятие и виды векселей 548 KB
  Векселя Понятие и виды векселей Правовые основы выпуска и обращения векселей Место векселей на финансовых рынках МИРОВОЙ ОПЫТ. Коммерческие бумаги на зарубежных финансовых рынках Рынок векселей в России Риски владения векселями Образец Акта о протесте векселя в неплатеже
41544. Депозитарные расписки 388.5 KB
  Как инструмент отвечающий желанию американских инвесторов диверсифицировать свои инвестиционные портфели путем приобретения акций иностранных компаний и при этом иметь такую же правовую защиту какую имеют инвесторы делающие вложения в американские корпорации. Помимо депозитарных акций к ним относятся например стрипсы HOLDR депозитарные расписки холдинговой компании GNMмодифицированные вторичные бумаги на базе пула ипотек и др. Выпуск неспонсируемых DR инициируется акционером или группой акционеров резидентов США имеющих в...
41545. Производные фондовые и финансовые инструменты 484.5 KB
  Если стоимость базового актива падает или ожидается ее падение то цена соответствующего дериватива тоже будет снижаться и наоборот; срок существования производных инструментов ограничен определенным временным периодом в то время как базовый актив может быть бессрочным акции валюта и т. Russin ruble Обыкновенные акции ОАО Газпром Jpnese Longterm government bond Наименование биржи CME Чикагская товарная биржа FORTS Биржа фьючерсов и опционов РТС TSE Токийская фондовая биржа Базовый актив Eligible issues российский рубль RU...
41546. Основные понятия рынка ценных бумаг 279.5 KB
  Основные понятия рынка ценных бумаг Основные понятия рынка ценных бумаг Сбережения и инвестиции Классы и виды ценных бумаг Инструменты денежного рынка и рынка капиталов Место фондового рынка в рыночной структуре и его роль в национальных экономиках Функции рынка ценных бумаг Классификации фондовых рынков Заемщики и поставщики капитала на рынке ценных бумаг Инвестиционные риски МИРОВОЙ ОПЫТ. При этом покупатель становится собственником не золота как товара а владельцем ценной бумаги что освобождает его от затрат на хранение металла....
41547. Виды и стоимость акций 224.5 KB
  Виды и стоимость акций Виды и стоимость акций Категории и типы акций МИРОВОЙ ОПЫТ. Классы акций Виды стоимостей акций Коэффициенты рыночной оцененности акций Категории и типы акций Понятия категории и типы в отношении акций являются юридически определенными понятиями. Основополагающие различия разных категорий и типов акций заключаются в правах предоставляемых ими.