Использование сравнений
Процедура TF.CMD использует сравнения и выражения равенства для определения того, являются ли числовые выражения истинными или ложными.
/* Определение истинности или ложности выражения */ /* 1 - истина; 0 - ложь */ a = 4 b = 2 c = a > b SAY 'Результат' a '>' b 'равен' c c = a < b SAY 'Результат' a '<' b 'равен' c c = a = b SAY 'Результат' a '=' b 'равен' c EXIT
Протокол работы этой процедуры выглядит следующим образом:
[C:\]TF Результат 4 > 2 равен 1 Результат 4 < 2 равен 0 Результат 4 = 2 равен 0
[C:\]
Логические операторы - Примеры
В процедуре AND.CMD демонстрируется, как с помощью оператора логического И проверить истинность двух выражений.
/* Использование оператора логического И (&) */ /* 0 - ложь; 1 - истина */ a = 4 b = 2 c = 5 d = (a ≶ b) & (b ≶ c) SAY 'Результат (a ≶ b) & (b ≶ c) равен' d d = (a ≶ b) & (b < c) SAY 'Результат (a ≶ b) & (b < c) равен' d EXIT
Протокол работы этой процедуры выглядит следующим образом:
[C:\]AND Результат (a ≶ b) & (b ≶ c) равен 0 Результат (a ≶ b) & (b < c) равен 1
[C:\]
В процедуре OR.CMD демонстрируется, как оператор логического ИЛИ присваивает выражению значение истина, несмотря на то, что оба составляющих значения ложны:
/* Использование оператора логического ИЛИ (|) */ /* 0 - ложь; 1 - истина */ a = 4 b = 2 c = 5 d = (a ≶ b) | (b ≶ c) SAY 'Результат (a ≶ b) | (b ≶ c) равен' d d = (a ≶ b) | (b < c) SAY 'Результат (a ≶ b) | (b < c) равен' d EXIT
Протокол работы этой процедуры выглядит следующим образом: [C:\]OR Результат (a ≶ b) | (b ≶ c) равен 1 Результат (a ≶ b) | (b < c) равен 1
[C:\]
Пример цикла DO UNTIL
Процедура DOUNTIL.CMD использует цикл DO UNTIL. Проверка условия на истину или ложь осуществляется в конце цикла: /* Использование цикла DO UNTIL */ SAY 'Введите сумму наличных денег' PULL salary spent = 0 /* Присваивает spent значение 0 */ DO UNTIL spent > salary SAY 'Введите стоимость товара' PULL cost spent = spent + cost END SAY 'Пустые карманы.' EXIT
Протокол работы этой процедуры выглядит следующим образом: [C:\] DOUNTIL Введите сумму наличных денег 50 Введите стоимость товара 37 Введите стоимость товара 14 Пустые карманы. [C:\]
Пример цикла DO WHILE
Процедура DOWHILE.CMD использует цикл DO WHILE. Проверка условия на истину или ложь осуществляется в начале цикла.
/* Использование цикла DO WHILE */ SAY 'Введите сумму наличных денег' PULL salary spent = 0 DO WHILE spent < salary SAY 'Введите стоимость товара' PULL cost spent = spent + cost END SAY 'Пустые карманы.' EXIT
Протокол работы этой процедуры выглядит следующим образом:
[C:\]dowhile Введите сумму наличных денег 100 Введите стоимость товара 57 Введите стоимость товара 24 Введите стоимость товара 33 Пустые карманы. [C:\]
Примеры арифметических выражений
В приведенной ниже процедуре MATH.CMD демонстрируется выполнение арифметических действий над переменными:
/* Выполнение арифметических действий над переменными */ a = 4 b = 2 c = a + b SAY 'Результат 'a '+' b 'равен' c SAY c = a * b SAY 'Результат ' a '*' b 'равен' c SAY c = a - b SAY 'Результат ' a '-' b 'равен' c SAY c = a / b SAY 'Результат 'a '/' b 'равен' c EXIT
Протокол работы этой процедуры выглядит следующим образом:
[C:\]MATH Результат 4 + 2 равен 6 Результат 4 * 2 равен 8 Результат 4 - 2 равен 2 Результат 4 / 2 равен 2
[C:\]
