Циклы и массивы
Уроки Паскаль
В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую переменную с клавиатуры, необходимо ввести другую переменную(переменную другого типа) и сравнивать с ней.
Строка №8. Мы должны ввести с клавиатуры либо «y» либо «n».
Строка №9. Булевской переменной «eat» мы присваиваем значение переменной «otvet», которая в свою очередь содержит в себе символ «y», поэтому, когда мы наберем на клавиатуру символ «y», утверждение окажется истиной и на экране выведется сообщение TRUE. Если мы введем какой-то другой символ, например, «n», то выведется сообщение FALSE.
Так как в программе булевской переменной «eat» присвоено значение символьной переменной y (eat:=otvet=’y’), то только при вводе y с клавиатуры будет выводиться сообщение TRUE. Во всех остальных случаях (при вводе любого другого символа) будет выводиться сообщение FALSE.
Популярные уроки
- Textcolor, Window, Textbackground в Pascal.
- Процедуры Dec и Inc в Pascal.
- Функции trunc, round в Pascal.
- Тип данных Boolean. Значения True, False в Pascal.
- Тип данных Char. Функции Ord, Chr.
- Функции Pred, Succ в Pascal.
- Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.
- Умножение, деление, сложение, вычитание вещественных чисел в Pascal.
- Логические операции с целыми числами.
- Строковые константы в Pascal.
Комментарии
program uses1;
uses crt;
var a, b, c:boolean;
v, g, h:char;
begin
clrscr;
write('Вы долбаёб y/n - ');
readln(v);
a:=v='y';
write('Вы обкуренный y/n - ');
readln(g);
b:=g='y';
write('Вы ебанутый y/n - ');
readln(h);
c:=h='y';
writeln('Ваши ответы:');
writeln('Вы долбаёб - ',a);
writeln('Вы обкуренный - ',b);
write('Вы ебанутый - ',c);
readln;
end.