С.А. Григорьев
Условный оператор в Паскале записывается в виде:
IF логическое выражение THEN оператор/блок [ELSE оператор/блок] логическое выражение - это любое выражение, значение которого имеет тип Boolean, блок - это последовательность операторов, заключенная в логические скобки : BEGIN операторы END; . Перед ELSE никогда не ставится ";" ! Перед END в большинстве случаев можно не ставить ";". Если значение логического выражения TRUE, то выполняется оператор или блок, стоящий после THEN, в противном случае - оператор или блок, стоящий после ELSE. Конструкция ELSE необязательна, условный оператор можно использовать и в усеченном виде, тогда при значении логического выражения FALSE не выполняется никаких действий. Операторы, входящие в условный оператор, сами могут быть условными, т.е. допускается любая вложенность условных операторов. Запишем теперь предыдущую задачу о четырех числах, используя оператор IF :
VAR a,b,c,d : Integer;
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('Вы довольно понятливы')
ELSE WRITELN('Вы ошиблись !!!');
READLN;
END.
Можно решить эту задачу и другим способом :
VAR a,b,c,d : Integer;
CONST num : Byte = 0;
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('Вы довольно понятливы')
ELSE WRITELN('Вы ошиблись !!!');
READLN;
END.
Теперь попробуем записать условный оператор, реализующий более сложную логическую структуру. Пусть даны три числа d, m и y, содержащие число, месяц и год для некоторой даты; необходимо выяснить, правильна ли эта дата.
VAR d,m : Byte; y : Word; Valid : Boolean;
BEGIN WRITE('Введите дату '); READ(d,m,y);
IF (m=1)OR(m=3)OR(m=5)OR(m=7)
OR(m=8)OR(m=10)OR(m=12) THEN
IF (d>=1)AND(d<=31) THEN Valid:=TRUE
ELSE Valid:=FALSE
ELSE
IF (m=4)OR(m=6)OR(m=9)OR(m=11) THEN
IF (d>=1)AND(d<=30) THEN Valid:=TRUE
ELSE Valid:=FALSE
ELSE
IF m=2 THEN
IF (d>=1)AND(d<=28) THEN Valid:=TRUE
ELSE
IF d=29 THEN
IF (y MOD 4=0)AND(y MOD 100>0)
OR(y MOD 400=0) THEN Valid:=TRUE
ELSE Valid:=FALSE
ELSE Valid:=FALSE
ELSE Valid:=FALSE;
IF Valid THEN WRITELN('Дата верна')
ELSE WRITELN('Дата не верна');
END.
Оператор выбора во многих случаях удобнее, чем условный оператор,
он записывается в виде :
CASE выражение OF
список значений : оператор/блок
..................................
список значений : оператор/блок
[ELSE оператор/блок]
END;
Здесь выражение - это любое выражение порядкового типа, список значений - это список разделенных запятыми константных выражений или диапазонов, диапазон - это конструкция вида константное выражение .. константное выражение. Константным будем называть любое выражение, в которое входят только неименованные и нетипизированные константы (т.е. в константное выражение не могут входить имена переменных, функции и типизированные константы). На самом деле константные выражения - это выражения, которые могут быть вычислены до выполнения программы, а отсюда уже и вытекают ограничения на их вид. Выражение, стоящее после CASE, и все константные выражения должны быть одного типа либо все иметь целочисленные типы.
Оператор выбора выполняется следующим образом: вычисляется выражение, стоящее после CASE, затем просматриваются все списки значений, и если значение выражения попало в список значений, выполняется соответствующий оператор или блок, и выполнение оператора CASE заканчивается; если значение выражения не содержится ни в одном из списков, то выполняется оператор или блок, стоящий после ELSE. Конструкция ELSE может отсутствовать, в этом случае оператор CASE может не выполнить никаких действий. В качестве примера использования оператора выбора решим предыдущую задачу о правильной дате.
VAR d,m : Byte; y : Word; Valid : Boolean;
BEGIN WRITE('Введите дату '); READ(d,m,y);
CASE m OF
1,3,5,7,8,10,12 :
CASE d OF 1..31 : Valid:=TRUE
ELSE Valid:=FALSE
END;
4,6,9,11 :
CASE d OF 1..30 : Valid:=TRUE
ELSE Valid:=FALSE
END;
2 : CASE d OF 1..28 : Valid:=TRUE;
29 : Valid:=(y MOD 4=0)AND(y MOD 100>0);
ELSE Valid:=FALSE
END;
ELSE Valid:=FALSE;
END;
IF Valid THEN WRITELN('Дата верна')
ELSE WRITELN('Дата не верна');
END.
Вы можете видеть, что задачи такого типа решаются оператором CASE гораздо проще, чем оператором IF. Решим еще одну задачу: определить, какого рода символ введен - цифра, латинская буква, русская буква или ни то, ни другое и ни третье.
VAR c : Char;
BEGIN WRITE('Введите символ '); READ(c);
CASE c OF
'0'..'9' : WRITELN('Вы ввели цифру');
' a'..'z','A'..'Z' : WRITELN('Вы ввели латинскую букву');
'а'..'п','р'..'я','А'..'Я' : WRITELN('Вы ввели русскую букву');
ELSE WRITELN('Вы ввели неизвестно что !');
END;
END.
Другие работы по теме:
Текст программы. 7 Используемые переменные. 7. Структура узла бинарного дерева. 7. Функция создания дерева. 7
Написать программу, читающую текст алгебраической формулы в инфиксной форме, включающей операции сложения, вычитания, умножения и деления, операнды (a, b, c, …, X, y, z) и круглые скобки
Эрмитовы операторы
Рассмотрение понятия тождественного (единичного) оператора. Анализ методов решения линейных однородного и неоднородного уравнений. Ознакомление с определением эрмитовости оператора. Доказательство теоремы о свойствах ортогональности собственных функций.
Функція Гріна
Реферат на тему: Функція Гріна (на прикладі крайової задачі) Нехай в банаховому просторі визначена крайова задача для довільного являються лінійними обмеженими операторами, які діють в
Задачи по Математике 2
Часть 1. Системы координат. Коэффициент Ламэ. Элементы векторной алгебры. (х0, у0) равно: Ответ: 0 [z0, y0] равно: Ответ: - х0 [z0, x0] равно: Ответ: y0
Выражения и Операторы
Выражения. Операторы Выражения. Пустой оператор. Блоки. Операторы if. Операторы switch. Оператор while. Оператор for. Описания.
Применение указателей в C++
Напишем следующую программу, которая использует указатели. Предположим, что значение iNum1 равно 2, а адрес iNum1 — 1000. INum1 будет занимать байты с адресами 1000, 1001, 1002 и 1003.
Основные операторы языка Turbo-Paskal. Процедуры и функции
Принцип работы основных операторов языка программирования Turbo-Paskal: оператор присваивания, выбора Case, безусловного перехода, цикла, уловный, составной. Формальное описание и вызов функции и процедуры. Требования к списку фактических параметров.
Обзор С++
Конструкции языка программирования С++, составление простых программ, использyющих оператор if, оператор if else и оператор switch. Работа оператора switch. Создание программы, которая по дате определяет день недели , на который эта дата приходится.
Операторы цикла
Для реализации циклических алгоритмов, т.е. алгоритмов, содержащих многократно повторяющиеся одинаковые операции, применяются специальные операторы цикла. В Пас-кале есть три вида циклов: FOR, WHILE и REPEAT.
Операторы ввода-вывода
Простейший оператор ввода в Паскале - оператор READ, он записывается в виде: READ(имя,имя,...); где имя - имена переменных или типизированных констант. Вводимые значения задаются в виде допустимых в Паскале констант.
Микроконтроллеры семейства MCS51 Intel
Инструкции MCS51 Intel Инструкции, модифицирующие флаги (1) Инструкция C OV AC Инструкция C OV AC CLR C ADDC CPL C SUBB ANL C,bit ANL C,/bit ORL C,bit ORL C, bit
Базис стандартной и рекурсивной схемы. Верификация программы
Базис класса стандартных схем программ. Стандартная схема в линейной форме. Протокол выполнения программы рекурсивной схемы. Слабейшие предусловия операторов программы в линейной форме. Верификация программы с помощью метода индуктивных утверждений.
Операторы цикла в языке программирования Си++"
Рассмотрение принципов работы операторов, реализующих циклические алгоритмы: while (выполнение условия, пока заданное выражение истинное), do-while, for, break (прекращение работы из-за обнаружения ошибки), continue (пропуск "оставшейся" части итерации).
Ветвление в Паскале
Условия и выражения, значением которых является величина логического (Boolean) типа. Вложенность условных операторов. Организация ветвлений в программах на Паскале, логические операции, их выполнение. Последовательности, связанные логическими операциями.
Логические операторы VB
В Visual Basic можно выделить пять основных и важных логических операторов: And, Or, Not, Xor и Eqv.
Дополнительные команды Google
ополнительные команды поисковой машине Google позволяют добиться гораздо лучших результатов. С их помощью можно ограничить область поиска, а также указать поисковой машине, что не нужно просматривать все страницы.
Оператор условия if else
Лабораторная Работа На тему: " Оператор условия else " 1. Назначение и синтаксис Оператор условия if-else служит для выбора направления работы программы в зависимости от условий, сложившихся в данной точке программы на момент ее выполнения.
Метки. Оператор GOTO. Процедура Halt
С.А. Григорьев Операторы в Паскале могут быть помечены. Метки - это идентификаторы, или целые числа от 0 до 9999, они могут записываться перед любым выполняемым оператором и отделяются от него двоеточием. Оператор может иметь любое количество меток. Все метки, использованные в программе, должны быть описаны в разделе описаний с ключевым словом LABEL.
Операторы Turbo Pascal 7
Операторы Turbo Pascal Содержание 1. Операторы ввода и вывода информации. 2. Операторы языка ТР.7. 2.1 Составной оператор Begin ... end. 2.2 Условный оператор If.
Оператор выбора case
Для программирования разветвлений в алгоритме чаще всего используется условный оператор if…then или if…then…else. Однако если путей выбора много, то запись алгоритма с помощью условного оператора становится сложной.
Структура дивизиона С-300
4 вопрос По дальности ЗРК делятся: ЗРК дальнего действия (>200 км) ЗРК средней дальности (до 200 км) Малой дальности ( до 50 км) Ближнего действия ( до 10 км)
Алгоритми і програми з розгалуженнями
Тема: . План. Оператор безумовного переходу (goto). Умовні оператори. Складена команда. Література: Я.М. Глинський. Інформатика. Алгоритмізація і програмування. Книжка 1. с. 67-85.
Побудова алгоритму LA-аналізу
Реферат на тему: Побудова алгоритму LA(1)-аналізу 1. Правила побудови Нехай G=(X, N, P, S) – LA(1)-граматика без -правил, можливо, розширена. Опишемо побудову програми синтаксичного аналізу слів мови L(G). Програма буде містити процедури, іменами яких є відповідні їм нетермінали граматики.
Використання масивів та циклів
Лаболаторна робота №3 Тема: Організація циклів та масивів на мові Паскаль. Мета: Навчитись розвязувати задачі з циклом, працювати з масивами. Теоретичні відомості.