17-2.txt

来自「编译原理课程设计大作业PL0文法简易编译器」· 文本 代码 · 共 27 行

var head,foot:integer;
procedure calculation(var head,foot:integer);
  var n,cock,rabbit:integer;
  begin
    n:=0;
    for cock:=1 to head do
    begin
      rabbit:=head-cock;
      if cock*2+rabbit*4=foot then
      begin
        write("cocks: ",cock);
        write("rabbits: ", rabbit);
        n:=n+1
      end
    end;
    if n=0 then 
       begin
         write("cocks: ",0);
        write("rabbits: ", 0)
       end
  end;
begin
  write("Please input the number of heads and feet: ");
  read(head,foot);
  write("The number of cocks and rabbits are: ");
  calculation(head,foot)
end.