题目:生物课学基因 rqnoj174
题目描述
第四节是生物课,今天学习基因的内容,ZYZ老师走了进来……
生物的基因有隐性和显性之分,显性一般用大写字母表示,隐性一般用小写字母表示。比如高矮,高的是显性基因,用大写字母(如H);矮的是隐性基因,用小写字母(如h)。现知一对夫妇的高矮基因,输出他们的孩子高矮的比例(高的在前面),如果不可能为高或不可能为矮,则输出4:0 or 0:4。不会的人可看看初中二年级生物书^_^。(所有字母可能不同)
输入格式
一行,输入父母的基因。
输出格式
一行,输出孩子高矮的比例(高的在前面)
样例输入
HH HH(两人都为高)
样例输出
4:0(孩子不可能为矮)
学好生物很重要!直接if then!!!
pascal Code
program rqnoj174;
var
a,b:string;
procedure init;
begin
assign(input,'rqnoj174.in');
assign(output,'rqnoj174.out');
reset(input);
rewrite(output);
end;
procedure outit;
begin
close(input);
close(output);
halt;
end;
procedure readdata;
var
ch:char;
begin
read(ch);if ch in ['a'..'z'] then ch:='a' else ch:='A'; a:=ch;
read(ch);if ch in ['a'..'z'] then ch:='a' else ch:='A'; a:=a+ch;
read(ch);
read(ch);if ch in ['a'..'z'] then ch:='a' else ch:='A'; b:=ch;
read(ch);if ch in ['a'..'z'] then ch:='a' else ch:='A'; b:=b+ch;
end;
procedure main;
begin
if (a='AA')and(b='AA') then
begin
writeln('4:0');
outit;
end;
if (a='AA')and(b='aa') then
begin
writeln('4:0');
outit;
end;
if (a='AA')and(b='Aa') then
begin
writeln('4:0');
outit;
end;
if (a='aa')and(b='Aa') then
begin
writeln('1:1');
outit;
end;
if (a='aa')and(b='aa') then
begin
writeln('0:4');
outit;
end;
if (a='Aa')and(b='Aa') then
begin
writeln('3:1');
outit;
end;
end;
begin
init;
readdata;
main;
outit;
end.