聪明人的游戏 上课稿第08课

展示实力
让计算机随机出四位数以内的四则运算的题， 并可以答题。
展示实力
产生二个三位数的整数，并输出这两个数 相加的结果。
展示实力
写出表达式 产生2位小数的随机数
思考:计算机还能随机出其他题目吗？
探索奥秘
猜硬币游戏：用计算机模拟抛硬币，你猜 那一面朝上。
Program P1_8_3; Var yb,as:integer; Begin Write(’Please Play:’); Readln(as); Randmize; yb:=trunc(2*random); if yb=as then writeln(‘Yes!’); if yb<>as then writeln(‘No!’) End.
两位数加法
Program P1_8_1; Var a,b,c,d:integer; Begin Randmize; a:=trunc(100*random); b:=trunc(100*random); C:=a+b; Write(a,’+’,b,’=’); Readln(d); If d=c then writeln(‘right!’) Else writeln(‘wrong!’); End.
考考你四则运算
加法 数学中的 ＋ 运算符 程序中的 + 运算符 减法 － 乘法 × * 除法 ÷ /
及wk.baidu.com充电（随机函数）
函数格式：random 或者random（参数） 作用：产生一个大于等于0小于1的随机小数。
产生P~Q范围内随机整数的通用表达式：P+trunc（（Q-P+1）*random）
说明： 1、一般情况下该函数后面可不带参数。 2、如果想每次产生不同的数，需要在调用这个函数前加一个“randomize” （称为设置随机种子）语句。 例如：产生三位随机整数的表达式：100+trunc（900*random）
展示实力
写出产生下列各范围随机数的表达式。 1、三位以内的整数 2、3~12范围内的整数 3、50~80范围内的整数 4、100~150范围内的整数 5、四位整数
展示实力
产生两个100~150之间的随机数，输出较 大的一个。
Program P1_8_5; Var d1,d2:integer; Begin randmize; 100+round(400*random) d1:=__________________________; d2:=100+round(400*random); if _______ then writeln(d1) else d1>d2 writeln(d2) End.