qq2008444
银牌会员
职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7
来自 兰·基亚斯 兰古拉王国
|
#11
哈...算了..
只能自己想招了
| |
※ ※ ※ 本文纯属【qq2008444】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
迅雷不及掩耳盗铃，以不变应万变不离其宗，成事不足挂齿，此物最相思风雨中，一屋不扫何以扫天下无敌，东边日出西边雨一直下，举头望明月几时有，呆若木鸡毛当令箭，杀鸡焉用牛刀小试，锋芒毕露春光，围魏救赵宝奎，Very good bye，八格牙鲁冰花，一泻千里共婵娟…… |
|
|
2009-7-6 08:44 |
|
qq2008444
银牌会员
职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7
来自 兰·基亚斯 兰古拉王国
|
#12 谷歌万岁...
比啥子有病和百度好用多了
改单循环后代码如下
-----偶是分割线----------
program test;
Var x,a,b,k,i:integer;
begin
Read(x,a,b);
k:=0;
For i:=1 to (x div a) do
if (x -i*a)mod b=0 then if x-i*a>=b then inc(k);
Writeln(k);
end.
-----偶是分割线----------
| |
※ ※ ※ 本文纯属【qq2008444】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
迅雷不及掩耳盗铃，以不变应万变不离其宗，成事不足挂齿，此物最相思风雨中，一屋不扫何以扫天下无敌，东边日出西边雨一直下，举头望明月几时有，呆若木鸡毛当令箭，杀鸡焉用牛刀小试，锋芒毕露春光，围魏救赵宝奎，Very good bye，八格牙鲁冰花，一泻千里共婵娟…… |
|
|
|
2009-7-6 08:47 |
|
微点专家
版主
Weizi
积分 11554
发帖 11458
注册 2006-8-27
来自 贵阳
|
#13
其实也不一定，这几个搜索，都有自己的特色，有时候这个的结果让自己能满意，但是下一次又是另外一个让自己满意，我都轮换着使用的
| |
※ ※ ※ 本文纯属【微点专家】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
做个性的自己 |
|
|
|
2009-7-6 09:21 |
|
qq2008444
银牌会员
职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7
来自 兰·基亚斯 兰古拉王国
|
#14
= =我当时写的8引擎搜索工具真好用
| |
※ ※ ※ 本文纯属【qq2008444】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
迅雷不及掩耳盗铃，以不变应万变不离其宗，成事不足挂齿，此物最相思风雨中，一屋不扫何以扫天下无敌，东边日出西边雨一直下，举头望明月几时有，呆若木鸡毛当令箭，杀鸡焉用牛刀小试，锋芒毕露春光，围魏救赵宝奎，Very good bye，八格牙鲁冰花，一泻千里共婵娟…… |
|
|
|
2009-7-6 10:21 |
|
snhao
银牌会员
积分 1791
发帖 1782
注册 2007-6-12
|
#15 人民币取法问题
有面值1元、2元、5元、10元的人民币，从中取出20张使其总值为80元，问有少种取法，并列出取法。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
idea:integer;
ione,itwo,ifive,iten:integer;
s:string;
begin
idea:=0;
For ione:=0 To 80 Do
For itwo:=0 To 40 Do
For ifive:=0 To 16 Do
For iten:=0 To 8 Do
if (ione+itwo*2+ifive*5+iten*10=80) then
begin
s:=' 壹元张数：'+inttostr(ione)+' 贰元张数：'+inttostr(itwo)
+' 伍元张数：'+inttostr(ifive)+' 拾元张数：'+inttostr(iten);
if (ione+itwo+ifive+iten)=20 then
begin
listbox1.Items.Add(s);
inc(idea);
end;
end;
label1.Caption:='取法有'+inttostr(idea)+'方法，具体如下：';
end;
end.
| |
※ ※ ※ 本文纯属【snhao】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
东方微点论坛 |
|
|
|
2009-7-6 11:02 |
|
sidineyqiao
版主
体育娱乐休闲版主
积分 1697
发帖 1584
注册 2007-8-2
来自 庆祝微点上市一周年624-630
|
|
|
2009-7-6 11:45 |
|
微点专家
版主
Weizi
积分 11554
发帖 11458
注册 2006-8-27
来自 贵阳
|
|
|
2009-7-6 11:58 |
|
qq2008444
银牌会员
职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7
来自 兰·基亚斯 兰古拉王国
|
#18
| Quote: | Originally posted by snhao at 2009-7-6 11:02:
有面值1元、2元、5元、10元的人民币，从中取出20张使其总值为80元，问有少种取法，并列出取法。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fo ... |
|
我说。。。这是Pascal么 。。。这分明是Delphi。。。
这个题目和此题相似。。
---偶是分割线---
Description
用一张一元票换1分、2分和5分的硬币，每种至少一枚， 问有几种换法.
Input
无
Output
输出只有一行（这意味着末尾有一个回车符号），包括1个整数。
---偶是分割线---
Pascal代码
----偶是分割线----
program test;
var a,b,c,d:longint;
begin
d:=0;
for a:=1 to 93 do
for b:=1 to 47 do
for c:=1 to 19 do
if (a+2*b+5*c)=100 then d:=d+1;
writeln(d);
end.
----偶是分割线----
| |
※ ※ ※ 本文纯属【qq2008444】个人意见，与【 微点交流论坛 】立场无关※ ※ ※
|
迅雷不及掩耳盗铃，以不变应万变不离其宗，成事不足挂齿，此物最相思风雨中，一屋不扫何以扫天下无敌，东边日出西边雨一直下，举头望明月几时有，呆若木鸡毛当令箭，杀鸡焉用牛刀小试，锋芒毕露春光，围魏救赵宝奎，Very good bye，八格牙鲁冰花，一泻千里共婵娟…… |
|
|
|
2009-7-6 12:59 |
|
