Ввод логических переменных с клавиатуры.

В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую ...

Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Циклы и массивы

Тип данных Real.

Тип REAL (вещественный). Число типа REAL занимает три слова (шесть байтов). При работе с вещественными числами нужно помнить, что на любом отрезке вещественной оси существует бесчисленное множество ...

Вложенный арифметический цикл. Часть 2.

Примеры использования различных операторов цикла. Вложенный цикл.

В данном уроке мы рассмотрим применение логической операции And с условным оператором If.

Использование And с If.







program vetvlenija6;
uses crt;
var A,B,C:integer;
begin
clrscr;
writeln(‘Введите 3 числа’);
readln (A,B,C);
if (A=B) and (A=C) then
writeln (‘Числа равные’)
else
writeln (‘Числа не равны’);
readln
end.



В строке №8 записываем условие. Здесь применяется новый оператор AND (и) и, фактически, строчка звучит как: ‘Если «A» равно «B» и «A» равно «С», тогда вывести на экран сообщение в строке №9. В противном случае (строка №10), вывести на экран сообщение (строка №11).

logicheskie operacii

Введем сначала одинаковые цифры (5 5 5 через пробел и нажимаем Enter).

logicheskie operacii.

Затем введем разные числа (2 3 4 через пробел и нажимаем Enter).

logicheskie operacii..


Предыдущая статья : Использование if, then, else в Pascal.

Оглавление : Уроки Паскаль ветвления.

Следующая статья : Условный оператор Case Of в Pascal.


Комментарии  

 
+1 # Юрий 20.03.2012 17:00
Вкралась ошибка в строку "Пример №22. Использование End с If." Вот в этом слове: End.
 
 
-6 # Нео 16.12.2012 14:15
Каждый может ошыбиться :oops:
 
 
+6 # маэстро 19.01.2013 13:02
Нео, школьник, иди русский язык учи, позорищную ошибку допустил!
 
   ГлавнаяПаскальВетвления в ПаскальПрименение логических операций с оператором IF.