Условный оператор - Free Pascal
Формулировка задачи:
Объясните пожалуйста поподробней эту программу,что то я не как не пойму полностью.Если пароль не верный почему она пишет "Стойте!" и зачем эта переменная R. И подскажите как сюда с Pascal 2.6.4 код вставить, у меня не копируется код в pascalе. И вот еще задание A). В программах для часового укажите начало и конец условного оператора(то есть,первый и последний его символ,включая вложенные операторы). Это как? Не пойму что то.
Решение задачи: «Условный оператор»
textual
Листинг программы
Var S,R : String;
Begin
Writeln ('Пароль?');Readln(S);
R:='Стойте!';
If S ='pascal'
Then R:='Проходите!';
Writeln(R);
Writeln('Нажмите Enter'); Readln
End.
Объяснение кода листинга программы
- Объявлены две переменные типа String: S и R.
- Выводится сообщение
Пароль?, и в переменную S считывается введённый пользователем пароль. - Значение переменной R устанавливается в строку 'Стойте!'.
- Проверяется, равен ли введённый пароль 'pascal'.
- Если условие истинно, то значение переменной R заменяется на 'Проходите!'.
- Выводится значение переменной R.
- Выводится сообщение
Нажмите Enter, и программа ожидает нажатия пользователем клавиши Enter.