【模拟】生物课学基因

题目:生物课学基因 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.