Определение группы крови ребенка, Задача Опции

[qwerty]

Народ! Прошу помочь!
Существует таблица возможных групп крови детей в зависимости от групп крови отца и матери по системе AB0:
таблица
По осям - группы крови родителей
В клетках - возможные группы крови детей. Из этой схемы следует, что если в мамы кровь второй группы, а у отца 4 группы, то у их ребёнка может быть группы крови 2,3,4.

Необходимо: Написать программу, которая по заданным группам крови родителей выводит возможные группы крови их ребёнка (в соответствии с таблицей). Программа должна иметь минимальное количество операторов, таких как if, do, for, select case.
Примечание: Запрещено использовать массив или похожую структуру данных.

Помогите, пожалуйста! Надо срочно!
Спасибо.

[klem4]

Интересная задача, из универа приду, обязательно попробую решить, а у тебя может уже что-то готово ? У нас обычно принято помогать с решением, а не выпонять задание за кого-то.

[hiv]

Всего один оператор CASE

program blood;
var m,f,code :integer;
begin
  write('Группа крови матери=');  readln(m);
  write('Группа крови отца=');  readln(f);
  code:=m-1+4*(f-1);
  case code of
  0:   writeln('Ребенок = 1');
  1,4:   writeln('Ребенок = 1,2');
  2,8,10:   writeln('Ребенок = 1',3);
  3,12:   writeln('Ребенок = 2,3');
  5:   writeln('Ребенок = 1,2,4');
  6,9:   writeln('Ребенок = 1,2,3,4');
  7,13,11,14,15:   writeln('Ребенок = 2,3,4');
  else writeln('Не верно введены группы крови родителей!');
  end;
end.

Сообщение отредактировано: hiv - 23.05.2005 14:52

[qwerty]

Народ! Спасибо огромное!