Pascal编程!今天就要!1)从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2)编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 08:42:13
Pascal编程!今天就要!1)从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2)编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每
Pascal编程!今天就要!
1)从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.
2)编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每行10个,最后输出总数.
Pascal编程!今天就要!1)从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2)编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每
delphi 7.0+XP SP3调试通过
1
var//变量部分,不用说了吧
i,j,k,count:integer;//定义循环变量和总数变量
begin//主程序开始
count:= 0;//总数为0
for i:=1 to 5 do//第一张牌(还要两张所以得有5长)
for j:=i+1 to 6 do//同理,最好把begin 和 end写明白,每个循环都加一个,可以提高程序可读性,避免人工阅读错误(机器是不会弄错的)
for k:=j+1 to 7 do begin
count:=count+1;//总数加1
writeln(i,j,k);//输出三个变量的值(freepascal不需要加inttostr,delphi最好加上,免得编译器提示出错)
end;
writeln('Gong You ',count,' Zong Qing Kuang');//输出总数(delphi的控制台应用程序可以输出汉字的,dos就不行
readln;//一个小技巧,在结束加上readln;可以避免看不到结果的情况
end. //程序结束
2
var
i,count:integer;//定义变量
begin
for i:=1 to 999 do begin//从1到999循环开始(个人建议把begin写在下面单独一行,看起来更方便
if (i mod 10=3) or (i div 100=3) or (i mod 100 div 10=3) then begin//or表示或者,就是if条件满足一个即执行下面语句,第一个括号表示个位为3(求余,被10除个位余3则个位为3),第二个括号表示百位为3,第三个表示十位为三(其实还可以用字符串函数来做,只要获得有“3”这个字符即可输出
count:=count+1;//总数加1
if i