Question

Помогите по программированию в Pascal) Вот задание: Ввести имя, отчество и фамилию человека (в одну переменную). Определить пол человека (по отчеству).

Answer 1

Program A1;
var
a:string;
begin
read(a);
if copy(a,length(a),1)='ч' then writeln('Муж');
if copy(a,length(a),1)='а' then writeln('Жен');
end.

Answer 2

Решение задачи на определение пола человека по отчеству в Pascal

Для решения данной задачи вам потребуется ввести имя, отчество и фамилию человека в одну переменную. Затем вы должны определить пол человека по его отчеству.

Вот пример кода на Pascal, который решает данную задачу:

program GenderDetection;

var
  fullName: string;
  patronymic: string;
  gender: string;

begin
  // Вводим имя, отчество и фамилию человека
  write('Введите имя, отчество и фамилию человека: ');
  readln(fullName);

// Разделяем полное имя на отдельные части
  patronymic := copy(fullName, pos(' ', fullName) + 1, length(fullName));

// Определяем пол человека по отчеству
  if (patronymic[length(patronymic)] = 'в') or (patronymic[length(patronymic)] = 'ч') then
    gender := 'мужской'
  else if (patronymic[length(patronymic)] = 'а') or (patronymic[length(patronymic)] = 'я') then
    gender := 'женский'
  else
    gender := 'не удалось определить';

// Выводим результат
  writeln('Пол человека: ', gender);
end.

В этом примере мы используем переменные `fullName`, `patronymic` и `gender`. Переменная `fullName` используется для хранения введенного имени, отчества и фамилии человека. Переменная `patronymic` используется для хранения только отчества человека. Переменная `gender` используется для хранения определенного пола человека.

Мы считываем полное имя с помощью `readln` и затем разделяем его на отдельные части. Затем мы проверяем последнюю букву отчества и определяем пол человека на основе этой проверки. Если последняя буква отчества - 'в' или 'ч', то пол считается мужским. Если последняя буква отчества - 'а' или 'я', то пол считается женским. В противном случае пол не удалось определить.

Наконец, мы выводим результат с помощью `writeln`.

Примечание: В данном примере мы предполагаем, что отчество всегда будет вводиться в именительном падеже и будет оканчиваться на одну из букв 'в', 'ч', 'а' или 'я'. Если у вас есть дополнительные требования или правила для определения пола, вам следует их учесть и внести соответствующие изменения в код.

Надеюсь, это поможет вам решить задачу по программированию в Pascal! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.