Question

ПАСКАЛЬ Программа спрашивает пользователя какой-либо вопрос, если отвечает "yes", ему выводится одно сообщение, если "no", то другое. Собсвенно, вопрос в том, как добавить y, n (yes, no) и ввести их в код? Переменную char знаю, но как её использовать... вот в чем проблема.

Answer 1

Var q:{string}char;
begin
readln(q);
if q = 'yes' then...
if q = 'no' then...
end.

Answer 2

Для того, чтобы реализовать такую программу в Pascal, вы можете использовать переменную типа Char, как вы уже заметили. Пример кода для этой программы может выглядеть следующим образом:

arduinoCopy code
program YesNoProgram;
var
  answer: Char;
begin
  writeln('Do you like programming? (y/n)');
  readln(answer);
  if (answer = 'y') or (answer = 'Y') then
    writeln('Great, me too!')
  else if (answer = 'n') or (answer = 'N') then
    writeln('That is too bad.')
  else
    writeln('Invalid answer. Please enter y or n.');
  readln;
end.

В этом примере программа задает вопрос "Do you like programming? (y/n)" и ожидает ввода ответа от пользователя. Ответ сохраняется в переменной answer, которая имеет тип Char.

Затем программа проверяет значение answer, используя оператор if. Если answer равен 'y' или 'Y', программа выводит сообщение "Great, me too!" (Отлично, я тоже!). Если answer равен 'n' или 'N', программа выводит сообщение "That is too bad." (Это слишком плохо). Если answer не равен ни 'y', ни 'n', программа выводит сообщение "Invalid answer. Please enter y or n." (Неверный ответ. Пожалуйста, введите y или n).

Надеюсь, это поможет вам добавить y и n (yes и no) в ваш код на Pascal.