| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 651 人关注过本帖
标题:请问如何使用PASCAL完成窗框设计,原始人乘法
只看楼主 加入收藏
zhuyuwilliam
Rank: 2
来 自:上海
等 级:论坛游民
帖 子:20
专家分:10
注 册:2010-9-16
结帖率:50%
收藏
 问题点数:0 回复次数:0 
请问如何使用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
搜索更多相关主题的帖子: 面积最大 原始人 
2011-06-02 16:35
快速回复:请问如何使用PASCAL完成窗框设计,原始人乘法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015672 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved