qq2008444
银牌会员
      职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7 来自 兰·基亚斯 兰古拉王国
|
#1 召唤PASCAL高手...
论坛有学过Pascal的高手么...
本人正在学习此语言
大家有啥子心得体会敬请贴出.
谢谢...
|
※ ※ ※ 本文纯属【qq2008444】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 迅雷不及掩耳盗铃,以不变应万变不离其宗,成事不足挂齿,此物最相思风雨中,一屋不扫何以扫天下无敌,东边日出西边雨一直下,举头望明月几时有,呆若木鸡毛当令箭,杀鸡焉用牛刀小试,锋芒毕露春光,围魏救赵宝奎,Very good bye,八格牙鲁冰花,一泻千里共婵娟…… |
 |
|
2009-7-5 09:24 |
|
微点专家
版主
       Weizi
积分 11554
发帖 11458
注册 2006-8-27 来自 贵阳
|
#2
好像现在大学都不教这个了,只有参加奥赛的学生学
|
※ ※ ※ 本文纯属【微点专家】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 做个性的自己 |
 |
|
2009-7-5 09:32 |
|
微点专家
版主
       Weizi
积分 11554
发帖 11458
注册 2006-8-27 来自 贵阳
|
#3
我对编程这一块是学得一塌糊涂,所以我已经放弃了
|
※ ※ ※ 本文纯属【微点专家】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 做个性的自己 |
 |
|
2009-7-5 09:33 |
|
qq2008444
银牌会员
      职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7 来自 兰·基亚斯 兰古拉王国
|
#4
= =
突然发现这玩意挺好玩。。没事干还能算算数学难题
|
※ ※ ※ 本文纯属【qq2008444】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 迅雷不及掩耳盗铃,以不变应万变不离其宗,成事不足挂齿,此物最相思风雨中,一屋不扫何以扫天下无敌,东边日出西边雨一直下,举头望明月几时有,呆若木鸡毛当令箭,杀鸡焉用牛刀小试,锋芒毕露春光,围魏救赵宝奎,Very good bye,八格牙鲁冰花,一泻千里共婵娟…… |
 |
|
2009-7-5 12:44 |
|
微点专家
版主
       Weizi
积分 11554
发帖 11458
注册 2006-8-27 来自 贵阳
|
#5
学会这个能过渡到Delphi的
|
※ ※ ※ 本文纯属【微点专家】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 做个性的自己 |
 |
|
2009-7-5 13:52 |
|
qq2008444
银牌会员
      职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7 来自 兰·基亚斯 兰古拉王国
|
#6
C也差不多..
|
※ ※ ※ 本文纯属【qq2008444】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 迅雷不及掩耳盗铃,以不变应万变不离其宗,成事不足挂齿,此物最相思风雨中,一屋不扫何以扫天下无敌,东边日出西边雨一直下,举头望明月几时有,呆若木鸡毛当令箭,杀鸡焉用牛刀小试,锋芒毕露春光,围魏救赵宝奎,Very good bye,八格牙鲁冰花,一泻千里共婵娟…… |
 |
|
2009-7-5 15:34 |
|
专业路过
中级用户
  
积分 375
发帖 373
注册 2009-2-15
|
#7
我会背三字经呀
|
※ ※ ※ 本文纯属【专业路过】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 偶木有文化,不要嘲笑偶哦。 |
 |
|
2009-7-5 21:05 |
|
微点专家
版主
       Weizi
积分 11554
发帖 11458
注册 2006-8-27 来自 贵阳
|
|
2009-7-5 22:58 |
|
qq2008444
银牌会员
      职业潜水艇
积分 5373
发帖 5291
注册 2007-7-7 来自 兰·基亚斯 兰古拉王国
|
#9
某动物饲养中心用X元专款购买小狗(每只A元)和小猫(每只B元)两种小动物。
要求专款专用,(至少猫狗各一),正好用完?请求出方案的总数。如没有请输出0.
Input
输入一行,只有三个整数.分别为X,A,B.
Output
输出只有一行(这意味着末尾有一个回车符号),包括1个整数。
我的代码运行会超时(Time>1000ms),哪位能帮忙改成单循环的。。
-----偶是分割线----------
program test;
var X,A,B,c,d,e,f:longint;
begin
readln(X,A,B);
e:=0;f:=1;
for c:=1 to (X div A) do
For d:=1 to (X div B) do
begin
if (c*A+d*B)=X then e:=e+f;
end;
writeln(e);
end.
-----偶是分割线----------
|
※ ※ ※ 本文纯属【qq2008444】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 迅雷不及掩耳盗铃,以不变应万变不离其宗,成事不足挂齿,此物最相思风雨中,一屋不扫何以扫天下无敌,东边日出西边雨一直下,举头望明月几时有,呆若木鸡毛当令箭,杀鸡焉用牛刀小试,锋芒毕露春光,围魏救赵宝奎,Very good bye,八格牙鲁冰花,一泻千里共婵娟…… |
 |
|
2009-7-5 23:16 |
|
微点专家
版主
       Weizi
积分 11554
发帖 11458
注册 2006-8-27 来自 贵阳
|
#10
没法帮你了,兄弟。我数学打小就是最差的
|
※ ※ ※ 本文纯属【微点专家】个人意见,与【 微点交流论坛 】立场无关※ ※ ※
|
 做个性的自己 |
 |
|
2009-7-5 23:28 |
|