Народ! Прошу помочь!
Существует таблица возможных групп крови детей в зависимости от групп крови отца и матери по системе AB0:
http://gign4.narod.ru/
По осям - группы крови родителей
В клетках - возможные группы крови детей. Из этой схемы следует, что если в мамы кровь второй группы, а у отца 4 группы, то у их ребёнка может быть группы крови 2,3,4.
Необходимо: Написать программу, которая по заданным группам крови родителей выводит возможные группы крови их ребёнка (в соответствии с таблицей). Программа должна иметь минимальное количество операторов, таких как if, do, for, select case.
Примечание: Запрещено использовать массив или похожую структуру данных.
Помогите, пожалуйста! Надо срочно!
Спасибо.
Интересная задача, из универа приду, обязательно попробую решить, а у тебя может уже что-то готово ? У нас обычно принято помогать с решением, а не выпонять задание за кого-то.
Всего один оператор 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.
Народ! Спасибо огромное!