请问如何使用PASCAL完成窗框设计,原始人乘法
窗框设计用总长为600厘米的木条,作成如下图所示的矩形窗框(包括中间两根档条),问窗框的长宽尺寸如何设计,才能使窗户的采光面积最大。编程打印输出采光面积最大的长和宽。长和宽都为整数厘米,第一行打印输出长,第二行打印输出宽,第三行打印输出面积
————————————
| | | |
| | | |
________________________
var
a,b,s,a1,b1:integer;
begin
for a:=1 to 600 do;
for b:=1 to 600 do;
if (a*4+b*6:=600) then
begin
if a*b*3>s then
begin a1:=a;
b1:=b;
s:=a1*b1*3;
end;
end;
end;
writeln(a1*3);
writeln(b1);
writeln(s);
end.
部落人乘法
据说原始部落人以小石子作为计算工具,用减半和倍加运算就能求得任何两个整数的乘积(注意当然不能用乘号*运算)。例如求13与15乘积的过程是:
13 15
6 30
3 60
1 120
规则是:左边不断除2,写下商,舍去余数,右边不断加倍,直到左边变1为止。取结果的方法是,如果某行左边是偶数,就划去整个这一行,右边剩下的数组相加即可,如上式中舍去与6对应的30,其结果就是:
13*15=15+60+120=195
请编制一个程序模拟他们的方法求输入两数的乘积,并以上式输出结果。例如:
输入:a,b=13 15
输出:13*15=15+60+120=195
测试数据: 29*68