В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую переменную с клавиатуры, необходимо ввести другую переменную(переменную другого типа) и сравнивать с ней.
Строка №8. Мы должны ввести с клавиатуры либо «y» либо «n».
Строка №9. Булевской переменной «eat» мы присваиваем значение переменной «otvet», которая в свою очередь содержит в себе символ «y», поэтому, когда мы наберем на клавиатуру символ «y», утверждение окажется истиной и на экране выведется сообщение TRUE. Если мы введем какой-то другой символ, например, «n», то выведется сообщение FALSE.
Так как в программе булевской переменной «eat» присвоено значение символьной переменной y (eat:=otvet=’y’), то только при вводе y с клавиатуры будет выводиться сообщение TRUE. Во всех остальных случаях (при вводе любого другого символа) будет выводиться сообщение FALSE.
Комментарии
program uses1;
uses crt;
var a, b, c:boolean;
v, g, h:char;
begin
clrscr;
write('Вы 22 y/n - ');
readln(v);
a:=v='y';
write('Вы о3й y/n - ');
readln(g);
b:=g='y';
write('Вы 11 y/n - ');
readln(h);
c:=h='y';
writeln('Ваши ответы:');
writeln('Вы 1 - ',a);
writeln('Вы 2 - ',b);
write('Вы 3 - ',c);
readln;
end.