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

Оператор BEGIN



Читайте также:
  1. BETWEEN THE BEGINNING AND THE END
  2. I. Общая концепция выведения на рынок сотовой связи нового оператора
  3. If (x<>nil) And (y<>nil) Then Begin
  4. If t<>nil Then Begin
  5. If t^.data<q^.data Then Begin
  6. Match the beginning of the sentence with its ending.
  7. Match the beginning of the sentence with its ending.

 

В операторе IF выражение THEN и выражение ELSE могут быть расширены при использовании оператора BEGIN, который задает последовательность операторов заключенных между стандартными словами BEGIN и END и разделенными точкой с запятой. Внутри стандартных слов BEGIN и END могут встречаться любые операторы, в том числе – операторы BEGIN.

В условном операторе оператор BEGIN либо выполняется полностью, либо не выполняется вообще, в зависимости от результатов проверки условия.

 

PROGRAM MaxMin (INPUT, OUTPUT);

{Копирует из INPUT в OUTPUT наибольший из

первых двух символов, затем - наименьший}

VAR

Ch1, Ch2: CHAR;

BEGIN

READ(Ch1, Ch2);

WRITELN(‘MAX OF ’, Ch1, ‘, ‘, Ch2);

IF Ch1 > Ch2

THEN

BEGIN

WRITELN(Ch1);

WRITELN(Ch2)

END

ELSE

BEGIN

WRITELN(Ch2);

WRITELN(Ch1)

END

END.

 

INPUT: AZURE

OUTPUT: MAX OF A, Z

Z

A

 

INPUT: 1234

OUTPUT: MAX OF 1, 2

 

Список операторов внутри оператора BEGIN может быть пустым. В таком случаем говорят, что внутри оператора BEGIN присутствует пустой оператор. Пустой оператор ситуация довольно часто встречается в Паскаль-программах.

Если рассмотреть внимательно следующий фрагмент кода

BEGIN

Ch1:= Ch2;

END

Оператор присваивания заканчивается точкой с запятой, которая является разделителем. Следовательно, в операторе BEGIN два оператора: оператор присваивания и пустой оператор после точки с запятой.

 

В примере ниже выражение THEN содержит пустой оператор

 

IF Ch1 < Ch2

THEN

ELSE

Ch1:= Ch2

 

Внутри выражения THEN или выражения ELSE может быть использован оператор IF. В случае вложенности операторов IF Паскаль-машина ассоциирует выражение ELSE c ближайшим оператором IF.

 

PROGRAM Max3 (INPUT, OUTPUT);

{Копирует из INPUT в OUTPUT наибольший из

первых трех символов}

VAR

Ch1, Ch2, Ch3: CHAR;

BEGIN

READ(Ch1, Ch2, Ch3);

WRITELN(‘MAX OF ’, Ch1, ‘, ‘, Ch2, ‘, ‘, Ch3, ‘ IS ‘);

IF Ch1 > Ch2

THEN

IF Ch1 > Ch3

THEN

WRITE(Ch1)

ELSE

WRITE(Ch3)

ELSE

IF Ch2 > Ch3

THEN

WRITE(Ch2)

ELSE

WRITE(Ch3)

WRITELN(‘.’)

END.

 

INPUT: AZURE

OUTPUT: MAX OF A, Z, U IS Z

 

INPUT: 1234

OUTPUT: MAX OF 1, 2, 3 IS 3

 


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






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