Статья: Условный оператор. Блок. Оператор выбора

👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

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

Условный оператор в Паскале записывается в виде:
IF логическое выражение THEN оператор/блок [ELSE оператор/блок] логическое выражение - это любое выражение, значение которого имеет тип Boolean, блок - это последовательность операторов, заключенная в логические скобки : BEGIN операторы END; . Перед ELSE никогда не ставится ";" ! Перед END в большинстве случаев можно не ставить ";". Если значение логического выражения TRUE, то выполняется оператор или блок, стоящий после THEN, в противном случае - оператор или блок, стоящий после ELSE. Конструкция ELSE необязательна, условный оператор можно использовать и в усеченном виде, тогда при значении логического выражения FALSE не выполняется никаких действий. Операторы, входящие в условный оператор, сами могут быть условными, т.е. допускается любая вложенность условных операторов. Запишем теперь предыдущую задачу о четырех числах, используя оператор IF :
BEGIN WRITELN('Введите 4 целых числа, a,b,c и d, среди ',
'которых должно быть 2 и только 2 одинаковых!');
WRITE('a='); READ(a); WRITELN; WRITE('b='); READ(a); WRITELN;
WRITE('c='); READ(a); WRITELN; WRITE('d='); READ(a); WRITELN;
IF(a=b)AND(a<>c)AND(a<>d)AND(c<>d) OR(a=c)AND(a<>b)AND(a<>d)AND(b<>d)OR
(a=d)AND(a<>b)AND(a<>c)AND(b<>c)OR(b=c)AND(b<>a)AND(b<>d)AND(a<>d)OR
(b=d)AND(b<>a)AND(b<>c)AND(a<>c)OR(c=d)AND(c<>a)AND(c<>b)AND(a<>b)
THEN WRITELN('Вы довольно понятливы')
Можно решить эту задачу и другим способом :
BEGIN WRITELN('Введите 4 целых числа, a,b,c и d, среди ',
'которых должно быть 2 и только 2 одинаковых!');
WRITE('a='); READ(a); WRITELN; WRITE('b='); READ(a); WRITELN;
WRITE('c='); READ(a); WRITELN; WRITE('d='); READ(a); WRITELN;
IF a=b THEN Inc(num); IF a=c THEN Inc(num); IF a=d THEN Inc(num);
IF b=c THEN Inc(num); IF b=d THEN Inc(num); IF c=d THEN Inc(num);
IF num=1 THEN WRITELN('Вы довольно понятливы')
Теперь попробуем записать условный оператор, реализующий более сложную логическую структуру. Пусть даны три числа d, m и y, содержащие число, месяц и год для некоторой даты; необходимо выяснить, правильна ли эта дата.
VAR d,m : Byte; y : Word; Valid : Boolean;
BEGIN WRITE('Введите дату '); READ(d,m,y);
IF (d>=1)AND(d<=31) THEN Valid:=TRUE
IF (m=4)OR(m=6)OR(m=9)OR(m=11) THEN
IF (d>=1)AND(d<=30) THEN Valid:=TRUE
IF (d>=1)AND(d<=28) THEN Valid:=TRUE
IF Valid THEN WRITELN('Дата верна')
Оператор выбора во многих случаях удобнее, чем условный оператор,
Здесь выражение - это любое выражение порядкового типа, список значений - это список разделенных запятыми константных выражений или диапазонов, диапазон - это конструкция вида константное выражение .. константное выражение. Константным будем называть любое выражение, в которое входят только неименованные и нетипизированные константы (т.е. в константное выражение не могут входить имена переменных, функции и типизированные константы). На самом деле константные выражения - это выражения, которые могут быть вычислены до выполнения программы, а отсюда уже и вытекают ограничения на их вид. Выражение, стоящее после CASE, и все константные выражения должны быть одного типа либо все иметь целочисленные типы.
Оператор выбора выполняется следующим образом: вычисляется выражение, стоящее после CASE, затем просматриваются все списки значений, и если значение выражения попало в список значений, выполняется соответствующий оператор или блок, и выполнение оператора CASE заканчивается; если значение выражения не содержится ни в одном из списков, то выполняется оператор или блок, стоящий после ELSE. Конструкция ELSE может отсутствовать, в этом случае оператор CASE может не выполнить никаких действий. В качестве примера использования оператора выбора решим предыдущую задачу о правильной дате.
VAR d,m : Byte; y : Word; Valid : Boolean;
BEGIN WRITE('Введите дату '); READ(d,m,y);
29 : Valid:=(y MOD 4=0)AND(y MOD 100>0);
IF Valid THEN WRITELN('Дата верна')
Вы можете видеть, что задачи такого типа решаются оператором CASE гораздо проще, чем оператором IF. Решим еще одну задачу: определить, какого рода символ введен - цифра, латинская буква, русская буква или ни то, ни другое и ни третье.
BEGIN WRITE('Введите символ '); READ(c);
'0'..'9' : WRITELN('Вы ввели цифру');
' a'..'z','A'..'Z' : WRITELN('Вы ввели латинскую букву');
'а'..'п','р'..'я','А'..'Я' : WRITELN('Вы ввели русскую букву');
ELSE WRITELN('Вы ввели неизвестно что !');

Название: Условный оператор. Блок. Оператор выбора
Раздел: Рефераты по информатике
Тип: статья
Добавлен 16:31:49 23 марта 2011 Похожие работы
Просмотров: 10
Комментариев: 15
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Статья: Условный оператор. Блок. Оператор выбора
Реферат На Тему Право Власності На Житло За Новим Цк
Реферат по теме Производственный потенциал России в начале 21 века
Реферат: Источники коммерческого права 2
Телеграмма Аргументы Для Итогового Сочинения
Общество 7 Класс Контрольные Работы
Корпоративные Стандарты Управления Проектами Реферат
Реферат по теме Кипр
Дипломная работа по теме Исследование и оценка действия витаминов группы В на процесс приготовления йогурта
Реферат Организация Работы Старшей Медсестры В Днр
Титульный Лист Курсовой Работы По Гражданскому Праву
Доклад по теме Лезгины
Курсовая работа по теме Психология манипуляции и интриги
Реферат по теме Государство и церковь в учении Ф. Прокоповича
Сочинение О Близком Человеке 5 Класс
Курсовая работа по теме Проектирование автоматизированной газовой котельной в п. Космынино
Эссе На Тему Технологий На Английском
Реферат по теме Жизнь Александра I
Реферат: Організація та проведення туристичних походів
Контрольная работа по теме Управление конкурентоспособностью предприятия
Реферат: Тема исследования: "Культурные растения г. Барнаула для целей зеленого строительства"
Шпаргалка: Конфликты, их классификация, причины возникновения
Курсовая работа: Жизнедеятельность человеческих сообществ - Открытая Система Жизнетворчества
Реферат: Участие народов Башкирии в Отечественной войне 1812 г. и в заграничных походах России в 1812-1817 гг.